Discussion :

[theBinette]

Bonjour,

J'ai un souci de codage pour faire une macro.
Je voudrais dans un fichier, analyser le contenu d'une cellule, qui quand elle est correcte, je copie la cellule dans un autre fichier, je passer a la ligne du dessous et je continue ma boucle

J'arrive bien à copier le contenu, mais après la premiere occurence correcte, ca ne copie

Je vous met un bout du 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
25
26
27
28
29
30
31
32
33
34
 
Dim FileTxt As Variant
Dim FileRecep As String
Dim Wb As Workbook
Dim I As Integer
Dim Cell_N As String
Dim SourceLine As String
 
'   Sélectionner le fichier
FileTxt = Application.GetOpenFilename("All Excel Files (*.xlsx*),*.xlsx", , "Sélectionnez un fichier")
 
'   Ouvrir le fichier sur la bonne sheet
If FileTxt <> False Then
Set Wb = Workbooks.Open(FileTxt)
Sheets("Missing Time - Details").Select
I = 8
C = 1
Do While I < 10000
I = I + 1
Cell_N = Range("B" & I).Value
SourceLine = ("A" & C)
 
If Cell_N = "France" Then
        Range("A" & I & ":F" & I).Select
        Selection.Copy
        Windows("Book1").Activate
        Range(SourceLine).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        C = C + 1
    End If
 
Loop
 
End If

Je ne comprend / sais pas comment faire pour que la boucle continu

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Ce que j'en déduis, c'est qu'il s'agit d'une exportation avec critère.
Il n'y a pas besoin de boucle pour effectuer cela.
Deux solutions, soit Power Query soit la méthode AdvancedFilter de l'objet Range (Une ligne de code après avoir déclaré les variables et définit la zone des critères)
A lire sur le dernier sujet Les filtres avancés ou élaborés dans Excel

[theBinette]

Merci je vais regarder cela de suite