Bonjour,
Je cherche, en utilisant vb, à coller la valeur d'une cellule A1 dans la cellule B1 (donc juste en face) si et seulement si elle répond à une condition. Ma plage en colonne A étant variable (de 1 à 200 voir plus) je préfère utiliser une boucle. celà m'évitant de répéter le code pour chaque cellule.
Voici ce que j'ai :
Seulement celà ne fonctionne pas. Je pense que le problème vient de :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Copier() Dim Plage As Range, Cellule As Range Set Plage = Range("b4:B8") For Each Cellule In Plage If (Cellule.Value = "olive") Then Cellule.Offset(0, 1).Value = Cellule.Value End If Next Cellule End Sub
Pouvez vous m'aiguiller ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part Cellule.Offset(0, 1).Value = Cellule.Value
Merci d'avance.
mooh
Partager