VBA Si A1 selectionnée alors ...

[C4rtoons]

Bonjour à tous,
Je cherche un code VBA me permettant de faire la chose suivante:
- J'ai une selection automatique d'adresse avec:

  For Each CellDest In Range("A8:A" & Range("A65536").End(xlUp).Row)
    If Not CellDest.EntireRow.Hidden Then
            Destinataire = CellDest.Value

Je voudrais que:

si le destinataire est A8
alors mettre en copy B8,
mais si c'est A9 alors mettre B9 et ainsi de suite..
​

Je souhaite faire cela pour le texte également:

si le destinataire est A8
alors mettre texte c8​

Bonne journée à vous et encore merci pour votre aide

 

[Pierrot93]

Re : VBA Si A1 selectionnée alors ...

Bonjour,

pas ouvert ton fichier, mais regarde peut être du coté de la propriété "offset", si "CellDest" = A8 l'exemple ci-dessous renverra B8 :

CellDest.offset(0,1)

bonne journée
@+

 

[C4rtoons]

Re : VBA Si A1 selectionnée alors ...

Ca fonctionne parfaitement

  .CC = CellDest.Offset(0, 1).Value

Merci!!!