Discussion :

[franckm38]

Bonjour à tous,

J'ai un problème que je n'arrive pas à résoudre...
Dans le fichier (simplifié) excel ci-joint, je voudrais remplir la colonne E avec une date = à celle saisie dans colonne C + 2 jours à condition que:

Colonne D = 7 ET Colonne A <> 10 ou 17 ET Colonne B <> FRAR ou FR4U

Autrement la date colonne E est égale à date colonne C

J'ai testé ce code...sans succés:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub testFiltre()
 
Dim x, nb_lignes
nb_lignes = Application.WorksheetFunction.CountA(Range("A:A"))
 
    For x = 2 To nb_lignes
 
    If Range("D" & x) = 7 And (Range("A" & x) <> 17 Or Range("A" & x) <> "10") _
    And (Range("B") <> "FRA" Or Range("B") <> "FR4U") _
    Then Range("E" & x) = Range("C" & x) + 2 Else: Range("E" & x) = Range("C" & x)
 
    Next x
 
End Sub

J'ai essayé plusieurs formules (en autres avec ElseIf) mais je suis à court d'idée...

Pour info, je suis complètement autodidacte en VBA, alors voilà....

D'avance merci pour votre aide.

Franck