Discussion :

[mooh91]

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 :

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

Seulement celà ne fonctionne pas. Je pense que le problème vient de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cellule.Offset(0, 1).Value = Cellule.Value

Pouvez vous m'aiguiller ?

Merci d'avance.

mooh

[laetitia]

bonjour mooh91 le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Dim c As Range
For Each c In Range("a1", Range("a65536").End(xlUp))
If c = "olive" Then c.Offset(0, 1) = c
Next
End Sub

[mooh91]

Laetitia,

Merci pour ton aide. D'ailleurs bizarrement le code que j'ai indiqué plus fonctionne aussi finalement.

Bonne soirée,

Mooh

[mapeh]

Bonsoir,

effectivement, ton code fonctionne maintenant que tu as déroulé le code de Laeticia....

redéfinis ta plage...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Plage = Range("b4:B8")

tu testais sur la colonne B.....

[laetitia]

RE pas si si sur que ca ??ton code tu boucle sur colonne b condition "olive" tu ecris sur colonne c . tu testes pas la colonne A non???

Je cherche, en utilisant vb, à coller la valeur d'une cellule A1 dans la cellule B1

EDIT bonsoir mapeh pas rafraichi

[mooh91]

Désolé, je me suis mal exprimé en fait. Je suis parti dans un exemple au début pour faire simple et j'ai fini par reprendre mon vrai code.

Le principe global est que si j'ai une cellule en Bn et qu'elle répond à une condition alors je la colle en Cn.

B2 --> condition ok ? --> C2
B3 --> condition ok ? --> C3

etc.

Le premier code fonctionne bien finalment.

Merci à vous deux.

mooh