Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Deux Worksheet_Change successifs

12 réponses
Avatar
Apitos
Bonjour,

Je voulais essaye si deux =E9v=E9nements Worksheet_Change fonctionne en
m=EAme temps.

Alors quand je tape une lettre dans la colonne A de Feuil1, elle sera
copi=E9e dans la colonne A de Feuil2 et se mette en majuscule.

J'ai donc dans la premi=E8re feuille Feuil1 le code poue copier les
lettres :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =3D 1 And Target.Count =3D 1 Then
[A1:A100].AdvancedFilter Action:=3DxlFilterCopy, _
CopyToRange:=3DSheets("Feuil2").Range("A1"), Unique:=3DTrue
Sheets("Feuil2").Range("A1:A100").Sort
key1:=3DSheets("Feuil2").Range("A1")
End If

End Sub

Dans la deuxieme feuille Feuil2 le code pour mettre en majuscule :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column =3D 1 And Target.Count =3D 1 Then
Target =3D Application.Proper(Target)
End If
End Sub

Mais j'ai une erreur d'ex=E9cution '1004' :

"La m=E9thode AdvancedFilter de la classe Range a =E9chou=E9".

Merci.

2 réponses

1 2
Avatar
lSteph
Bonjour Daniel,

C'est gentil de reprendre ce sujet mais en l'occurence
c'est ce que j'ai déjà répondu:

Dans la mesure où tu désactive les évènement en début de sub c'e st
logique que l'évènnnement de feuil2 ne se déclenche pas et c'est
encore heureux!


Le pire c'est comment gèrer le patacaisse si on l'enlève,
sachant que la suite des macros ne me paraît pas clair en terme
d'objectif.

Bon courage.

lSteph

On 13 avr, 11:20, "Daniel" wrote:
Bonjour.
La macro évènementielle de Feuil2 ne peut être déclenchée par l a copie d'une
cellule de Feuil1 sur Feuil2, l'instruction :
Application.EnableEvents est positionnée à "False"
Cordialement.
Daniel
"Apitos" a écrit dans le message de news:

Voilà :

http://cjoint.com/?emne40qjh5


Avatar
Daniel
... Il faut donc transposer (pas recopier) le code de Feuil2 dans celui de
Feuil1.
Précise exactement ce que tu veux faire qu'on puisse t'aider.
Daniel
"Daniel" a écrit dans le message de news:
461f4b33$0$3225$
Bonjour.
La macro évènementielle de Feuil2 ne peut être déclenchée par la copie
d'une cellule de Feuil1 sur Feuil2, l'instruction :
Application.EnableEvents est positionnée à "False"
Cordialement.
Daniel
"Apitos" a écrit dans le message de news:

Voilà :

http://cjoint.com/?emne40qjh5




1 2