chris6999
XLDnaute Impliqué
Bonjour
Je reviens vers vous car je voudrais comprendre pourquoi ma macro ne fonctionne pas.
La commande est la suivante :
Pour toute modification dans la colonne 19 ETAT DECISION si la cellule est différente de vide
alors dans tous les cas
tu positionnes la date du jour dans la colonne 20 ou T
tu positionnes le code user dans la colonne 27 ou AA
Ensuite
-si La colonne 19 est égale à INSTRUCTION EN COURS
alors positionne dans la colonne U "En cours"
et supprime la valeur dans la colonne q
-Si La valeur saisie dans la colonne 19 est égale à EXAMEN 2ème envoi
alors positionne dans la colonne U "En cours"
et positionne dans la colonne 18 R la date de jour
-si La valeur saisie dans la colonne 19 est égale à ACCORD ou ACCORD TACITE ou REFUS
alors positionne dans la colonne U "Dossier clos"
et supprime la valeur dans la colonne q
et positionne la date du jour dans la colonne 29 ou AC
et dans la colonne 30 AD le mois (correspondant à la date de saisie)
et dans la colonne 31 AE positionne la valeur suivante = 29 AC - 18 R
-si La valeur saisie dans la La colonne 19 contient RETOUR
alors supprime la valeur dans la colonne q
Supprime la valeur dans la colonne 18 R
et positionne dans la colonne 14 N la valeur suivante : date du jour + 45
J'ai commencé à rédiger ma macro en travaillant par palier mais même sur les instructions les plus simples je suis un peu bloquée
car cela ne semble pas fonctionner
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 19 Then
If Target.Value <> "" Then
Range("t" & Target.Row) = Date
Range("aa" & Target.Row) = Application.UserName
If Target.Value = "EXAMEN 2ème ENVOI" Or Target.Value = "EN COURS D'INSTRUCTION" Then Range("u" & Target.Row) = "Dossier en cours"
If Target.Value = "ACCORD" Or Target.Value = "ACCORD TACITE" Or Target.Value = "REFUS" Or Target.Value = "NON GÉRÉ" Then Range("u" & Target.Row) = "Dossier clôs "
If Target.Value = "ACC RETOUR INCOMPLET" Or Target.Value = "RETOUR PARTENAIRE" Or Target.Value = "RETOUR NON CONCERNE" Or Target.Value = "RETOUR INSTRUCTION" Or Target.Value = "RETOUR DOSSIER INCOMPLET" Then Range("u" & Target.Row) = "Attente retour"
End If
End If
End Sub
Merci d'avance pour votre aide
Cordialement
Je reviens vers vous car je voudrais comprendre pourquoi ma macro ne fonctionne pas.
La commande est la suivante :
Pour toute modification dans la colonne 19 ETAT DECISION si la cellule est différente de vide
alors dans tous les cas
tu positionnes la date du jour dans la colonne 20 ou T
tu positionnes le code user dans la colonne 27 ou AA
Ensuite
-si La colonne 19 est égale à INSTRUCTION EN COURS
alors positionne dans la colonne U "En cours"
et supprime la valeur dans la colonne q
-Si La valeur saisie dans la colonne 19 est égale à EXAMEN 2ème envoi
alors positionne dans la colonne U "En cours"
et positionne dans la colonne 18 R la date de jour
-si La valeur saisie dans la colonne 19 est égale à ACCORD ou ACCORD TACITE ou REFUS
alors positionne dans la colonne U "Dossier clos"
et supprime la valeur dans la colonne q
et positionne la date du jour dans la colonne 29 ou AC
et dans la colonne 30 AD le mois (correspondant à la date de saisie)
et dans la colonne 31 AE positionne la valeur suivante = 29 AC - 18 R
-si La valeur saisie dans la La colonne 19 contient RETOUR
alors supprime la valeur dans la colonne q
Supprime la valeur dans la colonne 18 R
et positionne dans la colonne 14 N la valeur suivante : date du jour + 45
J'ai commencé à rédiger ma macro en travaillant par palier mais même sur les instructions les plus simples je suis un peu bloquée
car cela ne semble pas fonctionner
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 19 Then
If Target.Value <> "" Then
Range("t" & Target.Row) = Date
Range("aa" & Target.Row) = Application.UserName
If Target.Value = "EXAMEN 2ème ENVOI" Or Target.Value = "EN COURS D'INSTRUCTION" Then Range("u" & Target.Row) = "Dossier en cours"
If Target.Value = "ACCORD" Or Target.Value = "ACCORD TACITE" Or Target.Value = "REFUS" Or Target.Value = "NON GÉRÉ" Then Range("u" & Target.Row) = "Dossier clôs "
If Target.Value = "ACC RETOUR INCOMPLET" Or Target.Value = "RETOUR PARTENAIRE" Or Target.Value = "RETOUR NON CONCERNE" Or Target.Value = "RETOUR INSTRUCTION" Or Target.Value = "RETOUR DOSSIER INCOMPLET" Then Range("u" & Target.Row) = "Attente retour"
End If
End If
End Sub
Merci d'avance pour votre aide
Cordialement