Discussion :

[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,

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

Merci d'avance

[Transitoire]

Bonjour!

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

[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!

[der43e]

Je m'en suis sortie!

c'est simplement avec la ligne:

Code :

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

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

et

Code :

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

1
2
WBSource.Worksheets(2).Rows(id).Copy _
    Destination:=WBDest.Worksheets(2).Cells(i, 1)

Merci de votre aide!

[der43e]

Voici le code complet

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
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