Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Worksheet_change

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lolo62000
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lolo62000

XLDnaute Junior
Bonjour,

j'ai un petit soucis. Dans un tableau, lorsqu'on modifie une cellule, un checkmark est inséré dans la cellule à droite de la sélection.
Seulement la macro s'exécute uniquement quand je clique sur une autre cellule. J'aurais besoin qu'elle se déclenche dès la première lettre rentrée, car si je ne sors pas de la cellule, et que je lance une autre macro qui envoie mon tableau par email, l'événement "worksheet_change" ne se déclenche pas.
Est-ce possible de lancer la macro dès qu'on change une lettre sans sortir de la cellule?
Voici mon code actuel:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Unprotect Password:="1248appro"
If Not Intersect(Target, Range("C9:C15")) Is Nothing Then
Target.Offset(0, 1) = "ü"
End If
If Not Intersect(Target, Range("C16")) Is Nothing Then
Range("F16") = "ü"
End If
If Not Intersect(Target, Range("D16")) Is Nothing Then
Range("F16") = "ü"
End If
If Not Intersect(Target, Range("E16")) Is Nothing Then
Range("F16") = "ü"
End If
If Not Intersect(Target, Range("C17:C17")) Is Nothing Then
Range("F18") = "ü"
End If
ActiveSheet.Protect Password:="1248appro"
End Sub

Merci,
Laurent.
 
Trier par date Trier par votes
Re : Worksheet_change

Bonsoir Laurent, bonsoir le forum,

Non !... l'événement Change ne se déclenche qu'après validation de l'édition. Donc après l'appui sur une des touches [Entrée], [TAB], [CTRL]+[Entré] ou une des 4 flèches de déplacement. Peut-être tu pourrais intégrer cette action dans le code de l'e-mail avant l'envoi de celui-ci ?
Avec un code du style (condition à adapter à ton cas) :
Code: 
Sub Macro1()
Dim CEL As Range

With Sheets("Feuil")
    On Error Resume Next
    .Unprotect Password:="1248appro"
    For Each CEL In .Range("C9:C15")
        If CEL.Value <> "" Then CEL.Offset(0, 1) = "ü"
    Next CEL
    End If
    For Each CEL In Application.Union(.Range("C16:E16"), .Range("C17"))
        If CEL.Value <> "" Then .Range("F18").Value = "ü": Exit For
    Next CEL
    ActiveSheet.Protect Password:="1248appro"
End With
'code de l'envoie d'e-mail...
End Sub
 
Vote positif 0 Vote négatif
Re : Worksheet_change

Bonjour Robert,

désolé, je n'arrive pas à joindre mon fichier en pièce jointe, car je n'arrive pas à le réduire suffisamment en poids.
Je joins par contre une capture d'écran.
J'ai donc une feuille dans laquelle apparaissent des informations, qui est nourrie après l'exécution d'une macro.
Donc certains champs sont remplis, d'autres vides.
Mon but était que si quelqu'un change un texte existant, ou ajoute un texte dans une cellule vide, alors un checkmark apparaît dans la colonne cellule modifiée.
En fait, si les gens cliquent sur une autre cellule, ou tab etc.., pas de problèmes.
Par contre, si quelqu'un rentre du texte dans une cellule, et ensuite clique directement sur le bouton Envoyer, le checkmark de la dernière modification n'apparaît pas quand je reçois le courriel.
Et j'ai essayé dans la macro Envoyer de dire genre Range("C8").select pour modifier la sélection, mais à l'intérieur d'une macro, l'événement change est inactif. 🙁

Merci pour ton aide.
 

Pièces jointes

  • Worksheet_change.jpg
    37.1 KB · Affichages: 12
Vote positif 0 Vote négatif
Re : Worksheet_change

Bonsoir Laurent, bonsoir le forum,

Dans la première ligne du bouton Envoyer rajoute le code :
Code: 
ActiveCell.Value = ActiveCell.Value
Comme cela, même si la cellule active n'a pas été validée, cette ligne de code le fera et déclenchera par la même l'événement Change...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
114
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
250
un internaute
U
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
113
Francky79
F
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
259
spike29
S
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
118
patricktoulon
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
322
jalaba
J
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
521
Simon 1234
S
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
503
CortoXls
C
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
426
Webperegrino
W
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
387
Nicolas JACQUIN
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
575
job75
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
228
vgendron
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
302
sofmat
S
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
908
Dranreb
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
481
sylvanu
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
324
thunder23
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
522
tnion
T
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
110
KTM
U
  • Question Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
574
un internaute
U
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…