Executer macro après modification de certaines cellules
Résolu
titeufdu89
Messages postés
387
Statut
Membre
-
titeufdu89 Messages postés 387 Statut Membre -
titeufdu89 Messages postés 387 Statut Membre -
Bonjour,
J'ai un planning général sur un le range ("C4:AG31")
Les lignes étant les collaborateur, et les colonnes les jours du mois.
Lorsque le planning à été envoyé au collaborateur j'ai une macro qui me notifie que le planning à été envoyé par une "x" dans la colonne AH correspondant au collaborateur.
A présent, je souhaiterais que lorsqu'une cellule est modifiée dans le range("C4:AG31") si la colonne AH de la ligne modifiée comportée un "x", celui-ci soit supprimé afin que je sache que le planning est à renvoyer au collaborateur...
Quelqu'un aurait-il une idée de la marche a suivre?
Par avance merci ;-)
Jc
J'ai un planning général sur un le range ("C4:AG31")
Les lignes étant les collaborateur, et les colonnes les jours du mois.
Lorsque le planning à été envoyé au collaborateur j'ai une macro qui me notifie que le planning à été envoyé par une "x" dans la colonne AH correspondant au collaborateur.
A présent, je souhaiterais que lorsqu'une cellule est modifiée dans le range("C4:AG31") si la colonne AH de la ligne modifiée comportée un "x", celui-ci soit supprimé afin que je sache que le planning est à renvoyer au collaborateur...
Quelqu'un aurait-il une idée de la marche a suivre?
Par avance merci ;-)
Jc
A voir également:
- Lancer macro après validation cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum MacOS
- Impossible d'utiliser ce numéro de téléphone pour la validation. - Forum Gmail
- Commande en cours de validation fnac - Forum Consommation & Internet
- Excel cellule couleur si condition texte - Guide
1 réponse
Bonjour
Dans le module de la feuille à traiter
RQ. Si la procedure Worksheet_Change(ByVal Target As Range) existe déjà, il faudra certainement faire un peu plus compliqué
Cdlmnt
Dans le module de la feuille à traiter
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:AG31")) Is Nothing Then
Range("AH" & Target.Row) = ""
End If
End Sub
RQ. Si la procedure Worksheet_Change(ByVal Target As Range) existe déjà, il faudra certainement faire un peu plus compliqué
Cdlmnt
Un grand grand merci pour l'efficacité et la rapidité :-p