Dennnisss
XLDnaute Occasionnel
Bonjour a tous
j'ai un leger probleme , dans ce petit test il verifie si la cellule H100 est egale a la cellule qui se trouve entre H148 a H200 environ , si il trouve les cellule egale il doit copier les cellules h??? a R??? donc dans ce test il copier bien une cellule seulement , moi je veut qu'il copies 11 cellule
donc la question activecell.Offset(0,1).copy peut ton lit dire de monter 11 lignes en meme temps
cell = Range("H100") === cellule de verification
Range("H148").Select ====debut de sa recherche
While ActiveCell <> 0
If ActiveCell = cell Then
ActiveCell.Offset(0, 1).Copy
Range("H100").PasteSpecial
Else
End If
ActiveCell.Offset(1, 0).Activate
Wend
Range("A100").Select
End Sub
alors merci de votre aide messieur
si besoin d'un petit programme pas de trouble je vous prepare cela
dennnisss 😉😉
j'ai un leger probleme , dans ce petit test il verifie si la cellule H100 est egale a la cellule qui se trouve entre H148 a H200 environ , si il trouve les cellule egale il doit copier les cellules h??? a R??? donc dans ce test il copier bien une cellule seulement , moi je veut qu'il copies 11 cellule
donc la question activecell.Offset(0,1).copy peut ton lit dire de monter 11 lignes en meme temps
cell = Range("H100") === cellule de verification
Range("H148").Select ====debut de sa recherche
While ActiveCell <> 0
If ActiveCell = cell Then
ActiveCell.Offset(0, 1).Copy
Range("H100").PasteSpecial
Else
End If
ActiveCell.Offset(1, 0).Activate
Wend
Range("A100").Select
End Sub
alors merci de votre aide messieur
si besoin d'un petit programme pas de trouble je vous prepare cela
dennnisss 😉😉