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

[PAGE Stéphane]

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.

 

[Joley]

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

 

[PAGE Stéphane]

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+

 

[Joley]

kikou Stéphane,

Ah petit cachotier, c'aurait été difficile de t'aider puisque ça n'apparaissait pas dans ton code lol

Alors cool si tu as trouvé tout seul comme un grand

tourlou @+