Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pourquoi ça marche pas

Pourquoi ça marche pas

4 réponses
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Daniel.C
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" a écrit dans le message de news:

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


Avatar
Lulu la Nantaise
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" a écrit dans le message de news:

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






Avatar
R1
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" a écrit dans le message de news:

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




Avatar
Lulu la Nantaise
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" a écrit dans le message de news:

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