selectionner une feuille dans une macro ACH

Le
alain chatellier
Bonjour,
comment rechercher une feuille dans un classeur et la selectionner si elle
est presente.
j'ai utilisé le code suivant, mais il ne reconnait que la premiere.
Worksheets("CHEVRE").Select
If Err = 0 Then
nomfeuil = "CHEVRE"
GoTo edition
End If
Worksheets("VACHE").Select
If Err = 0 Then
nomfeuil = "VACHE"
GoTo edition
End If
Worksheets("BEURRE").Select
If Err = 0 Then
nomfeuil = "BEURRE"
GoTo edition
End If

Cordialement

Alain
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4749601
bonjour Alain,

Sub zz()
For Each f In Sheets
If f.Name = "MaFeuille" Then
Sheets(f.Name).Select
Exit Sub
End If
Next
MsgBox "pas de feuille correspondante"
End Sub


isabelle


Bonjour,
comment rechercher une feuille dans un classeur et la selectionner si elle
est presente.
j'ai utilisé le code suivant, mais il ne reconnait que la premiere..........
Worksheets("CHEVRE").Select
If Err = 0 Then
nomfeuil = "CHEVRE"
GoTo edition
End If
Worksheets("VACHE").Select
If Err = 0 Then
nomfeuil = "VACHE"
GoTo edition
End If
Worksheets("BEURRE").Select
If Err = 0 Then
nomfeuil = "BEURRE"
GoTo edition
End If

Cordialement

Alain


FFO
Le #4749581
Salut à toi

Tu pourrais utiliser quelque chose de ce style :

For i = 1 To Sheets.Count
If Sheets(i).Name = "CHEVRE" Then
Sheets(i).Select
End If
If Sheets(i).Name = "VACHE" Then
Sheets(i).Select
End If

'Etc....

Next

Cela devrait convenir


Bonjour,
comment rechercher une feuille dans un classeur et la selectionner si elle
est presente.
j'ai utilisé le code suivant, mais il ne reconnait que la premiere..........
Worksheets("CHEVRE").Select
If Err = 0 Then
nomfeuil = "CHEVRE"
GoTo edition
End If
Worksheets("VACHE").Select
If Err = 0 Then
nomfeuil = "VACHE"
GoTo edition
End If
Worksheets("BEURRE").Select
If Err = 0 Then
nomfeuil = "BEURRE"
GoTo edition
End If

Cordialement

Alain


JB
Le #4749571
Bonjour,

nf = "feuil2"
On Error Resume Next
Sheets(nf).Select
If Err = 0 Then
MsgBox "ok"
Else
MsgBox "inconnu"
End If

JB

On 11 sep, 17:08, alain chatellier
Bonjour,
comment rechercher une feuille dans un classeur et la selectionner si elle
est presente.
j'ai utilisé le code suivant, mais il ne reconnait que la premiere..... .....
Worksheets("CHEVRE").Select
If Err = 0 Then
nomfeuil = "CHEVRE"
GoTo edition
End If
Worksheets("VACHE").Select
If Err = 0 Then
nomfeuil = "VACHE"
GoTo edition
End If
Worksheets("BEURRE").Select
If Err = 0 Then
nomfeuil = "BEURRE"
GoTo edition
End If

Cordialement

Alain


Publicité
Poster une réponse
Anonyme