Discussion :

[ancien1957]

Voulez-vous m'aider à trouver l'erreur car apparemment, rien ne fonctionne.
Voici le contenu de ma macro (en pièce jointe)

Merci d'avance.

[Invité]

Bonsoir,
Je donne ma langue aux chats!

[eriiic]

Bonjour,

1) déjà dans macro1 désactive le événements quand tu écris sur la feuille (rétablir ensuite).
Aucune raison de rappeler Worksheet_Change() je suppose.

2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    'Si on active la cellule K2 et que du texte est saisi dans celle-ci
    If Range("K2").Value <> "" Then

Non.
Pas si on active, tu es dans l'événement Change.
Mais surtout cette ligne et toutes les suivantes sont exécutées à chaque saisie, tu passé le End If
du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   If Not Application.Intersect(Target, Range("K1:K4")) Is Nothing Then

Est-ce vraiment ce qui est voulu ?
Une indentation correcte du code et ces erreurs sautent aux yeux...
eric

[Pierre Fauconnier]

Salut.

Je salue Eric qui a pris le temps d'ouvrir ta pièce jointe et d'essayer de comprendre ce que ta macro devrait réaliser, sans aucun mot d'explication de ta part, et je comprends dysorthographie qui donne sa langue au chat...

Explique ce que tu souhaites réaliser, plante le décor, donne le code qui pose problème entre des balises de code et tu obtiendras probablement de meilleurs résultats...

Bonne continuation