Boucle While Loop
Bonjour à vous,
Nous sommes coincés sur une boucle While Loop...
Un message d'erreur apparaît, nous disant que : " Erreur 438 "
Ci-dessous une partie du code qui pose problème:
'Tant qu'il y a une donnée dans la colonne 1, on continue de traiter les lignes
While (Cells(ligneDeb, 1).Values <> "")
'On teste si la colonne colConcatA1A2 est égale aux criteres
If Cells(ligneDeb, colConcatA1A2).Value = critere Then
If chaineResultat = "" Then
chaineResultat = Cells(ligneDeb, colConcatNomPrenom).Value
Else
chaineResultat = chaineResultat & " / " & Cells(ligneDeb, colConcatNomPrenom).Value
End If
End If
'On passe a la ligne suivante
ligneDeb = ligneDeb + 1
Loop
'On a terminé, si la chaine n'est pas vide on la remet dans l'onglet synthese
If chaineResultat <> "" Then
ActiveWorkbook.Sheets(ongletSynthese).Select
Cells(6, 8).Value = chaineResultat
End If
'FIN
End Sub
Merci pour votre aide...
Bonjour barth66,
Lorsque tu remontes une erreur, il est également important de nous renseigner sur le message associé à cette erreur.
Toute le monde ne connait pas forcément les codes erreur par coeur.
Dans ton cas, l'erreur 438 est associée à une "Propriété ou méthode non gérée par ce projet".
Un autre point important est de pointer la ligne de code sur laquelle survient cette erreur. Ça permet de déboguer plus facilement.
Je n'ai pas regardé plus en avant mais l'erreur semble se passer à la ligne suivante :
While (Cells(ligneDeb, 1).[surligner=#ff0000]Value[barrer]s[/barrer] <> "")La propriété Values n'existe pas pour un objet "Cells..." Il faut corriger par
While (Cells(ligneDeb, 1).Value <> "")Bonjour,
Je suis novice sur le forum.
Excusez moi de m'être mal exprimé.
Merci pour ta réponse, je viens de modifier le code en mettant "Value" mais j'ai une erreur de compilation: Boucle sans Do
Mais quand je positionne le "Do":
'Tant qu'il y a une donnée dans la colonne 1, on continue de traiter les lignes
Do While (Cells(ligneDeb, 1).Value <> "")
'On teste si la colonne colConcatA1A2 est égale aux criteres
If Cells(ligneDeb, colConcatA1A2).Value = critere Then
If chaineResultat = "" Then
chaineResultat = Cells(ligneDeb, colConcatNomPrenom).Value
Else
chaineResultat = chaineResultat & " / " & Cells(ligneDeb, colConcatNomPrenom).Value
End If
End If
'On passe a la ligne suivante
ligneDeb = ligneDeb + 1
Loop
'On a terminé, si la chaine n'est pas vide on la remet dans l'onglet synthese
If chaineResultat <> "" Then
ActiveWorkbook.Sheets(ongletSynthese).Select
Cells(6, 8).Value = chaineResultat
End If
'FIN
End Sub
Je n'ai plus d'erreur mais la macro ne marche toujours pas..
Tu peux joindre un bout de ton fichier ? Difficile de traquer les erreurs sinon.
Si tu as des données confidentielles, mets-y des données bidons.