Selection d'une plage decalée par rapport à une cellule elle-même decalée

" j'imagine que n'est pas la peine de définir la cellule A1 avant de demander de décaler de 7 vers la droite par Target.Offset ?"

Comme je l'ai compris, la sélection se fait depuis la cellule active. Donc elle se fait depuis A1 si tu cliques en A1

"la macro ne fonctionne pas chez moi"

La macro se déclenche automatiquement quand tu changes de cellule. Si ce n'est pas ce que tu veux, dis-le.J'ai dû me tromper dans mon décalage. Si tu cliques en A1, quelle doit-être la plage sélectionnée ?

"j’espérais pouvoir poursuivre diverses autres étapes de travail dans une macro classique (situé dans un module) et souhaitais aussi pouvoir demander qu'il soit remonté dans la macro avec la fonction Goto , en déclarant jusqu'à quelle ligne, pour lui demander vérifier dans une autre cellule, 14 colonnes plus loin, si le OUI recherché y est et alors agir, et ainsi de suite?"

Je ne suis pas sûr d'avoir compris. Peux-tu donner un exemple ?

Daniel

Oui, bien sûr, volontiers.

Daniel

Va sur cette page :
https://mon-partage.fr/
Copie l'adresse du "lien de téléchargement" et poste-le dans ta réponse.

Daniel

Voici la macro qui boucle sur les "OUI" et efface la plage correspondante. Elle utilise les méthodes Find et FindNext. Elle est très classique. J'ai mis des commentaires dans la macro pour t'aider. Si tu as des questions, n'hésite pas :

Sub Macro2()
  'Effacement des plages vertes si "OUI" en ligne 2
  Dim C As Range, ResAdr As String
  Set C = Range("2:2").Find("OUI", , , , xlByColumns, xlNext)
  'on stocke l'adresse du premierr "OUI" en mémoire
  ResAdr = C.Address
  If C Is Nothing Then Exit Sub
  Do
    'OUI ne doit pas être en colonne A
    If C.Column > 1 Then
      'Effacement
      C.Offset(2, -1).Resize(5, 3).ClearContents
    End If
    'on passe au suivant
    Set C = Range("2:2").FindNext(C)
  'et on boucle si on n'est pas revenu sur le premier "oui"
  Loop While ResAdr <> C.Address
End Sub

Daniel