Re : extraction de données vba
Oups je peux rajouter une condition tres vite fait à la macro ^^ je viens de m'en appercevoir!!!
Regarde avant j'ai même rajouté un ligne
Sub NouvoMouvementDaily()
Dim I As Integer, Cellule As Range, DerLigne As Integer
With Sheets("Port_FC+")
For I = 4 To .Range("E" & Rows.Count).End(xlUp).Row
Set Cellule = Sheets("Port_FC+_SansMvt").Columns(1).Find(.Range("E" & I), LookIn:=xlFormulas, LookAt:=xlWhole)
If Cellule Is Nothing Then
DerLigne = Sheets("Port_FC+_SansMvt").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Port_FC+_SansMvt").Range("A" & DerLigne) = .Range("E" & I)
Sheets("Port_FC+_SansMvt").Range("C" & DerLigne) = .Range("F" & I)
Sheets("Port_FC+_SansMvt").Range("I" & DerLigne) = .Range("J" & I)
Sheets("Port_FC+_SansMvt").Range("O" & DerLigne) = .Range("G" & I)
End If
Next I
End With
End Sub
Mais tu vois par exemple dans mon fichier defois dans l'onglet Port_FC+ en colonne J il n'y a rien de marqué dans ce cas ces ligne là ne sont pas a prendre en compte dans le reste de la macro!!
Je suis vraiment dslé de rajouter une condition
Merci encore
Bonne journée
Garrec