Problème de contexte sur l'activation d'un bouton

  • Initiateur de la discussion Initiateur de la discussion PAGE Stéphane
  • Date de début Date de début

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 !

P

PAGE Stéphane

Guest
Bonjour,

Je travaille sur un doc excel avec 4 feuilles. Via la boite à outils, j'ai créé un bouton sur la 4ème feuille pour déclencher une recherche qui me renvoie l'adresse d'une chaine de caractères.

Si je travaille en mode debug (pas à pas) et qu'auparavant j'ai double cliqué sur la feuille concernée, je récupère bien l'adresse.

Si par contre je ne double clique pas sur la feuille ou que je déclenche directement le bouton, je ne récupère rien.

J'ai l'impression que j'ai un problème de contexte que je n'arrive pas à solutionner.

Ci-joint le code source :

Private Sub BoutonCalcul_Click()
MsgBox Adr_Val("A", "*44101*")
End Sub

Function Adr_Val(Plage_Col, Val_Cherche) 'Fonction renvoyant l'adresse de la cellule de la valeur cherchée
Dim AdresseVal As String
On Error Resume Next

Sheets("Anos").Activate 'feuille sur laquelle se trouve le bouton
With Worksheets("Anos").Cells.Columns(Plage_Col)
AdresseVal = .Cells.Find( _
What:=Val_Cherche, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchDirection:=xlNext, _
MatchCase:=False).Address
End With

Adr_Val = AdresseVal
End Function

Si quelqu'un a une idée, je suis preneur.

Merci d'avance.
 
Bonjour Stéphane, le forum

Ton code fonctionne bien, mais dans la propriété de ton bouton, as-tu pensé mettre dans Name de ton bouton : BoutonCalcul ??

C'est le seul problème que je vois, sinon ton code fonctionne très bien.

Tourlou,

Joley
 
Salut Joley,

En fait j'ai trouvé enfin le problème. C'était du à la propriété TakeFocusOnClick de mon bouton qui était à True. En la passant à False, je garde le contexte de ma feuille et ça marche. Ouf !!!

Merci pour ta recherche.

A+
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
32
Affichages
977
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Retour