Bonjour, tout le monde et merci pour vos réponses
Voila je suis débutant et j'ai un petit souci avec une macro For Each. En fait la macro fonctionne sauf que lorsque la condition souhaitée est trouvée, la valeur de ma cellule passe à "vrai" et donc ne garde pas sa valeur initiale. Comment faire pour remédier à cela ?
Sub essai()
Dim plage As Range, cellule As Range
Set plage = Range("a6:a9")
For Each cellule In plage
If (cellule.Value = Range("a1")) Then
Range("b1").Copy
cellule.Value = cellule.Offset(0, 1).PasteSpecial
End If
Salut
Comme le coller est bien réel, donc VRAI, la cellule en donne le résultat. Il suffit de ne pas écrire ==> cellule.Value = cellule.Offset(0, 1).PasteSpecial
Sub essai()
Dim plage As Range, cellule As Range
Set plage = Range("a6:a9")
For Each cellule In plage
If (cellule.Value = Range("a1")) Then
Range("b1").Copy
cellule.Offset(0, 1).PasteSpecial
End If
Next cellule
End Sub
Un grand merci pour cette réponse rapide et précise. Et bien sûr cela fonctionne parfaitement comme voulu.
Encore merci.
De plus je crois comprendre la subtilité de mon erreur de départ.