Une macro avec deux conditions et, ou et/ou

[Oscurio]

Bonjour à tous,

D'abrod un grand respect pour tous ces excellerons, parce que ça fait un mois que je suis sur mon fichier excel et là je satture grave !
Enfin bref,

J'aimerai réaliser une macro à plusieurs conditions :

Dans une colonne appelée "action urgente", j'aimerais que excel m'affiche :
- "Rénégo" : lorsque la date de fin de contrat est à moins de 6 mois
- "Pilote" : lorsque personne ne s'occupe du contrat (cellule vide)
- "Renégo et Pilote" : lorsque moins de 6 mois ET personne ne s'occupe du contrat.

Je vous envoie le fichier joint , et m'excuse à l'avance de ma non-réponse à venir ( je poste ceci juste avant de partir en WE, donc ne pourrais répondre avant lundi)

Merci bcp

 

[Cousinhub]

Re : Une macro avec deux conditions et, ou et/ou

Bonsoir,

Ok, c'est vrai que préparer le W-E est important, mais tu aurais au moins pu mettre un peu plus de lignes d'exemple....

Essaie ainsi :

Sub Macro4()
Dim c As Range
For Each c In Range("C2:C" & Range("C65536").End(xlUp).Row)
    Select Case c.Offset(, -1)
        Case ""
            If DateDiff("m", Date, c) < 6 And DateDiff("m", Date, c) > 0 Then _
                c.Offset(0, -2) = "Renégociation et Pilote"
        Case Else
            If DateDiff("m", Date, c) < 6 And DateDiff("m", Date, c) > 0 Then _
                c.Offset(0, 1) = "Renégociation"
    End Select
Next c
End Sub

Bon W-E

 

[Oscurio]

Re : Une macro avec deux conditions et, ou et/ou

Merci bcp à vous deux.