[macro]Sélection d'une feuille
Résolu
gâtesauce
Messages postés
4
Statut
Membre
-
lami20j Messages postés 21644 Statut Modérateur, Contributeur sécurité -
lami20j Messages postés 21644 Statut Modérateur, Contributeur sécurité -
Bonjour des Karpates à tous les menbres
Je bute sur un petit problème concernant une macro.
J'ai un fichier Exel avec des feuilles dont certaines sont numérotées de façon très simples ( de 6 à 22)
Sur la première feuille "Données minimales" j'ai une cellule "D18" dans laquelle s'inscrivent les nombres de 6 à 22 de façon automatique suivant des configurations techniques.
Je ne veux créer qu'une macro et je n'ai pas trouvé la solution pour que la macro m'ouvre la feuille correspondant au numéro inscrit dans "D18".
Si quelqu'un piouvait gentiment m'aider à résoudre ce cas de figure
ce serait macro sympa
Merci d'avance
Bine ati venit la Dracula land
Multumesc foarte mult si la multi ani
Je bute sur un petit problème concernant une macro.
J'ai un fichier Exel avec des feuilles dont certaines sont numérotées de façon très simples ( de 6 à 22)
Sur la première feuille "Données minimales" j'ai une cellule "D18" dans laquelle s'inscrivent les nombres de 6 à 22 de façon automatique suivant des configurations techniques.
Je ne veux créer qu'une macro et je n'ai pas trouvé la solution pour que la macro m'ouvre la feuille correspondant au numéro inscrit dans "D18".
Si quelqu'un piouvait gentiment m'aider à résoudre ce cas de figure
ce serait macro sympa
Merci d'avance
Bine ati venit la Dracula land
Multumesc foarte mult si la multi ani
A voir également:
- [macro]Sélection d'une feuille
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment supprimer une feuille sur word - Guide
3 réponses
Salut,
Option Explicit
Sub affiche()
Dim iNbAs Integer
With Sheets("a")
iNb = InputBox("Affiche Feuille N° " & _
.Range("b1"), , .Range("b1").Value)
End With
Sheets(CStr(iNb)).Select
End Sub
Re,
Mos cracuim
Attention à l'orthographe :-))
Moş Crăciun
Nu uita sa adaptezi codul la cazul tau :-))
Deci InputBox citeste continutul celulei B1 de pe foaia a
La tine este celula D18 de pe foia Données minimales
La Multi Ani şi tie!!!
Mos cracuim
Attention à l'orthographe :-))
Moş Crăciun
Nu uita sa adaptezi codul la cazul tau :-))
Deci InputBox citeste continutul celulei B1 de pe foaia a
La tine este celula D18 de pe foia Données minimales
La Multi Ani şi tie!!!
Oups, la charte :-DDD
Nu uita sa adaptezi codul la cazul tau :-))
Deci InputBox citeste continutul celulei B1 de pe foaia a
La tine este celula D18 de pe foia Données minimales
ça veut dire
A ne pas oublier d'adapter le code à ton cas.
Donc InputBox lit le contenu de la cellule B1 de la feuille a
Chez toi c'est la cellule D18 de la feuille....
Nu uita sa adaptezi codul la cazul tau :-))
Deci InputBox citeste continutul celulei B1 de pe foaia a
La tine este celula D18 de pe foia Données minimales
ça veut dire
A ne pas oublier d'adapter le code à ton cas.
Donc InputBox lit le contenu de la cellule B1 de la feuille a
Chez toi c'est la cellule D18 de la feuille....
avoir déjà une réponse c'est strong
je teste
si ça marche change de nom
Mos cracuim
cela veut dire Père noël chez nous