VBA Copier ligne d'un autre fichier si non vide

Version imprimable

19/04/2018, 14h31
der43e

VBA Copier ligne d'un autre fichier si non vide

Bonjour,

je cherche une solution pour aller vérifier depuis mon fichier2 dans mon fichier1 les cellules A10 à A210 si elles sont remplis, si c'est le cas je voudrait les affichés (copier) dans mon fichier2 toutes a la suite,

est ce que l'un de vous pourrait me données un idées SVP?

Merci d'avance
20/04/2018, 04h54
Transitoire

Bonjour!

Citation:

Envoyé par der43e

Bonjour,
je cherche une solution pour aller vérifier depuis mon fichier2 dans mon fichier1 les cellules A10 à A210 si elles sont remplis, si c'est le cas je voudrait les affichés (copier) dans mon fichier2 toutes a la suite,

Qu'appellez vous fichier? est-ce une feuille, un classeur, une base de données?
Au vu du peu de détails, je dirais, vous effectuez une boucle de la cellule A10 a A210 qui permet de vérifier la valeur des cellules. Si elle sont remplies sélection.copy et Paste à la première ligne libre du fichier2
Cordialement 8-)
20/04/2018, 15h19
der43e

Bonjour, c'est un classeur excel ( un fichier.xlsx)

effectivement c'est bien ce que je voudrait faire mais comment aller chercher des information dans un autre classeur excel?

faire un boucle dans le même fichier je devrais m'en sortir mais dans un fichier autre je ne vois pas trop...

Merci d'avance!

Je m'en suis sortie!

c'est simplement avec la ligne:
Code:

1 2 Set WBSource = Workbooks("NomFichier.xlsx") Set WBDest = Workbooks("NomFichier.xlsm")
et
Code:

1 2 WBSource.Worksheets(2).Rows(id).Copy _ Destination:=WBDest.Worksheets(2).Cells(i, 1)
Merci de votre aide!

Voici le code complet

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
25
26
27
28
29
30
31
32
33
34
Sub ImportFR()
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer
Dim id As Integer
'Ouverture fichier liste
adr = ThisWorkbook.Path & "\NomFichier.xlsx"
Workbooks.Open adr
Set WBSource = Workbooks("NomFichier.xlsx")
Set WBDest = Workbooks("NomFichier.xlsm")
 
i = 21
id = 15
 
  While id <= 96 'TANT QUE la variable numero est <= 96, la boucle est répétée
 
 
  If WBSource.Worksheets(1).Cells(id, 1) >= 1 Then ' => SI condition validée ALORS
'Copie la id ligne de la premiere feuille dans le classeur source.
'Colle la ligne à la suite de la derniere ligne non vide dans le classeur de
'destination.
WBSource.Worksheets(1).Rows(id).Copy _
    Destination:=WBDest.Worksheets(1).Cells(i, 1)
     i = i + 1 'Le numéro est augmenté de 1 à chaque boucle
Else ' => SINON
   'Instructions si faux
End If
 
 
   id = id + 1 'Le numéro est augmenté de 1 à chaque boucle
 
    Wend
MsgBox "Importation terminée"
 
End Sub