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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Encore besoin de vous 🙂

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

Code:
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,
 
Dernière édition:
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 😉
 
Dernière édition:
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,
 
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 :
Code:
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 :
Code:
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,
 

Pièces jointes

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,
 
Re : execute macro à la séléction d'une cellule

Re


Ta fusion ressemblait-elle à cela ?
Code:
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
 
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,
 

Pièces jointes

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 ?
Code:
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
 
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,
 
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,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
203
Réponses
4
Affichages
243
Retour