Erreur d'execution 13
eista
Messages postés
2
Date d'inscription
mardi 6 janvier 2009
Statut
Membre
Dernière intervention
6 janvier 2009
-
6 janv. 2009 à 18:08
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 - 6 janv. 2009 à 21:10
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 - 6 janv. 2009 à 21:10
5 réponses
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
6 janv. 2009 à 18:33
6 janv. 2009 à 18:33
Salut
Ce code fonctionne chez moi
Pour la condition
il faut remplacer tes cells par Range
Sub macro()
If (ActiveSheet.Range("C26").Value) = "toto" _
And (ActiveSheet.Range("Q252").Value) <> (ActiveSheet.Range("AD252").Value) Then
MsgBox ("toto")
Else
MsgBox ("titi")
End If
End Sub
NB attention au catégorie tu es en VBA
Je change
Ce code fonctionne chez moi
Pour la condition
il faut remplacer tes cells par Range
Sub macro()
If (ActiveSheet.Range("C26").Value) = "toto" _
And (ActiveSheet.Range("Q252").Value) <> (ActiveSheet.Range("AD252").Value) Then
MsgBox ("toto")
Else
MsgBox ("titi")
End If
End Sub
NB attention au catégorie tu es en VBA
Je change
cs_fauve
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
6 janv. 2009 à 18:35
6 janv. 2009 à 18:35
Salut,
Je crois savoir d'où vient l'erreur, je suis pas expert en VBA mais il me semble que la syntaxe exacte c'est :
Worksheets(1).Cells(numéro_de_ligne, numéro_de_colonne)
++
Fauve
<hr size="2" width="100%" />
Pensez : Réponse Acceptée
Je crois savoir d'où vient l'erreur, je suis pas expert en VBA mais il me semble que la syntaxe exacte c'est :
Worksheets(1).Cells(numéro_de_ligne, numéro_de_colonne)
++
Fauve
<hr size="2" width="100%" />
Pensez : Réponse Acceptée
eista
Messages postés
2
Date d'inscription
mardi 6 janvier 2009
Statut
Membre
Dernière intervention
6 janvier 2009
6 janv. 2009 à 18:48
6 janv. 2009 à 18:48
Merci pour vos réponses,
mais quand je remplace mes cells par des range, j'ai une erreur n°9 qui apparait l'indice n'appartient pas à la sélection.
Que faire???
mais quand je remplace mes cells par des range, j'ai une erreur n°9 qui apparait l'indice n'appartient pas à la sélection.
Que faire???
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
6 janv. 2009 à 18:51
6 janv. 2009 à 18:51
Je ne sais pas expert VBA
Mais le code que j'ai mis dans une feuille de mon classeur xlsx 2007 fonctione.
J'ai pas d'erreur de mon coté
Mais le code que j'ai mis dans une feuille de mon classeur xlsx 2007 fonctione.
J'ai pas d'erreur de mon coté
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Orohena
Messages postés
577
Date d'inscription
vendredi 26 septembre 2008
Statut
Membre
Dernière intervention
20 novembre 2010
4
6 janv. 2009 à 21:10
6 janv. 2009 à 21:10
Bonjour
Ton erreur 13 venait effectivement du Cells, ce qui prouve de façon accablante que ce forum est plein d'experts qui s'ignorent.
L'erreur 13 masquait l'erreur 9, qui vient vient probablement du Sheets(c). La variable c n'est peut-être pas numérique, ou elle pointe une feuille inexistante. Si c est le nom d'une feuille, il faut écrire Sheets("c").
Amicalement
Ton erreur 13 venait effectivement du Cells, ce qui prouve de façon accablante que ce forum est plein d'experts qui s'ignorent.
L'erreur 13 masquait l'erreur 9, qui vient vient probablement du Sheets(c). La variable c n'est peut-être pas numérique, ou elle pointe une feuille inexistante. Si c est le nom d'une feuille, il faut écrire Sheets("c").
Amicalement