XL 2016 Boucle sur colonne avec Msgbox - RESOLU -

[bibbip35]

Bonjour à Tous

Je souhaiterais créer un code pour faire afficher une MsgBox selon la valeur contenu dans la colonne D
Si valeur > 0 , je souhaiterais qu'une msgbox apparaisse avec la valeur de la colonne A & B & C

Aujourd'hui , j'arrive a faire un code mais il faut que je réalise pour toute les lignes ce qui est plutôt long
car mon fichier peut contenir > 1000 lignes

Est-il possible de faire une Boucle avec une Msg Box

Merci à tous pour votre Aide

Bibbip35

Sub Test()
If Sheets("Error Import Qty Cpts").Range("D2").Value > 0 Then
MsgBox "Attention ; le nombre de Cpts est Incoherent :" & Format(Sheets("Error Import Qty Cpts").Range("D2").Value) & " ont été Importé alors que le " & Format(Sheets("Error Import Qty Cpts").Range("A2").Value) & " théorique" & Chr(10) & "Veuillez SVP vérifier qu'il n'y a pas de cellules vides dans la colonne Quantité de la BOM de réferences...", 16, "Data Import BOM incomplet"
End If
If Sheets("Error Import Qty Cpts").Range("D3").Value > 0 Then
MsgBox "Attention ; le nombre de Cpts est Incoherent :" & Format(Sheets("Error Import Qty Cpts").Range("D3").Value) & " ont été Importé alors que le " & Format(Sheets("Error Import Qty Cpts").Range("A3").Value) & " théorique" & Chr(10) & "Veuillez SVP vérifier qu'il n'y a pas de cellules vides dans la colonne Quantité de la BOM de réferences...", 16, "Data Import BOM incomplet"
End If

 

[Jacky67]

Aujourd'hui , j'arrive a faire un code mais il faut que je réalise pour toute les lignes ce qui est plutôt long
car mon fichier peut contenir > 1000 lignes

Est-il possible de faire une Boucle avec une Msg Box

Bonsoir,
Si j'ai bien compris..............., voir pj si cela convient

 

[bibbip35]

Bonsoir Jacky67

Merci C'est exactement ce que je voulais faire !!!

Merci et bonne soirée