Excell déplacer valeur - VB/VBA/VBS - Programmation
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
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