[ résolu ] Je n'arrive pas à trouver la suite logique de mon code VBA

D

david84

XLDnaute Barbatruc

• 18 Décembre 2014

• #2

Re : Je n'arrive pas à trouver la suite logique de mon code VBA

Bonjour,
c'est dans cette macro que tu dois modifier la plage qui se déclenchera lors de la sélection d'une cellule correspondant à la plage voulue :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect([B4:BT4], Target) Is Nothing Then Exit Sub
    If Target.Column Mod 10 = 2 Then Tableau_Sup.Afficher Target(1, 1)
End Sub

Actuellement la plage concernée par cet évènement est [B4:BT4]
Tu dois donc ajouter à la plage B4:BT4 la plage B36:BT36 sans oublier de séparer les 2 plages par une virgule.
A+

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 18 Décembre 2014

• #3

Re : Je n'arrive pas à trouver la suite logique de mon code VBA

Bonjour

If Intersect([B4:BT4], Target) Is Nothing And Intersect([B36:BT36], Target) Is Nothing Then Exit Sub

A+

Edit:
Bonjour david84.

Pas sûr que If Intersect([B36:BT36],[B4:BT4], Target) fonctionne


re Edit

j'avais mal interpréter la modif, désolé !!

 

Dernière édition: 18 Décembre 2014

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 18 Décembre 2014

• #4

Re : Je n'arrive pas à trouver la suite logique de mon code VBA

Edit:
Bonjour david84.

Pas sûr que If Intersect([B36:BT36],[B4:BT4], Target) fonctionne


re Edit

j'avais mal interpréter la modif, désolé !!

Cliquez pour agrandir...

L'un des intérêts d'intersect est justement qu'il accepte les plages multiples (il suffit de placer une virgule après B4:BT4 pour s'en apercevoir). C'est pour cela que j'ai préféré cette façon de faire.
Voyons maintenant si le demandeur aura saisi la nuance.
A+

 

Vote positif 0 Vote négatif

al1.2loin

XLDnaute Occasionnel

• 18 Décembre 2014

• #5

Re : Je n'arrive pas à trouver la suite logique de mon code VBA

Bjr, et merci pour votre aide à tout les deux, mais le code à Paf à bien fonctionné, j'avais déjà essayé le code à David mais çà n'avais pas marché, et pour finir avec de l'humour et Paf. 😉

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 18 Décembre 2014

• #6

Re : [ résolu ] Je n'arrive pas à trouver la suite logique de mon code VBA

salut

pour mettre tout le monde d'accord 😀 ?

Code:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If Intersect(R, Range("B4:BT4,B6:BT36")) Is Nothing Then Exit Sub
  If R.Column Mod 10 = 2 Then Tableau_Sup.Show
End Sub

voir simplification des procédures dans le fichier joint

 

Pièces jointes

• Usf si.xlsm

  263.6 KB · Affichages: 27

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 18 Décembre 2014

• #7

Re : Je n'arrive pas à trouver la suite logique de mon code VBA

j'avais déjà essayé le code à David mais çà n'avais pas marché

Cliquez pour agrandir...

Quel code ? Je ne t'ai donné aucun code juste les informations pour te mettre sur la voie...si tu as testé

Code:

If Intersect([B4:BT4],[B36:BT36], Target)

c'est sûr que cela ne fonctionne pas mais si tu m'as lu plus attentivement tu as alors dû tester

Code:

If Intersect([B4:BT4,B36:BT36], Target)

et là tu as dû vérifier que cela fonctionne...et donc comprendre qu'il ne sert à rien de multiplier les Intersect (même si cela fonctionne mais c'est une mauvaise interprétation de ce que permet Intersect).
A+

 

Vote positif 0 Vote négatif

al1.2loin

XLDnaute Occasionnel

• 18 Décembre 2014

• #8

Re : Je n'arrive pas à trouver la suite logique de mon code VBA

Bjr, oui je sais, j'ai mal interprété l'information de David, j'avais déjà essayé ce code :
If Intersect([B4:BT4],[B36:BT36], Target) et c'est vrai qu'il ne marchait pas, il fallait bien écrire le code comme ceci:
If Intersect([B4:BT4,B36:BT36], Target) Is Nothing Then Exit Sub et cela fonctionne.
Et merci à SI... pour son code qui marche aussi.
Bonne soirée à tous.

 

Vote positif 0 Vote négatif