Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Fonction Si avec plusieurs conditions

Espry

XLDnaute Nouveau
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 !
 

Pièces jointes

  • Suivi test.xlsm
    33.6 KB · Affichages: 7

Espry

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re,

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

Espry

XLDnaute Nouveau
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

XLDnaute Nouveau
VB:
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

XLDnaute Barbatruc
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…