Coller des valeurs automatiquement

Bonjour,

Lorsque vous faites Enter, Tab ou un clic dans une autre cellule, ActiveCell correspond à la cellule dans laquelle vous êtes positionné et non plus celle ou la saisie a été effectuée.

Essayez de remplacer ActiveCell par Cells(Target.Row, Target.Column).

Par ailleurs il faut désactiver le Worksheet_Change avant de copier la valeur, sinon le traitement va rentrer dans une boucle infinie. Vous trouverez ci-dessous un exemple de code :

Application.EnableEvents = False

If Cells(Target.Row, Target.Column) > 0 And Cells(Target.Row, Target.Column) < 0.5 Then

Cells(Target.Row, Target.Column + 3) = Cells(Target.Row, Target.Column)

End If

Application.EnableEvents = True

Bonjour,

Merci d’avoir mis le fichier, j’aurai fait exactement pareil Marc, peut être pas avec la même syntaxe (je débute…) mais dans le même esprit

J’ai juste ajouté une condition que le changement ai eu lieu dans la première colonne dans ton fichier, pour ne pas qu’il colle des infos partout

:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Target.Column = 1 Then

If Cells(Target.Row, Target.Column) > 0 And Cells(Target.Row, Target.Column) < 0.5 Then

Cells(Target.Row, Target.Column + 3) = Cells(Target.Row, Target.Column)

End If

End If

Application.EnableEvents = True

End Sub

Bonjour,

Concernant votre remarque “ça ne fonctionne plus et je dois fermer et rouvrir Excel” :

Dans le code VBA, les instructions “Application.EnableEvents = False” (désactivation des événements) et “Application.EnableEvents = True” (réactivation des événements) ont été rajoutées. En effet, si nous ne l’avions pas fait, en saisissant un taux < à 50 % dans une première cellule, la macro aurait collé cette valeur dans une seconde cellule. Mais comme cette seconde cellule est alors également modifiée, la macro aurait collé la valeur de la seconde cellule dans une troisième cellule… La macro serait rentrée dans une boucle infinie.

Lorsque vous avez eu un plantage (le debogueur s’étant ouvert), je pense que le plantage s’est produit entre ces deux instructions. Les événements ont été désactivés, mais n’ont pas dû être réactivés (traitement de la macro s’étant s’arrêté avant d’arriver à l’instruction “Application.EnableEvents = True”).

Ainsi, même en réinitialisant la macro après le bug, la feuille excel ne va plus détecter les événements, du moins jusqu’à ce que Application.EnableEvents soit repassée à True. Pour corriger cela, il faut soit fermer et réouvrir excel, soit prévoir une macro de secours comportant uniquement cette instruction “Application.EnableEvents = True” (cette macro de secours devant être lancée à la main lorsqu’il y a un plantage).

En espérant avoir été clair 🙂

• Cette réponse a été modifiée le il y a 9 années et 8 mois par Marc.
• Cette réponse a été modifiée le il y a 9 années et 8 mois par Marc.

Effectivement, en rajoutant l’instruction “On Erreur Go To Erreur”, en cas de plantage, la macro ne s’arrête pas et les événements vont être réactivés.

On peut faire le test en changeant la ligne “Cells(Target.Row, Target.Column + 3)= …” : en mettant -3 au lieu de +3. Si on modifie une cellule de la première colonne, le traitement plante, car la colonne -2 n’existe pas.

Avec l’instruction “On erreur…”, le traitement ne s’arrête plus et à la saisie suivante, la macro continue à s’exécuter.

• Cette réponse a été modifiée le il y a 9 années et 8 mois par Marc.