J'ai une petite macro qui compte des voyelles dans une liste de mots et
qui "ajuste" le nombre de caractères de chaque mot en éliminant les
signes spéciaux (tiret, espace, apostrophe)
Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle
fasse le boulot sur des lignes vides... mais elle plante justement à cet
endroit: le message est "Next sans For".
------------------------------------
For q = To 950
--> If Cells(q, 1) = "" Then Next q
Mot = Cells(q, 2)
NombreVoyelle = 0
NBlettres = Len(Mot)
For Compteur = 1 To Len(Mot)
Select Case Mid(Mot, Compteur, 1) 'compte les voyelles
Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â",
"ù", "û", "à", "ü", "ë"
NombreVoyelle = NombreVoyelle + 1
End Select
Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides
Case " ", "-", "'", ".", ","
NBlettres = NBlettres - 1
End Select
Next
"Pierre F." a écrit dans le message de news: c355$48ca3b3d$55da2b33$
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et qui "ajuste" le nombre de caractères de chaque mot en éliminant les signes spéciaux (tiret, espace, apostrophe) Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle fasse le boulot sur des lignes vides... mais elle plante justement à cet endroit: le message est "Next sans For".
------------------------------------ For q = To 950 --> If Cells(q, 1) = "" Then Next q
Mot = Cells(q, 2) NombreVoyelle = 0 NBlettres = Len(Mot)
For Compteur = 1 To Len(Mot) Select Case Mid(Mot, Compteur, 1) 'compte les voyelles Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â", "ù", "û", "à", "ü", "ë" NombreVoyelle = NombreVoyelle + 1 End Select Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides Case " ", "-", "'", ".", "," NBlettres = NBlettres - 1 End Select Next
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de news:
c355$48ca3b3d$55da2b33$19967@news.hispeed.ch...
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et
qui "ajuste" le nombre de caractères de chaque mot en éliminant les signes
spéciaux (tiret, espace, apostrophe)
Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle fasse
le boulot sur des lignes vides... mais elle plante justement à cet
endroit: le message est "Next sans For".
------------------------------------
For q = To 950
--> If Cells(q, 1) = "" Then Next q
Mot = Cells(q, 2)
NombreVoyelle = 0
NBlettres = Len(Mot)
For Compteur = 1 To Len(Mot)
Select Case Mid(Mot, Compteur, 1) 'compte les voyelles
Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â",
"ù", "û", "à", "ü", "ë"
NombreVoyelle = NombreVoyelle + 1
End Select
Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides
Case " ", "-", "'", ".", ","
NBlettres = NBlettres - 1
End Select
Next
"Pierre F." a écrit dans le message de news: c355$48ca3b3d$55da2b33$
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et qui "ajuste" le nombre de caractères de chaque mot en éliminant les signes spéciaux (tiret, espace, apostrophe) Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle fasse le boulot sur des lignes vides... mais elle plante justement à cet endroit: le message est "Next sans For".
------------------------------------ For q = To 950 --> If Cells(q, 1) = "" Then Next q
Mot = Cells(q, 2) NombreVoyelle = 0 NBlettres = Len(Mot)
For Compteur = 1 To Len(Mot) Select Case Mid(Mot, Compteur, 1) 'compte les voyelles Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â", "ù", "û", "à", "ü", "ë" NombreVoyelle = NombreVoyelle + 1 End Select Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides Case " ", "-", "'", ".", "," NBlettres = NBlettres - 1 End Select Next
Bonjour, Remplace For q = To 950 par For q = 1 To 950
If Cells(q, 1) = "" Then Next q par If Cells(q, 1) <> "" Then
ça devrait aller -- Cordialement
"Pierre F." a écrit dans le message de news:c355$48ca3b3d$55da2b33$
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et qui "ajuste" le nombre de caractères de chaque mot en éliminant les signes spéciaux (tiret, espace, apostrophe) Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle fasse le boulot sur des lignes vides... mais elle plante justement à cet endroit: le message est "Next sans For".
------------------------------------ For q = To 950 --> If Cells(q, 1) = "" Then Next q
Mot = Cells(q, 2) NombreVoyelle = 0 NBlettres = Len(Mot)
For Compteur = 1 To Len(Mot) Select Case Mid(Mot, Compteur, 1) 'compte les voyelles Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â", "ù", "û", "à", "ü", "ë" NombreVoyelle = NombreVoyelle + 1 End Select Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides Case " ", "-", "'", ".", "," NBlettres = NBlettres - 1 End Select Next
Bonjour,
Remplace
For q = To 950
par
For q = 1 To 950
If Cells(q, 1) = "" Then Next q
par
If Cells(q, 1) <> "" Then
ça devrait aller
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Pierre F." <pfornerodNO@SPAMhotmail.com> a écrit dans le message de
news:c355$48ca3b3d$55da2b33$19967@news.hispeed.ch...
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et
qui "ajuste" le nombre de caractères de chaque mot en éliminant les signes
spéciaux (tiret, espace, apostrophe)
Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle fasse
le boulot sur des lignes vides... mais elle plante justement à cet
endroit: le message est "Next sans For".
------------------------------------
For q = To 950
--> If Cells(q, 1) = "" Then Next q
Mot = Cells(q, 2)
NombreVoyelle = 0
NBlettres = Len(Mot)
For Compteur = 1 To Len(Mot)
Select Case Mid(Mot, Compteur, 1) 'compte les voyelles
Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â",
"ù", "û", "à", "ü", "ë"
NombreVoyelle = NombreVoyelle + 1
End Select
Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides
Case " ", "-", "'", ".", ","
NBlettres = NBlettres - 1
End Select
Next
Bonjour, Remplace For q = To 950 par For q = 1 To 950
If Cells(q, 1) = "" Then Next q par If Cells(q, 1) <> "" Then
ça devrait aller -- Cordialement
"Pierre F." a écrit dans le message de news:c355$48ca3b3d$55da2b33$
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et qui "ajuste" le nombre de caractères de chaque mot en éliminant les signes spéciaux (tiret, espace, apostrophe) Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle fasse le boulot sur des lignes vides... mais elle plante justement à cet endroit: le message est "Next sans For".
------------------------------------ For q = To 950 --> If Cells(q, 1) = "" Then Next q
Mot = Cells(q, 2) NombreVoyelle = 0 NBlettres = Len(Mot)
For Compteur = 1 To Len(Mot) Select Case Mid(Mot, Compteur, 1) 'compte les voyelles Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â", "ù", "û", "à", "ü", "ë" NombreVoyelle = NombreVoyelle + 1 End Select Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides Case " ", "-", "'", ".", "," NBlettres = NBlettres - 1 End Select Next
"Pierre F." wrote in message news:c0252$48ca9e27$55da2b33$
Jpmonnier a écrit :
Bonjour, Remplace For q = To 950 par For q = 1 To 950
OK c'était un erreur de "transcription"
If Cells(q, 1) = "" Then Next q par If Cells(q, 1) <> "" Then
ça devrait aller
La macro s'arrête: "Next sans For"
Que devrais-je mettre à la suite du Then ?
Cordialement, Pierre F.
Misange
Bonjour essaie cela :
For q = 1 To 950 If Cells(q, 1) <> "" Then
Mot = Cells(q, 2) NombreVoyelle = 0 NBlettres = Len(Mot)
> For Compteur = 1 To Len(Mot) > Select Case Mid(Mot, Compteur, 1) 'compte les voyelles > Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â", > "ù", "û", "à", "ü", "ë" > NombreVoyelle = NombreVoyelle + 1 > End Select > Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides > Case " ", "-", "'", ".", "," > NBlettres = NBlettres - 1 > End Select > Next > > Cells(q, 3) = NombreVoyelle > Cells(q, 5) = NBlettres > > Next q
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Pierre F. a écrit :
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et qui "ajuste" le nombre de caractères de chaque mot en éliminant les signes spéciaux (tiret, espace, apostrophe) Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle fasse le boulot sur des lignes vides... mais elle plante justement à cet endroit: le message est "Next sans For".
------------------------------------
-------------------------------------
merci pour votre aide.
Cordialement, Pierre F.
Bonjour
essaie cela :
For q = 1 To 950
If Cells(q, 1) <> "" Then
Mot = Cells(q, 2)
NombreVoyelle = 0
NBlettres = Len(Mot)
> For Compteur = 1 To Len(Mot)
> Select Case Mid(Mot, Compteur, 1) 'compte les voyelles
> Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â",
> "ù", "û", "à", "ü", "ë"
> NombreVoyelle = NombreVoyelle + 1
> End Select
> Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides
> Case " ", "-", "'", ".", ","
> NBlettres = NBlettres - 1
> End Select
> Next
>
> Cells(q, 3) = NombreVoyelle
> Cells(q, 5) = NBlettres
>
> Next q
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Pierre F. a écrit :
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et
qui "ajuste" le nombre de caractères de chaque mot en éliminant les
signes spéciaux (tiret, espace, apostrophe)
Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle
fasse le boulot sur des lignes vides... mais elle plante justement à cet
endroit: le message est "Next sans For".
Mot = Cells(q, 2) NombreVoyelle = 0 NBlettres = Len(Mot)
> For Compteur = 1 To Len(Mot) > Select Case Mid(Mot, Compteur, 1) 'compte les voyelles > Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â", > "ù", "û", "à", "ü", "ë" > NombreVoyelle = NombreVoyelle + 1 > End Select > Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides > Case " ", "-", "'", ".", "," > NBlettres = NBlettres - 1 > End Select > Next > > Cells(q, 3) = NombreVoyelle > Cells(q, 5) = NBlettres > > Next q
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Pierre F. a écrit :
Bonjour à toutes et à tous
J'ai une petite macro qui compte des voyelles dans une liste de mots et qui "ajuste" le nombre de caractères de chaque mot en éliminant les signes spéciaux (tiret, espace, apostrophe) Les résultats sont ensuite placés dans les colonnes C et E
Je souhaiterais y ajouter un test à la 2e ligne pour éviter qu'elle fasse le boulot sur des lignes vides... mais elle plante justement à cet endroit: le message est "Next sans For".
------------------------------------
-------------------------------------
merci pour votre aide.
Cordialement, Pierre F.
Pierre F.
Mishell a écrit :
Bonjour
For q = 1 To 950 If Cells(q, 1) <> "" Then
Mot = Cells(q, 2) NombreVoyelle = 0 NBlettres = Len(Mot)
For Compteur = 1 To Len(Mot) Select Case Mid(Mot, Compteur, 1) 'compte les voyelles Case "a", "e", "i", "o", "u", "y", "é", "è", "ê", "î", "ô", "â", "ù", "û", "à", "ü", "ë" NombreVoyelle = NombreVoyelle + 1 End Select Select Case Mid(Mot, Compteur, 1) 'décompte les espaces vides Case " ", "-", "'", ".", "," NBlettres = NBlettres - 1 End Select Next