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

[cerede2000]

Bonjour à toi,

VBA obligatoirement pour ça ?

Car avec une formule classique...
En cellule E5:

Code :

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

=SI(ET(D5="7";OU(A5<>"10";A5<>"17");OU(B5<>"FRAR";B5<>"FR4U"));C5+2;C5)

[ZX12R]

Bonjour,

D'accord avec Cerrede... et en VBA si j'ai bien tout compris dans tes conditions, sinon adapte.

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
 
Option Explicit
 
Sub testFiltre()
 
Dim Cellu As Range
 
    For Each Cellu In Range("A2:A" & Range("A2").End(xlDown).Row)
 
        If (Cellu.Offset(0, 3) = 7 And (Cellu <> 17 Or Cellu <> 10)) And _
            (Cellu.Offset(0, 1) <> "FRAR" Or Cellu.Offset(0, 1) <> "FR4U") Then
 
            Cellu.Offset(0, 4) = Cellu.Offset(0, 2) + 2
        Else
            Cellu.Offset(0, 4) = Cellu.Offset(0, 2)
        End If
 
    Next Cellu
 
End Sub

Cordialement.
Bruno

[franckm38]

@cerede2000

Salut!

Je te remercie pour ta réponse... Je me demande pourquoi je n'y ai pas pensé en faite
Je pensais VBA car cette formule s'insère dans une plus grande macro, et c'est pour simplifier et automatiser plusieurs opérations que j'essaye de construire celle-ci...en autodidacte

En tout cas, merci encore!
Cdlt
Franck

@ZX12R

Salut!
Merci pour ta réponse!
Je vais tester la formule que m'a donné Cerrede, et quand j'aurais un peu de temps, je testerai ta formule

Cdlt
Franck

[franckm38]

Par contre, la formule qui fonctionne d'après mes critères et le format des cellules est:
=SI(ET(D2=7;ET(A2<>"10";A2<>"17");ET(B2<>"FRAR";B2<>"FR4U"));C2+2;C2)

A+