1 seul msgbox à la place de plusieurs

[odile]

Bonjour à tous et à toutes


j'ai une boucle avec condition. Si cette condition n'est pas remplie, j'ai un msgbox qui avertit l'utilisateur de son erreur en spécifiant la ligne incriminée. Si cette erreur se retrouve sur plusieurs valeurs de ma variable, j'aurais autant de msgbox identiques avec pour seule différence la ligne sur laquelle se trouve l'erreur.

Mon but serait de n'avoir qu'un seul msgbox avec toutes les lignes concernées.

ci-joint un fichier exemple

merci pour l'aide que vous pourrez m'apporter
Odile

 

[PascalXLD]

Bonjour

recupère toutes tes lignes dans une variable string et tu testes à la fin ta variable
si elle n'est pas vide ta msgbox avec ta variable pour indiquer les ligne

Bon courage

 

[odile]

ouh là, ouh là, j'imagine que c'est clair pour toi, mais si tu pouvais me montrer 1 exemple, ce serait plus parlant pour moi. Je débute en vba

En tout cas merci pour ta réponse

Odile

 

[PascalXLD]

RE

un exemple je regarde s'il n'y a pas de lignes vides entre 2 dans ma colonne A

si il y en a j'indique à la fin toutes les lignes

Dim x As Integer
Dim MesLignes As String

For x = 1 To Range('A65536').End(xlUp).Row
If Range('A' & x) = '' Then
MesLignes = IIf(MesLignes = '', x, MesLignes & '; ' & x)
End If
Next

If MesLignes ‹› '' Then
MsgBox 'Attention ligne(s) ' & MesLignes & ' non remplie(s)'
Exit Sub
End If

Bon courage

 

[odile]

ok ça y'est, j'ai compris !!
merci Pascal