Bonjour à tous,
J'essaie de pouvoir extraire des lignes (ou partie) sous certaines conditions avec le code suivant:
Sub test()
Dim a
Dim Montab
Dim Der As Integer
Dim i As Integer
Der = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
Montab = Sheets(1).Range("A1:C" & Der)
For i = 1 To Der
If Montab(i, 1) <> "111" And Montab(i, 2) = "" And Montab(i, 3) = "" Then
a = Montab(i, 1)
End If
Next i
'Sheets(2).Range("A1").Resize(UBound(a, 1), UBound(a, 2)) = a
'Sheets(2).Range("A1") = a
End Sub
Quand je mets un espoin sur "a", il semble bien prendre les bonnes valeurs mais je n'arrive pas ensuite à transférer ces données sur la feuille du classeur.
L'exemple en classeur joint.
Merci
Cdlt
J'essaie de pouvoir extraire des lignes (ou partie) sous certaines conditions avec le code suivant:
Sub test()
Dim a
Dim Montab
Dim Der As Integer
Dim i As Integer
Der = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
Montab = Sheets(1).Range("A1:C" & Der)
For i = 1 To Der
If Montab(i, 1) <> "111" And Montab(i, 2) = "" And Montab(i, 3) = "" Then
a = Montab(i, 1)
End If
Next i
'Sheets(2).Range("A1").Resize(UBound(a, 1), UBound(a, 2)) = a
'Sheets(2).Range("A1") = a
End Sub
Quand je mets un espoin sur "a", il semble bien prendre les bonnes valeurs mais je n'arrive pas ensuite à transférer ces données sur la feuille du classeur.
L'exemple en classeur joint.
Merci
Cdlt