plusieurs activecell en meme temps

[Dennnisss]

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 😉😉

 

[Compte Supprimé 979]

Re : plusieurs activecell en meme temps

Salut Dennnisss,

Tu peux utiliser le code ci dessous :
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row + 11, ActiveCell.Column)).Copy

A+

 

[Dennnisss]

Re : plusieurs activecell en meme temps

salut bruno

Merci pour ta reponse

J,ai essayer de modifier ta logique car il travaille bien mais pas dans le bon sens il copier 11 ligne sur la hauteur , moi je cherche sur la largeur soit H a R

au lieu de 1 a 11

alors encore besoin de toi svp

dennnisss 😉

 

[Compte Supprimé 979]

Re : plusieurs activecell en meme temps

Re,

La fonction Cells() comprends les paramètres (Row, Column)

Donc avec ces indications tu devrais y arriver, non ?

A+

 

[Dennnisss]

Re : plusieurs activecell en meme temps

salut bruno

Oui je fait des test presentement , alors je te remercie
de ton aide et passe une bonne journee
je crois que ta fete etait aujourd'hui alors bonne fete a toi

bye bye dennnisss😉😉