1 seul msgbox à la place de plusieurs

odile · 29 Mars 2006

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 · 29 Mars 2006

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 · 29 Mars 2006

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 · 29 Mars 2006

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 · 29 Mars 2006

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

1 seul msgbox à la place de plusieurs

odile

Guest

PascalXLD

XLDnaute Barbatruc

odile

Guest

PascalXLD

XLDnaute Barbatruc

odile

Guest

Discussions similaires