Excell déplacer valeur

Excell déplacer valeur - VB/VBA/VBS - Programmation

Marsh Posté le 11-01-2006 à 15:36:32    

Bonjour
 
Sous  excell, j'ai créer un xlt puis j'importe un fichier par une macro
Je souhaite déplacer une valeur d'une cellule A dans une autre cellule B et ceci plusieurs fois en fonction d'un parametre qui se trouve ds colonne.
Je connais que la colonne de la cellule A et la ligne change en fonction d'un parametre (que je mets dans une autre colonne qui sera effacée à la fin, si la cellule est vide il faut recuperer la valeur et le mettre ds B)
je connais que la colonne de la cellule B et je retrouve la ligne avec l'indice de ma boucle lorqu'il arrive à une case vide  
 
// essai je connais pas le langage
 
for  toutelacolonne
  if valeurCellule(indice_boucle_for)= null
  Cells(indice_jeletrouveraismeme, 2).Value = Range("H abscisse_indice_delaboucle_for-1).Value
 endif  
fin_for
 
NB: indice_jeletrouveraismeme: 5 la premiere fois car titre puis indice_boucle_for - ou on a trouve le dernier case blanche
 
Pouvez vous m'aider pour la syntaxe et le langage?
Merci
 
 
   
 

Reply

Marsh Posté le 11-01-2006 à 15:36:32   

Reply

Marsh Posté le 11-01-2006 à 16:53:18    

c'est bon presque trouve
ca devrait ressembler à ça
 
Sub replacer()
 
colN = 8
 
LastRw = ActiveSheet.UsedRange.Rows.Count
'MsgBox LastRw
For x = 7 To LastRw
  If (Cells(x, colN) <> Cells(x - 1, colN)) Then
   Cells(4, 2).Value = Cells(x - 1, colN).Value
   'Range("H7" ).Value
   'Cells(4, 2).Value = "aaaaaaaaaaaa" marche
  End If
Next
     
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed