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

Question

Bonjour, 
En VBA, je n'arrive pas sélectionner la Plage de cellules adéquate à partir d'une celle dont l'adresse est obtenue par la fonction Offset. J’obtiens ailleurs qu’il est voulu ma sélection de plage.
Je précise :
je sélectionne une cellule de début de feuille, exemple A1, avec :
Range("A1").Activate
Suivant mes besoins, je procède ensuite à un décalage de cellule pour activer une cellule particulière, exemple :
ActiveCell.Offset(0, 7).Select
Si cette cellule contient ‘OUI’, je veux que soit  sélectionnée une plage qui va de la cellule Départ située 2 ligne plus bas et 3 colonnes à gauche, jusqu’à la cellule Arrivée située 6 lignes plus bas et 11 colonnes à gauche. Ce sera par exemple pour en effacer le contenu. 
Sinon, fin de la macro

L’Idéal serait que cette macro se déclenche automatiquement si la cellule obtenue par ‘ActiveCell.Offset(0, 7).Select’’ contient « OUI »
Qui peut m’aider ?? merci.

danielc0 · Answer

Bonjour,

Mets cette macro dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  On Error Resume Next
  If Target.Offset(, 7) = "OUI" Then
    Application.EnableEvents = False
    Target.Offset(2, 4).Resize(4, -8).Select
    Application.EnableEvents = True
  End If
  On Error GoTo 0
End Sub


La macro se déclenche au changement de sélection de cellule.

Cordialement.

Daniel

DanGg · Answer

Merci d'abord.
mais je constate que ce n'est pas fait, donc 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  ?

Pour l'essentiel, j'ai recopié et essayé ta macro sur un feuille  vierge où j'entre un ''OUI' en cellule H1 puis l’efface, puis le rentre  tour à tour, or cela la macro ne fonctionne pas chez moi. (je travaille avec OFFICE 2016)

Autre souci - ma formation VBA est insuffisante - 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?
ta macro dans le code de la feuille le permettrait ? Ou bien un appel vers une macro classique ? ou bien le tout dans un module classique ?
merci

DanGg · Answer

je peux t'adresser un fichier simple qui précise avec clarté le sujet ? 
(que j'y simplifie d'ailleurs en donnant une adresse fixe aux Cellules susceptibles de contenir 'OUI')

DanGg · Answer

Comment fait-on pour l'envoyer ? je cherche réponse partout  sur le site sans trouver

DanGg · Answer

Merci.
Voici le lien:
https://mon-partage.fr/f/VcD0RYM2/
Tout est inscrit sur ce document : la question précisée et l'exemple de feuille à traiter
merci.

DanGg · Answer

Super.
On apprends peu à peu ..
Merci.

Résolu .

DanGg · Answer

Désolé pour mon retour et Re Re merci pour ton aide.

la macro proposée marche parfaitement sur mon classeur d'essai (celui que je te t'avais mis en pièce jointe, maintenant assorti de ta macro.

Mais cette macro ayant été telle que transférée dans mon classeur original, bien plus complexe en ce qu'il comporte de multiples onglets (mais je ne vois pas le rapport car la macro fonctionne pour l'une seule de ses feuilles), cela ne fonctionne plus totalement, avec un blocage sur  
ResAdr = C.Address

Seule modification opérée :
Au lieu de :
Dim C As Range, ResAdr As String
Set C = Range("2:2").Find("OUI", , , , xlByColumns, xlNext)

J'ai écrit   
Dim C As Range, ResAdr As String
Set C = Range("3:3").Find("Nvelle Facture", , , , xlByColumns, xlNext)

Et bien sûr aussi :
  ...
 End If
    Set C = Range("3:3").FindNext(C)


.. pour évidemment m'adapter au besoin réel de mon classeur

Où est donc le problème ?
Serait-ce dans 'DimC' et 'Set C' dont j ne comprends pas le sens et u'il fallait peut-être adapter ??

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

7 réponses

Discussions similaires