sélection de plusieurs cellule par macro

[xeration]

Salut à tous,

Je recherche un morceau de code permettant de sélectionner plusieurs cellule en même temps (4) associer à une condition :

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
Loop

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 !)

 

[Pierrot93]

Re : sélection de plusieurs cellule par macro

Bonjour,

pas tout compris... pour selectionner les 4 cellules à gauche de la cellule active :

ActiveCell.Offset(0, -4).Resize(, 4).Select

bon après midi
@+

 

[xeration]

Re : sélection de plusieurs cellule par macro

C'est tout à fait ça merci ! 🙂

 

[xeration]

Re : sélection de plusieurs cellule par macro

Salut c'est encore moi !

Comment pourrait-on traduire "si la cellule sélectionnée est différente des valeurs de la plage AO5 à AO15" ?

J'ai essayé :

 If Selection <> range.Value("Ao5:Ao15") Then

 If Selection <> cells.Value("Ao5:Ao15") Then

mais rien n'y fait 🙁

 

[Pierrot93]

Re : sélection de plusieurs cellule par macro

Bonjour,
un exemple ci dessous, plage de cellule à adapter :

If IsError(Application.Match(ActiveCell, Range("A1:A10"), 0)) Then MsgBox "Non trouvé..."

bonne journée
@+

 

[xeration]

Re : sélection de plusieurs cellule par macro

Encore merci, c'est tout à fait ça qu'il me fallait