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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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
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
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
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
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
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 wrote:
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
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
<alainchatell...@discussions.microsoft.com> wrote:
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
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 wrote:
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