X
xeration
Guest
Salut à tous,
Je recherche un morceau de code permettant de sélectionner plusieurs cellule en même temps (4) associer à une condition :
En gros, tant que la cellule du dessous n'est pas vide, et si la cellule sélectionner est égal à la fonction F, je voudrais que le programme sélectionne les 4 cellule à gauche de celle qui est active, qu'il les copie et les places dans la dernière cellule non vide de la colonne AP
J'arrive à tout, sauf l'histoire des 4 cellules 🙁
Vous auriez de l'aide à me donner la dessus ? (si ce n'est pas claire n'hésitez pas !)
Je recherche un morceau de code permettant de sélectionner plusieurs cellule en même temps (4) associer à une condition :
Code:
f=100
Range("AG5").Select
Do While Not (IsEmpty(ActiveCell))
Selection.Offset(1, 0).Select
If Selection = f Then
Selection.Copy
Range("AP20").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
LoopEn gros, tant que la cellule du dessous n'est pas vide, et si la cellule sélectionner est égal à la fonction F, je voudrais que le programme sélectionne les 4 cellule à gauche de celle qui est active, qu'il les copie et les places dans la dernière cellule non vide de la colonne AP
J'arrive à tout, sauf l'histoire des 4 cellules 🙁
Vous auriez de l'aide à me donner la dessus ? (si ce n'est pas claire n'hésitez pas !)