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