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
Daniel.C
Bonjour. Essaie : Sub test() On Error Resume Next Sheets("toto").Copy If Err.Number <> 0 Then MsgBox "feuille inexistante" Err.Clear End If End Sub Cordialement. Daniel "Didier NOVARIN" a écrit dans le message de news:
Bonjour, Je souhaite écrire en VBA : Si la feuille x n'existe pas alors... Je vous remercie Didier
Bonjour.
Essaie :
Sub test()
On Error Resume Next
Sheets("toto").Copy
If Err.Number <> 0 Then
MsgBox "feuille inexistante"
Err.Clear
End If
End Sub
Cordialement.
Daniel
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news: eeSCTVnAIHA.4712@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je souhaite écrire en VBA :
Si la feuille x n'existe pas alors...
Je vous remercie
Didier
Bonjour. Essaie : Sub test() On Error Resume Next Sheets("toto").Copy If Err.Number <> 0 Then MsgBox "feuille inexistante" Err.Clear End If End Sub Cordialement. Daniel "Didier NOVARIN" a écrit dans le message de news:
Bonjour, Je souhaite écrire en VBA : Si la feuille x n'existe pas alors... Je vous remercie Didier
Filochard
Je souhaite écrire en VBA : Si la feuille x n'existe pas alors...
Vous avez de nombreuses solutions directes ou indirectes :
Sub TestFeuille() nomF = "x" If Evaluate("iserror(" & nomF & "!A1)") Then ' instructions si la feuille existe Else '....instructions si n'existe pas End If End Sub
Je souhaite écrire en VBA :
Si la feuille x n'existe pas alors...
Vous avez de nombreuses solutions directes ou indirectes :
Sub TestFeuille()
nomF = "x"
If Evaluate("iserror(" & nomF & "!A1)") Then
' instructions si la feuille existe
Else '....instructions si n'existe pas
End If
End Sub
Je souhaite écrire en VBA : Si la feuille x n'existe pas alors...
Vous avez de nombreuses solutions directes ou indirectes :
Sub TestFeuille() nomF = "x" If Evaluate("iserror(" & nomF & "!A1)") Then ' instructions si la feuille existe Else '....instructions si n'existe pas End If End Sub
Didier NOVARIN
Ben, la procédure de Filochard ne fonctionne pas, Mais, je vous remercie beaucoup tous les 2 Didier
"Filochard" a écrit dans le message de news: %
Je souhaite écrire en VBA : Si la feuille x n'existe pas alors...
Vous avez de nombreuses solutions directes ou indirectes :
Sub TestFeuille() nomF = "x" If Evaluate("iserror(" & nomF & "!A1)") Then ' instructions si la feuille existe Else '....instructions si n'existe pas End If End Sub
Ben, la procédure de Filochard ne fonctionne pas,
Mais, je vous remercie beaucoup tous les 2
Didier
"Filochard" <Forton.Peloz@wanadoo.fr> a écrit dans le message de news:
%23hoMFwnAIHA.5360@TK2MSFTNGP03.phx.gbl...
Je souhaite écrire en VBA :
Si la feuille x n'existe pas alors...
Vous avez de nombreuses solutions directes ou indirectes :
Sub TestFeuille()
nomF = "x"
If Evaluate("iserror(" & nomF & "!A1)") Then
' instructions si la feuille existe
Else '....instructions si n'existe pas
End If
End Sub
Ben, la procédure de Filochard ne fonctionne pas, Mais, je vous remercie beaucoup tous les 2 Didier
"Filochard" a écrit dans le message de news: %
Je souhaite écrire en VBA : Si la feuille x n'existe pas alors...
Vous avez de nombreuses solutions directes ou indirectes :
Sub TestFeuille() nomF = "x" If Evaluate("iserror(" & nomF & "!A1)") Then ' instructions si la feuille existe Else '....instructions si n'existe pas End If End Sub
Filochard
Sub TestFeuille() nomF = "x" If Evaluate("iserror(" & nomF & "!A1)") Then ' instructions si la feuille existe Else '....instructions si n'existe pas End If End Sub
Ben, la procédure de Filochard ne fonctionne pas,
Mais si : vous devez inverser les réponses aux tests : le If =>> la feuille n'existe pas puisque la réponse au test d'erreur est Oui et le Else ==> la feuille existe
PS : Si vous n'arrivez pas à lire et comprendre ce type de réponse (code) et à l'adapter, il est vraisemblable que vous aurez beaucoup de mal pour la compréhension et la maintenance de votre projet. Ceci étant, vous êtes libre ....
Sub TestFeuille()
nomF = "x"
If Evaluate("iserror(" & nomF & "!A1)") Then
' instructions si la feuille existe
Else '....instructions si n'existe pas
End If
End Sub
Ben, la procédure de Filochard ne fonctionne pas,
Mais si : vous devez inverser les réponses aux tests :
le If =>> la feuille n'existe pas puisque la réponse au test d'erreur est Oui
et le Else ==> la feuille existe
PS : Si vous n'arrivez pas à lire et comprendre ce type de réponse (code) et à
l'adapter, il est vraisemblable que vous aurez beaucoup de mal pour la
compréhension et la maintenance de votre projet.
Ceci étant, vous êtes libre ....
Sub TestFeuille() nomF = "x" If Evaluate("iserror(" & nomF & "!A1)") Then ' instructions si la feuille existe Else '....instructions si n'existe pas End If End Sub
Ben, la procédure de Filochard ne fonctionne pas,
Mais si : vous devez inverser les réponses aux tests : le If =>> la feuille n'existe pas puisque la réponse au test d'erreur est Oui et le Else ==> la feuille existe
PS : Si vous n'arrivez pas à lire et comprendre ce type de réponse (code) et à l'adapter, il est vraisemblable que vous aurez beaucoup de mal pour la compréhension et la maintenance de votre projet. Ceci étant, vous êtes libre ....
Didier NOVARIN
Bonjour, Ben en fait, j'essaie de supprimer le A1 et de ce fait, je n'arrive pas à la faire fonctionner, ce serait bien si je pouvez tester uniquement la feuille, exemple "toto" Je vous remercie Didier
"Filochard" a écrit dans le message de news:
Sub TestFeuille() nomF = "x" If Evaluate("iserror(" & nomF & "!A1)") Then ' instructions si la feuille existe Else '....instructions si n'existe pas End If End Sub
Ben, la procédure de Filochard ne fonctionne pas,
Mais si : vous devez inverser les réponses aux tests : le If =>> la feuille n'existe pas puisque la réponse au test d'erreur est Oui et le Else ==> la feuille existe
PS : Si vous n'arrivez pas à lire et comprendre ce type de réponse (code) et à l'adapter, il est vraisemblable que vous aurez beaucoup de mal pour la compréhension et la maintenance de votre projet. Ceci étant, vous êtes libre ....
Bonjour,
Ben en fait, j'essaie de supprimer le A1
et de ce fait, je n'arrive pas à la faire fonctionner, ce serait bien si je
pouvez tester uniquement la feuille, exemple "toto"
Je vous remercie
Didier
"Filochard" <Forton.Peloz@wanadoo.fr> a écrit dans le message de news:
eXyFGl0AIHA.4612@TK2MSFTNGP03.phx.gbl...
Sub TestFeuille()
nomF = "x"
If Evaluate("iserror(" & nomF & "!A1)") Then
' instructions si la feuille existe
Else '....instructions si n'existe pas
End If
End Sub
Ben, la procédure de Filochard ne fonctionne pas,
Mais si : vous devez inverser les réponses aux tests :
le If =>> la feuille n'existe pas puisque la réponse au test d'erreur est
Oui
et le Else ==> la feuille existe
PS : Si vous n'arrivez pas à lire et comprendre ce type de réponse (code)
et à l'adapter, il est vraisemblable que vous aurez beaucoup de mal pour
la compréhension et la maintenance de votre projet.
Ceci étant, vous êtes libre ....
Bonjour, Ben en fait, j'essaie de supprimer le A1 et de ce fait, je n'arrive pas à la faire fonctionner, ce serait bien si je pouvez tester uniquement la feuille, exemple "toto" Je vous remercie Didier
"Filochard" a écrit dans le message de news:
Sub TestFeuille() nomF = "x" If Evaluate("iserror(" & nomF & "!A1)") Then ' instructions si la feuille existe Else '....instructions si n'existe pas End If End Sub
Ben, la procédure de Filochard ne fonctionne pas,
Mais si : vous devez inverser les réponses aux tests : le If =>> la feuille n'existe pas puisque la réponse au test d'erreur est Oui et le Else ==> la feuille existe
PS : Si vous n'arrivez pas à lire et comprendre ce type de réponse (code) et à l'adapter, il est vraisemblable que vous aurez beaucoup de mal pour la compréhension et la maintenance de votre projet. Ceci étant, vous êtes libre ....