RESOLU - execute macro à la séléction d'une cellule

[Usine à gaz]

Bonjour à toutes et à tous,

Encore besoin de vous 🙂

J'ai une macro qui exécute ma macro quand la valeur d'une cellule change :

Private Sub Worksheet_SelectionChange(ByVal Target as Range)
    If target.address="$A$1" then
      'code
    end if
En sub

Mon besoin est le suivant :
Je souhaite que ma macro soit exécutée à la sélection de la cellule (pas au changement de valeur)

Pourriez-vous m'aider ?
Merci à vous tous,

Amicalement,
Lionel,

 

[Staple1600]

Re : execute macro à la séléction d'une cellule RESOLU

Bonjour à tous


Si...
C'est pas moi, c'est Vbulletin associé à un fugace CTRL+C puis CTRL+V
Dans la recopie, on perds l'indentation.

Je la remets derechef, mon capitaine 😉

 

[Usine à gaz]

Re : execute macro à la séléction d'une cellule

Bonjour à toutes et à tous,

Oui, c'est certain que j'aurais du faire plus clair bien avant .... et je vous remercie de votre patience.

Pour le reste, j'ai pas tout compris LOL

Bonne fin de dimanche,
Amicalement,
Lionel,

 

[Usine à gaz]

Re : execute macro à la séléction d'une cellule

Bonjour Philippe,
Bonjour à toutes et à tous,

Je reviens sur la macro que vous avez eu la gentillesse de me faire et qui marche très bien.
Cependant, j'ai un soucis :

J'ai copié votre macro dans le classeur qui lui est destiné mais elle entre en conflit avec une autre macro de la même feuille.

Macro existante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C3:C1000")) Is Nothing And Target.Count = 1 Then
Pratique.Show
End If
End Sub

Votre macro :

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim L As Long
L = [Q1000].End(xlUp).Row 'dernière cellule non vide de Q
If Intersect(R, Cells(L, "J")) Is Nothing Then Exit Sub 'pas J en face
Cells(L, "Q").Value = Cells(L, "Q").Value 'simili/copie en valeur
Application.EnableEvents = 0: R.Select: Application.EnableEvents = 1 '...revient
End Sub

J'en profite pour vous demander une modification :
il faudrait que la macro s'exécute à partir de n'importe quelle cellule cliquée sur colonne J (avec effet sur la cellule en face colonne Q et ne tienne pas compte de la dernière cellule non vide.

Avec "mes maigres connaissances, j'ai essayé de solutionner ces deux soucis sans réussite.

Si vous voulez bien encore m'aider .....

Je vous remercie vraiment,
Amicalement,
Lionel,

 

[Staple1600]

Re : execute macro à la séléction d'une cellule

Bonsoir à tous

arthour973
Il ne peut pas y avoir plusieurs macros portant le même nom dans un projet VBA.
Donc tu sais ce qu'il te reste à faire 😉

 

[Usine à gaz]

Re : execute macro à la séléction d'une cellule

Bonjoir JM,
Bonsoir à tous,

Oui, je sais cela mais je croyais que ça irait car dans la seconde, il y a le "R" en plus. (ça va certainement vous faire sourire LOL)
J'ai essayé de fusionner les deux macros en une mais je n'y suis pas arrivé.

Amicalement,
Lionel,

 

[Staple1600]

Re : execute macro à la séléction d'une cellule

Re


Ta fusion ressemblait-elle à cela ?

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim L As Long
If Not Intersect(R, Range("C3:C1000")) Is Nothing And R.Count = 1 Then
Pratique.Show
End If
L = [Q1000].End(xlUp).Row 'dernière cellule non vide de Q
If Intersect(R, Cells(L, "J")) Is Nothing Then Exit Sub 'pas J en face
Cells(L, "Q").Value = Cells(L, "Q").Value 'simili/copie en valeur
Application.EnableEvents = 0: R.Select: Application.EnableEvents = 1 '...revient
End Sub

 

[Usine à gaz]

Re : execute macro à la séléction d'une cellule

Elle ne ressemblait pas à la tienne 🙂
Merci JM
Amicalement,
Lionel

 

[Usine à gaz]

Re : execute macro à la séléction d'une cellule

Bonjour JM,
Bonjour Philippe,
Bonjour à toutes et à tous,

Jm, elle fonctionne bien votre macro et j'essaie de comprendre pourquoi je n'avais pas réussi.
Ne connaissant VBA, je tâtonne et c'est le "R" qui me posait problème car, à l'inverse de vous, j'avais tenté d'inclure en faisant l'inverse LOl

Encore merci vraiment.

Serait-il possible de faire en sorte que la macro s'exécute à partir de n'importe quelle cellule cliquée sur colonne J (avec effet sur la cellule en face colonne Q (donc qu'elle ne tienne pas compte de la dernière cellule non vide) ?

Amicalement,
Lionel,

 

[Staple1600]

Re : execute macro à la séléction d'une cellule

Bonsoir à tous


arthour973
Êtes-vous sur de vous être un tant soit peu creuser les méninges ? 😉
Car tout était déjà dans le fil, non ?

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("C3:C1000")) Is Nothing And R.Count = 1 Then
Pratique.Show
End If
If Not Intersect(R, Columns(10)) Is Nothing Then
Cells(R.Row, "Q").Value = Cells(R.Row, "Q").Value
End If
Application.EnableEvents = 0: R.Select: Application.EnableEvents = 1 '...revient
End Sub

 

[Si...]

Re : execute macro à la séléction d'une cellule

salut

merci de me suppléer Staple (comme quoi même avec ce Si..., on peut l'oublier 😎)

 

[Staple1600]

Re : execute macro à la séléction d'une cellule

Re

Si...
Vous avions point vue mon MP diréton ? 😉
Celui qui cause de sésame et 2013 😉

 

[Usine à gaz]

Re : execute macro à la séléction d'une cellule

Bonsoir JM,
Bonsoir à tous,

Je me creuse les méninges et j'essaie de faire marcher mon neurone mais je suis toujours nul en vba.
Bien sûr, j'essaie de comprendre et grâce à vous j'avance un peu mais je suis encore loin d'un niveau ... même petit.

Quand vous me donnez une solution, j'essaie de l'adapter sans toujours comprendre.
En fonction de ce que je crois, j'essaie de mettre des bouts de codes en fonction de ce qui me semble logique.

Je ne sais que dire et heureusement que vous êtes là car toutes vos solutions et conseils me permettent de pouvoir faire mon travail dans de bien meilleures conditions.

Merci pour tout cela.
Amicalement,
Lionel,

 

[Usine à gaz]

Re : execute macro à la séléction d'une cellule

Et en plus ça marche super 🙂

 

[Staple1600]

Re : execute macro à la séléction d'une cellule

Re

arthour973
Il ne fallait voir dans mon précédent message qu'une amicale taquinerie 😉
j'espère que vous n'êtes pas vexé ? 😉

 

[Usine à gaz]

Re : execute macro à la séléction d'une cellule

Jm ... mais j'avais compris ça, bien sur 🙂

Cependant, je tenais à répondre et par la même souligner votre gentillesse à tous qui rendez tant de services.

Je pose souvent des questions .... Je ne vous prends pas pour un self-service LOl et surtout j'espère ne pas donner cette impression.

Mais il est vrai que je vous sollicite souvent ... grâce à vous, j'avance dans tous les sens du terme.

Il m'arrive de rêver LOL, que je vous rends des services ...... 🙂
Merci vraiment,
Amicalement,
Lionel,