Discussion :

[Jimmatdycol]

Bonjour à tous,et à toutes,
Je suis novice en vba ,et je m'arrache les cheveux afin d'ecrire le code qui me permettrais d'obtenir le résultat suivant.
Dans un classeur j'ai plusieurs feuille ex perceuse , meuleuse,etc..

dans la première feuille de ce classeur on retrouve en colonne À la liste de toutes les feuilles contenue dans ce classeur.

J'aimmerais en me positionnent sur une des cellules contenant un des non de feuille puis en cliquant sur un bouton à qui j'affecterais cette macro ouvrir la feuille correspondant

Merci d'avance pour votre aide precieuse.

Jim

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub toto()
nom = Selection.Value
Sheets(nom).Activate
End Sub

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub cmbFeuille_Click()
 
  On Error Resume Next
    Worksheets(Selection.Value).Select
  On Error GoTo 0
 
End Sub

Un classeur exemple en PJ.
Ça serait plus propre de 'Customiser' le ruban Excel.

[Jimmatdycol]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub toto()
nom = Selection.Value
Sheets(nom).Activate
End Sub

Genial, ca marche
Je me remet au boulot
Un grand merci !!!

Jimmy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub cmbFeuille_Click()
 
  On Error Resume Next
    Worksheets(Selection.Value).Select
  On Error GoTo 0
 
End Sub

Un classeur exemple en PJ.
Ça serait plus propre de 'Customiser' le ruban Excel.

Merci, ca marche Nickel!!, je me remet au boulot, pour le ruban, oui effectivement ,mais mes connaissances en VBA sont tres limite, jusqu'a present je faisait tout en Macro 4.0 en regle general je m'en sortait plutot tres bien ,mais forcé de constater au fil du temp des limites de ce langage depassé.

[nibledispo]

bonsoir,

j'arrive un peu tard, je sais:

question : n'aurait-il pas etait possible de creer un hyperlien ? un sommaire en quelque sorte.

cordialement.