XL 2019 Fonction Si avec plusieurs conditions

[Espry]

Bonjour,
J'ai un document Excel qui me sert à envoyer des mail de rappel. (ci-joint)
Dans la colonne F (Alerte) j'aimerai que 30j en avance de la "date butoir organisme(Colonne E)" les case aient écrit "ALERTE" ( ça c'est fait)
mais qu'elle aient écrit aussi "Pré-Alerte 180j en avance si possible.
Ce serait top si les Pré-Alerte pouvaient être inclus dans la fonction du mail (qui se nomme mailtoo)
Merci d'avance !

 

[Etoto]

Bonjour,

Voilà

 

[Espry]

Parfait !!
Merci beaucoup c'est exactement ça !
Pour l'inclure dans ma fonction "mailtoo" dans visual basic si je copie ça :
Private Sub filtre_MAIL()
Dim derligne%
derligne = Sheets("MAIL").Cells(Rows.Count, 1).End(3).Row
With Sheets("MAIL")
.Range("A1:F1").AutoFilter
.Range("$A$1:$F$" & derligne).AutoFilter Field:=6, Criteria1:= _
"ALERTE"
End With
End Sub

Et que je remplace le "ALERTE" par "Pre Alerte" ça passera ou c'est plus complexe ?
Merci d'avance !

 

[Etoto]

Parfait !!
Merci beaucoup c'est exactement ça !
Pour l'inclure dans ma fonction "mailtoo" dans visual basic si je copie ça :
Private Sub filtre_MAIL()
Dim derligne%
derligne = Sheets("MAIL").Cells(Rows.Count, 1).End(3).Row
With Sheets("MAIL")
.Range("A1:F1").AutoFilter
.Range("$A$1:$F$" & derligne).AutoFilter Field:=6, Criteria1:= _
"ALERTE"
End With
End Sub

Et que je remplace le "ALERTE" par "Pre Alerte" ça passera ou c'est plus complexe ?
Merci d'avance !

Re,

Désolé le VBA c'est pas trop mon fort alors je ne peux te dire si ça fonctionnerait.

 

[Espry]

Pas de soucis, c'est déjà très gentil de votre part encore merci !

 

[Etoto]

Pas de soucis, c'est déjà très gentil de votre part encore merci !

Re,

Mais normalement je crois que si ça fonctionnait pour ALERTE ça fonctionnerait aussi pour la pré alerte.

 

[Espry]

Bonjour, j'ai essayé pas mal de méthode pour ajouté Pré-Alerte et Alerte au filtre de la colonne F de mon VBS (ou VBA je ne connais pas la différence) mais je n'y arrive toujours pas sans qu'il y ai une erreur. Exemple ci-dessous. Si quelqu'un aurait une idée

Merci d'avance !

 

[Espry]

Private Sub filtre_MAIL()
Dim derligne%
derligne = Sheets("MAIL").Cells(Rows.Count, 1).End(3).Row
With Sheets("MAIL")
    .Range("A1:F1").AutoFilter
    .Range("$A$1:$F$" & derligne).AutoFilter Field:=6, Criteria1:= _
        "ALERTE"
End With
End Sub

 

[Etoto]

Private Sub filtre_MAIL()
Dim derligne%
derligne = Sheets("MAIL").Cells(Rows.Count, 1).End(3).Row
With Sheets("MAIL")
    .Range("A1:F1").AutoFilter
    .Range("$A$1:$F$" & derligne).AutoFilter Field:=6, Criteria1:= _
        "ALERTE"
End With
End Sub

Re,

Vu que désormais ton problème n'est plus un SI mais un problème de VBA, crée une nouvelle conversation avec ce problème.

 

[Espry]

D'accord merci !