Pb boucle détection de données

Bonjour à tous,

Ce que je souhaiterai faire, c'est de créer un code afin de scanner ligne par ligne un fichier excel B, et si des données sont stockées dans cette ligne(la 1er cellule suffit), c'est de les insérer dans un autre fichiers excel A
Jusqu'à présent j'ai créer le code d ebase, mais je en sais pas trop qu'elle fonction utiliser afin de créer cette boucle de détection.

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim u 'Variable sortie de boucle (fin détection) Dim v 'Variable pour selection numéro ligne Dim NumLigne Workbooks.Open Filename:="c:\Fichier B.xls" 'ouverture du fichier telechargé v = 1 u = 0 NumLigne = 1 If u = 0 Then For v = 1 To 100   If Workbooks("Fichier B.xls").Worksheets("Feuille1").Range("A" & v) = "" Then MsgBox "Importation des données terminée..." u = 1 Else Windows("Fichier B.xls").Activate Worksheets("Feuille1").Rows(NumLigne).Select Selection.Copy Windows("Fichier A.xls").Activate Worksheets("Listing").Rows("6").Select Selection.Insert Shift:=xlDown NumLigne = NumLigne + 1 End If Next v End If

---

Pour el mooment le code permet bien de transférer les lignes, mais avec la boucle que j'utilise je me retrouve avec une centaine de message box "Importation des données terminée..."

Comment dois-je m'y prendre?
Merci d'avance

sans avoir épluché ton code, il te suffit a priori de sortir le msgbox de ta boucle. tu le place a la fin, lorque la boucle a terminé

Code:

---

1 2 3 4 5 6 7

for i = 1 to 100 if .... end if next i MsgBox "Importation des données terminée..." end sub

---

Je ne peut pas faire celà, car la condition de mon if est pour une variable égale à zéro (je voulais utiliser une condition "différent de zéro" ce qui aurait été plus approprié, mais je n'ai pas trouvé).
As moins que tu connaisses cette condition différent de zéro, celà me permettrai de sortir la partie du code message box et de résoudre ainsi mon pb.

Citation:

---

Envoyé par simonlagaffe

...(je voulais utiliser une condition "différent de zéro" ...

---

J'ai pas tout compris mais pour cela c'est :

Code:

---

if i <> 0 then

---