Discussion :

[niafron71]

Bonjour,

Je cherche à recopier des données d'un classeur Excel à un autre suivant si la cellule(i,2) est égale à 1110 (ou i varie de 1 au nombre de ligne). Je ne comprends pas où est l'erreur dans mon 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
 
Sub Export()
Dim BASE As Workbook
Dim FD As Worksheet
Dim WS As Worksheet
Dim NBligne As Long, NBcolonne As Long, i As Long, j As Long, compteur As Long
BASE = "C:\Documents and Settings\FRONTIERE-02719\Bureau\doc flo\SAP_DASHBOARD\Export indicateur\Test_Export.xls"
FD = BASE.Worksheet("Feuil1")
WS = ThisWorkbook.Worksheets("Feuil1")
With FD
        NBligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        NBcolonne = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
 
compteur = 1
For i = 2 To NBligne
For j = 1 To NBcolonne - 6
    If FD.Cells(i, 2) = "1110" Then compteur = compteur + 1 And WS.Cells(compteur, j) = FD.Cells(i, j + 6)
	ElseIf FD.Cells(i,2) <> "1110" then compteur = compteur
	Else compteur = compteur
    End If
Next j
Next i 
End Sub

[niafron71]

Petite précision le classeur ou se trouve les données peut être ouvert ou fermé au moment de la mise à jour.

[niafron71]

Bonjour,

Voici le code modifier et qui fonctionne.

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
 
Sub Macro2()
Dim WS As Worksheet
Dim NBligne As Long, NBcolonne As Long, i As Long, j As Long, compteur As Long
Set WS1 = ThisWorkbook.Worksheets("Feuil1")
Set WS2 = ThisWorkbook.Worksheets("Feuil2")
With WS1
        NBligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        NBcolonne = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
 
compteur = 1
For i = 2 To NBligne
    If WS1.Cells(i, 2) = "1110" Then
        compteur = compteur + 1
        For j = 1 To NBcolonne - 6
            If WS1.Cells(i, 2) = "1110" And WS1.Cells(i, j + 6) <> "(NULL)" Then
                WS2.Cells(compteur, j) = WS1.Cells(i, j + 6)
            ElseIf WS1.Cells(i, 2) <> "1110" Then
                compteur = compteur
            Else
                compteur = compteur
            End If
        Next j
    End If
Next i
End Sub

Je voudrais maintenant remplacer la feuille source (WS1) par une feuille d'un autre classeur, mais qui est fermé lors du lancement de la macro. Si vous avez des idées je vous remercie!