chris6999
XLDnaute Impliqué
Bonjour
J'ai un problème de rédaction de macro pour lequel je ne trouve pas de solution.
Mon problème est le suivant :
Lorsqu'il existe une valeur dans une cellule de la colonne 21 (colonne U) la macro exécute les commandes suivantes
effacer la valeur saisie dans la colonne q
mettre la date du jour dans la colonne v
mettre le nom utilisateur dans la colonne z
mettre le nom du mois correspondant à la date dans la colonne ab
mettre le nom de jour entre la date saisie dans AC et celle saisie dans e
Par contre je souhaiterais qu'il y ait une condition sur la valeur saisie dans la cononne 21 (U) à savoir
Si la valeur saisie dans la colonne U contient le mot "Retour" (je précise qu'il ya différents types de retours possibles)
alors tu inscris dans la colonne S "Retour"
Pour tout autre valeur saisie dans la colonne 21(U) tu inscris "Clôturé" dans la colonne S
C'est là dessus que je bloque...
Ma macro se présente de la façon suivante mais elle ne fonctionne pas (je mets un fichier test en pièce jointe) :
If Target.Column = 21 Then
If Target.Value <> "" Then
Range("q" & Target.Row).ClearContents
Range("v" & Target.Row) = Date
Range("z" & Target.Row) = Application.UserName
Range("ab" & Target.Row) = Format(Date, "mmmm")
Range("ac" & Target.Row) = Range("v" & Target.Row).Value - Range("e" & Target.Row).Value
If Not Range("v" & Target.Row).Value Like "Retour" Then
Range("s" & Target.Row) = "Clôturé"
End If
End If
End If
End Sub
Merci d'avance pour votre aide
Cordialement
J'ai un problème de rédaction de macro pour lequel je ne trouve pas de solution.
Mon problème est le suivant :
Lorsqu'il existe une valeur dans une cellule de la colonne 21 (colonne U) la macro exécute les commandes suivantes
effacer la valeur saisie dans la colonne q
mettre la date du jour dans la colonne v
mettre le nom utilisateur dans la colonne z
mettre le nom du mois correspondant à la date dans la colonne ab
mettre le nom de jour entre la date saisie dans AC et celle saisie dans e
Par contre je souhaiterais qu'il y ait une condition sur la valeur saisie dans la cononne 21 (U) à savoir
Si la valeur saisie dans la colonne U contient le mot "Retour" (je précise qu'il ya différents types de retours possibles)
alors tu inscris dans la colonne S "Retour"
Pour tout autre valeur saisie dans la colonne 21(U) tu inscris "Clôturé" dans la colonne S
C'est là dessus que je bloque...
Ma macro se présente de la façon suivante mais elle ne fonctionne pas (je mets un fichier test en pièce jointe) :
If Target.Column = 21 Then
If Target.Value <> "" Then
Range("q" & Target.Row).ClearContents
Range("v" & Target.Row) = Date
Range("z" & Target.Row) = Application.UserName
Range("ab" & Target.Row) = Format(Date, "mmmm")
Range("ac" & Target.Row) = Range("v" & Target.Row).Value - Range("e" & Target.Row).Value
If Not Range("v" & Target.Row).Value Like "Retour" Then
Range("s" & Target.Row) = "Clôturé"
End If
End If
End If
End Sub
Merci d'avance pour votre aide
Cordialement