Discussion :

[souhail72]

Bonjour tout le monde.
Je suis novice sur le VB, je commence a peine a toucher, je vous expose ma problématique :
j'ai un fichier excel fait de deux feuilles
Feuille1 vierge
feuille2 avec des données, une colonne nous intéresse , exemple la D
Mon souhait est de parcourir cette colonne D et copier les cellules dans la feuille1 qui présentent des valeurs différentes de zéro.
Merci à vous
cdt

[Kimy_Ire]

Bonjour souhail72,

Hum... N'est-il pas possible, simplement, de filtrer ta colonne D sur les valeurs non-nulles et de les coller dans la feuille vierge ?

Cordialement,
Kimy

[Devqnn]

Bonjour à toi,


Je suis pas sur que cela corresponde à ce que tu attends, mais ce type de code pourrait t'intéresser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim x as integer
Dim y as integer
 
While Sheets("Feuill2").Cells(x,4)<>""
If Sheets("Feuill2").Cells(x,4)<>0 Then
Sheets("Feuill1").Cells(y,1)= Sheets("Feuill2").Cells(x,4).Value
y=y+1
EndIf
x=x+1
Wend

Cela va recopier les cellules de ta Feuill2 situer en colonne D (4), et les copier dans la Feuill1 si elle sont différentes de 0

N'hésite pas si ça ne répond pas à ce que tu veux

Cdt,
Dev

[souhail72]

Pas possible Kimmy
Au fait c'est dans un ordre global.

Je m'explique :

Orange envoi un fichier fait de 3 feuille pour générer un devis, ces trois feuilles ne sont pas modifiables, je souhaite au fait récupérer juste des données qui m’intéresse dans toutes les feuilles, faire un contrôle et coller le résultat dans un fichier de sortie.

J'ai beaucoup de ligne a traiter.

[Kimy_Ire]

Dans la même idée que Devqnn, voici :

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
Sub souhail72()
Dim oRng As Range
Dim oWksh As Worksheet
 
For Each oWksh In Worksheets
    If oWksh.Name <> "Ma feuille de résultats" Then
        With oWksh
            Set oRng = .Range("D1")
            For i = 1 To .Cells(Rows.Count, 4).End(xlUp).Row - 1
                If oRng.Offset(i, 0) <> 0 Then
                    'Pour toute la ligne
                    Worksheets("Ma feuille de résultats").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow.Value = oRng.Offset(i, 0).EntireRow.Value
 
                    'Pour juste les valeurs de D (à décommenter)
                    'Worksheets("Ma feuille de résultats").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = oRng.Offset(i, 0)
                End If
            Next i
        End With
    End If
Next oWksh
 
End Sub

Cette macro parcours toutes les feuilles de ton classeur sauf la feuille "Ma feuille de résultats".
Elle va regarder en colonne D toutes les valeurs différentes de 0 et recopier la ligne complète (ou seulement la cellule D) dans la feuille de résultats.

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[souhail72]

Super merci Kimmy pour le soutient.
J'avance sur mon projet et je vous tien au courant. Merci bcp

[souhail72]

Désolé Kimmy une autre question svp.

La on a traité que sur la colonne D, et si on veut traiter sur la colonne E et F aussi ?

J'ai essayé de bidouiller mais impossible. Merci de ton aide