Chercher une feuille dans un classeur Excel via une inputbox

[beegees]

Bonjour tout le monde,

J'aimerais lancer une macro au démarrage d'une feuille Excel.

Cette macro devrait :

Lancer une inputbox
Demander un nombre de six chiffres
et rechercher la feuille nommée par le chiffre entré

J'ai commencé un bout de code mais ça ne fonctionne pas :

Public Sub Workbook_Open()
Dim matricule
matricule = InputBox("Veuillez indiquez le numéro de matircule", "Numéro de matricule")

MsgBox (matriucle)
End Sub

Msgbox (matricule) devrait me montrer le numéro de matricule que j'ai entré mais il n'affiche rien.

Je mets donc le numéro de matricule dans une variable nommée matricule et j'aimerais que la feuille portant le numéro contenu dans la variable soit affichée.

Est-ce possible avec VBA ?

Merci d'avance.

beegees

 

[wilfried_42]

Re : Chercher une feuille dans un classeur Excel via une inputbox

bonjour beegees


Public Sub Workbook_Open()
Dim matricule
matricule = InputBox("Veuillez indiquez le numéro de matircule", "Numéro de matricule")

MsgBox (matriucle)
End Sub

tu l'as mis dans workbook_open, ta macro ne se lancera que lorque tu ouvriras le classeur

mets la dans worksheet (la bonne feuille)

sub worksheet_activate

 

[Compte Supprimé 979]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Mais oui, Beegees, c'est possible !

Beaucoup de choses sont possibles en VBA 😉

Public Sub Workbook_Open()
Dim Matricule
Matricule = InputBox("Veuillez indiquez le numéro de matircule", "Numéro de matricule")
[B][COLOR=blue]MsgBox (matricule)[/COLOR][/B]
[COLOR=blue][COLOR=black]' Et non MsgBox[/COLOR][COLOR=#000000] (matri[B]ucle[/B])[/COLOR][/COLOR]
' Sans tester si la feuille existe
On error resume next
[COLOR=blue][COLOR=#000000]Sheets(Matricule).Activate[/COLOR][/COLOR]
[COLOR=blue][COLOR=#000000]On error goto 0[/COLOR]
[/COLOR]End Sub

Voilà 🙂

 

[Catrice]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Bonjour,

Une solution :

Public Sub Workbook_Open()
matricule = InputBox("Veuillez indiquez le numéro de matircule", "Numéro de matricule")
Sheets(matricule).Activate
End Sub


Voir fichier joint

 

[beegees]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Bonjour Wilfried et Bruno,

Une question : que ferais-je sans vous ?

C'est top, ça a l'air de fonctionner nikel !

Je fait encore des tests mais je pense que c'est ok.

Merci pour tout !!!

beegees

 

[beegees]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Bonjour,

Une solution :

Public Sub Workbook_Open()
matricule = InputBox("Veuillez indiquez le numéro de matircule", "Numéro de matricule")
Sheets(matricule).Activate
End Sub


Voir fichier joint

Bonjour Catrice,

C'est super comme solution, simple et efficace.

Merci beaucoup.

beegees

 

[beegees]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Re,

y'aurait-il moyen d'obliger les utilisateurs à rentrer 6 chiffres ?

y'aurait-il aussi moyen de dire "numéro de matricule inexistant" si le numéro n'existe pas ? à la limite laisser l'oportunité à l'utilisateur de réessayer ?

Merci pour votre grande aide.

beegees

 

[Compte Supprimé 979]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Re,
y'aurait-il moyen d'obliger les utilisateurs à rentrer 6 chiffres ?

Oui, tout à fait.

y'aurait-il aussi moyen de dire "numéro de matricule inexistant" si le numéro n'existe pas ? à la limite laisser l'oportunité à l'utilisateur de réessayer ?

Oui également.

Catrice va te faire ça 🙄

 

[beegees]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Re,

Merci Bruno,

J'attends donc des nouvelles de Catrice.

Merci pour ton aide.

beegees

 

[Catrice]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Re,

Je n'avais pas vu qu'il y avait autant de monde sur ce Fil ;-)

Une solution pour la derniere question ci-joint

 

[Catrice]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Re,re,

Ci-joints :
Classeur1.xls, corrigé car le bouton "Annuler" n'était pas pris en compte.
Classeur2.xls, avec une variante plus "sûre" en terme de choix

 

[beegees]

Re : Chercher une feuille dans un classeur Excel via une inputbox

Re Catrice,

Franchement, c'est du bon boulot, merci sincèrement.

Je vais anlayser ton code, pour apprendre, y'a pas mieux.

La solution 2 me semble plus "sécurisée" comme tu l'as dit, je vous sans doute donc utiliser cette solution.

T'es super !

Merci encore.

beegees