Pourquoi ça marche pas

Le
Lulu la Nantaise
Bonjour,

Do While IsEmpty(Range("Activités!B" & compt))

If UCase(Range("Activités!B" & compt)) Like UCase(MotCle) Then
ListeActivite = ListeActivite & ";" & Range("Activités!A" &
compt).Value
compt = compt + 1

Loop

La boucle ci-dessus ne fonctionne pas : "Erruer de compilation : Boucle
sans Do"

Merci de votre aide

Lulu
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17280301
Bonjour.
En fait, c'est un "end if" qui manque. Le compilateur n'arrive pas à
déterminer la paire (do - loop, if - end if) qui est incomplète.
Cordialement.
Daniel
"Lulu la Nantaise"
Bonjour,

Do While IsEmpty(Range("Activités!B" & compt))

If UCase(Range("Activités!B" & compt)) Like UCase(MotCle) Then
ListeActivite = ListeActivite & ";" & Range("Activités!A" &
compt).Value
compt = compt + 1

Loop

La boucle ci-dessus ne fonctionne pas : "Erruer de compilation : Boucle
sans Do"

Merci de votre aide

Lulu


Lulu la Nantaise
Le #17280291
Oups ;-)
Merci


Daniel.C a écrit :
Bonjour.
En fait, c'est un "end if" qui manque. Le compilateur n'arrive pas à
déterminer la paire (do - loop, if - end if) qui est incomplète.
Cordialement.
Daniel
"Lulu la Nantaise"
Bonjour,

Do While IsEmpty(Range("Activités!B" & compt))

If UCase(Range("Activités!B" & compt)) Like UCase(MotCle) Then
ListeActivite = ListeActivite & ";" & Range("Activités!A" &
compt).Value
compt = compt + 1

Loop

La boucle ci-dessus ne fonctionne pas : "Erruer de compilation : Boucle
sans Do"

Merci de votre aide

Lulu






R1
Le #17281031
Daniel.C wrote on samedi 20 septembre 2008 10:50:

Bonjour.
En fait, c'est un "end if" qui manque. Le compilateur n'arrive pas à
déterminer la paire (do - loop, if - end if) qui est incomplète.
Cordialement.
Daniel


De plus, je ne comprends pas l'intérêt:
Tant que BCompteur est vide, comparer BCompteur à Motccle
Ca ne doit pas donner grand chose.

R1

"Lulu la Nantaise"
Bonjour,

Do While IsEmpty(Range("Activités!B" & compt))

If UCase(Range("Activités!B" & compt)) Like UCase(MotCle) Then
ListeActivite = ListeActivite & ";" & Range("Activités!A" &
compt).Value
compt = compt + 1

Loop

La boucle ci-dessus ne fonctionne pas : "Erruer de compilation : Boucle
sans Do"

Merci de votre aide

Lulu




Lulu la Nantaise
Le #17287881
Ben ça fonctionne :

Sub ListeParMotsCle()

MotCle = "*" & ['Choix'!B1] & "*"

listeactivite = ""

Compt = 2
Compt2 = 0

Do Until IsEmpty(Range("Activités!B" & Compt))

If UCase(Range("Activités!B" & Compt)) Like UCase(MotCle) Then
Compt2 = Compt2 + 1
Range("Liste!A" & Compt2) = Range("Activités!A" & Compt).Value

End If

Compt = Compt + 1

Loop

Range("B3").ClearContents

ActiveWorkbook.Names.Add Name:="Liste",
RefersToR1C1:="=Liste!R1C1:R" & Compt2 & "C1"

With Range("B3").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:=xlBetween, Formula1:=IIf(Compt2 = 0, "Aucune rubrique
correspondante", "=Liste")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

If Compt2 = 0 Then [Liste!A1] = "Aucune rubrique correspondante"

Range("B3") = [Liste!A1]

End Sub


R1 a écrit :
Daniel.C wrote on samedi 20 septembre 2008 10:50:

Bonjour.
En fait, c'est un "end if" qui manque. Le compilateur n'arrive pas à
déterminer la paire (do - loop, if - end if) qui est incomplète.
Cordialement.
Daniel


De plus, je ne comprends pas l'intérêt:
Tant que BCompteur est vide, comparer BCompteur à Motccle
Ca ne doit pas donner grand chose.

R1

"Lulu la Nantaise"
Bonjour,

Do While IsEmpty(Range("Activités!B" & compt))

If UCase(Range("Activités!B" & compt)) Like UCase(MotCle) Then
ListeActivite = ListeActivite & ";" & Range("Activités!A" &
compt).Value
compt = compt + 1

Loop

La boucle ci-dessus ne fonctionne pas : "Erruer de compilation : Boucle
sans Do"

Merci de votre aide

Lulu







Publicité
Poster une réponse
Anonyme