champs non obligatoire

Bonjour,

voici mon problème,

je travail avec deux fichier xls

dans l'un des fichier j'ai la totalité de mes données(fichier 1)
dans l'autres j'aimerai recupéré certaine donnée du fichier 1
pour celà je demande a l'utilisateur de remplir un certain nombre de champs (faculatif)
une fois le champs remplis on clique sur un ptit bouton et le système vas copier juste les ligne correspondant aux critère demandé

Pour le moment mon programme vas bien chercherles donéée mais si par exemple aucun champs n'est rempli il me copie plisieur fois les prelière ligne puis seulement les donnée qui suivent

je travail avec une boucle for...to... next dans lequel j'ai mis des IF

voici une parie du code

For i = 1 To j

If ActiveCell.Cells(i, 27) = org Or org = "" Then
If ActiveCell.Cells(i, 26) = flow Or flow = "" Then
If ActiveCell.Cells(i, 22) = False Then

jobName = ActiveCell.Cells(i, 1)
lang = ActiveCell.Cells(i, 2)

End If
End If
fupdate.Activate
Range("A7").Select
ActiveCell.Cells(a, 1) = jobName
ActiveCell.Cells(a, 2) = lang
a = a + 1
End If



Workbooks("planning.xls").Worksheets("planning").Activate
Range("A1").Select

Next

Cliquez pour agrandir...