Discussion :

[startout]

Dans cette discussion, j'ai du mal à saisir l'intérêt de la ligne

Code :

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

debug.print Sheets(sonnom).name

Pouvez-vous l'expliquer à un débutant comme moi ?


Merci.


Edit.
Je viens de tester la fonction feuille_existe et je n'arrive pas à la faire marcher.

Je vous mets mon bout de code :

Code :

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

1
2
3
4
5
If feuille_existe("en cours client")=false then
   Sheets.add
   Sheets("feuil1").select
   Sheets("feuil1").name = "en cours client"
End if

Dans mon classeur, la feuille "en cours client" existe. Donc ma fonction devrait envoyer Vrai... et bah j'arrive à rentrer dans mon If et message d'erreur :
erreur d'exe 1004
Impossible de renommer une feuille comme une autre feuille.

Pouvez-vous m'indiquer où se situe mon erreur ?

[AlainTech]

Evite de poster à la suite d'un sujet résolu, tu risques de ne pas recevoir de réponse.

Pour ta première question, si tu tentes une action quelconque sur un objet qui n'existe pas, tu provoques une erreur.

Pour ton problème, on ne sait pas quelle syntaxe tu as choisi.
Postes-nous donc le code de feuille_existe tel que tu l'as écrit.

N'oublie pas les balises [code], stp.

[Elstak]

Slt,

Code :

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

debug.print Sheets(sonnom).name

C'est un debug.print on s'en sert pour verifier la valeur d'une variable ou autre...

Je viens de tester la fonction feuille_existe et je n'arrive pas à la faire marcher.

Je vous mets mon bout de code :

Code :

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

1
2
3
4
5
6
Code :
If feuille_existe("en cours client")=false then
   Sheets.add
   Sheets("feuil1").select
   Sheets("feuil1").name = "en cours client"
End if

la fonction feuille_existe n'est pas une fonction vba, on est d'accord?
tu as donc quelque part dans un module une fonction qui s'appele feuille_existe et qui renvoie un boolean ?

[Commodore]

Petite astuce :

Code :

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

If feuille_existe("en cours client")=false

est equivalent à :

Code :

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

If Not feuille_existe("en cours client")

[startout]

la fonction feuille_existe n'est pas une fonction vba, on est d'accord?
tu as donc quelque part dans un module une fonction qui s'appele feuille_existe et qui renvoie un boolean ?

Bonjour à tous,

Merci au modérateur d'avoir mis ma question sur un nouveau post.
J'essaierais à l'avenir de faire attention

Pour répondre à Elstak, oui j'ai fais une fonction mais par contre je ne l'ai pas mis dans un module. C'est peux-être là mon erreur.
Je joins le code de la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
Function feuille_existe(sonnom As String) As Boolean
   On Error GoTo final
      Sheets(sonnom).Select
   feuillexiste = True
   Exit Function
final:
 feuillexiste = False
 On Error GoTo 0
  End Function

Comme cela ne fonctionnait pas. J'ai cherché autre chose et j'ai mis le code suivant :

Code :

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

1
2
3
4
5
 
function feuille_existe(nom as string) as boolean
  On error resume next
  set x=activeworkbooks.sheet(nom)
  if err = 0 then feuille_existe = true else : feuille_existe=false

Et là avec ce code, ça fonctionne.


Merci pour Debug.
A plus tard.
Je mets le post en résolu.