Problème avec For EachRésolu

Question

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
   
   Next cellule

End Sub

Merci

Vikings

cnt · Accepted Answer

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

CNTJC

Renfield · Answer

en clair, PasteSpecial effectue le collage...

pas besoin de jouer avec une affectation

Vikings76 · Answer

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.

Vikings

Problème avec For Each

3 réponses

Votre réponse