Bonjour,
Je progresse, je progresse
j'aurais juste besoin d'une aide pour finir cette macro :
Sub DOSSP()
Dim nb As Integer, i As Integer
nb = Range("W65000").End(xlUp).Row
For i = 1 To nb
If Range("W" & i) = "" Then
Range("W" & i) = "Session non commencée. Vous avez 4 dossiers à faire"
End If
If Range("W" & i) = "12.01" Then
Range("W" & i) = "12.01 Il vous reste 3 dossiers à faire pour être à jour"
End If
If Range("W" & i) = "12.02" Then
Range("W" & i) = "12.02 Il vous reste 2 dossiers à faire pour être à jour"
End If
If Range("W" & i) = "12.03" Then
Range("W" & i) = "12.03 Il vous reste 1 dossiers à faire pour être à jour"
End If
If Range("W" & i) = "12.04" Then
Range("W" & i) = "12.04 Vous êtes actuellement à jour"
End If
If Range("W" & i) = "12.05" Then
Range("W" & i) = "12.05 "
End If
If Range("W" & i) = "12.06" Then
Range("W" & i) = "12.06 "
End If
Next
End Sub
Au niveau de la ligne If Range("W" & i) = "" Then
Range("W" & i) = "Session non commencée. Vous avez 4 dossiers à faire"
End If
je souhaiterais pouvoir dire à la macro que si c'est vide (ça c'est bon) OU si c'est différent de toutes les valeurs mises en dessous, ALORS mettre la phrase indiquée.
Merci de votre aide
Cordialement
Philippe