Discussion :

[Nonno 94]

Bonsoir le Forum,

je viens vous demander comment modifier le code ci-dessous qui permet de sélectionner une cellule de la feuille active pour sélectionner une feuille du classeur dont le nom est contenu dans la cellule "F1".

Code :

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

1
2
3
4
5
6
7
8
Sub Sélectionner_cellule()
 
        Range("C1").Select
                k = ActiveCell.Value
                l = 1
            Cells(k, l).Select
 
End Sub

Avec mes remerciements pour vos réponses.
Cordialement.

Nonno 94.

[Nonno 94]

Avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Sélectionner_Feuille()
 
        Range("F1").Select
                k = ActiveCell.Value
 
          Sheets(k).Select
 
 
End Sub

Bonne soirée à tous.

[Docmarti]

Bonjour Nonno 94

je viens vous demander comment modifier le code ci-dessous qui permet de sélectionner une cellule de la feuille active pour sélectionner une feuille du classeur dont le nom est contenu dans la cellule "F1".

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Sélectionner_cellule()
 
 
             k = ActiveSheet.Range("F1").Value
             Worksheets(k).Activate
             col = 1
             ligne = 1
             Worksheets(k).Cells(ligne, col).Select
 
End Sub

[Philippe Tulliez]

Bonjour,
Pas certain d'avoir compris ta demande.
Si la cellule F1 de la feuille active contient le nom d'une feuille que tu dois sélectionner
C'est

Code :

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

NomFeuille = ActiveSheet.Range("F1").Value

Pour activer la feuille dont le nom est en F1

Code :

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

ThisWorkbook.Worksheets(ActiveSheet.Range("F1").Value).Activate

Cependant en VBA, il faut proscrire l'utilisation des méthodes Activate, Select, etc...

Donc pour écrire le mot "Toto" dans la cellule A2 de la feuille dont le nom est en cellule F1 de la feuille active qui se nomme nomme [Param], il sera plus précis d'écrire cette ligne de code qui fonctionnera quelle que soit la feuille active

Code :

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

ThisWorkbook.Worksheets(Worksheets("Param").Range("F1").Value).Range("A2") = "Toto"

[Nonno 94]

Bonsoir et merci à tous deux.

vos codes répondent parfaitement à ma demande.

Bonne soirée.
Nonno 94.