Discussion :

[simonlagaffe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[simonlagaffe]

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.

[JackOuYA]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if i <> 0 then