Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb Mise à jour de formules

Pb Mise à jour de formules

1 réponse
Avatar
philou36
Bonjour !!

J'ai un soucis avec une macro. Avant j'avais cela :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C6]) Is Nothing Then
[H10].FormulaLocal =3D "=3DC7"
[H11].FormulaLocal =3D "=3DSI(B11<>"""";SI(B11>$C$6;"""";$C$7);"""")"
[H12].FormulaLocal =3D "=3DSI(B12<>"""";SI(B12>$C$6;"""";$C$7);"""")"
[H13].FormulaLocal =3D "=3DSI(B13<>"""";SI(B13>$C$6;"""";$C$7);"""")"
[H14].FormulaLocal =3D "=3DSI(B14<>"""";SI(B14>$C$6;"""";$C$7);"""")"
[H15].FormulaLocal =3D "=3DSI(B15<>"""";SI(B15>$C$6;"""";$C$7);"""")"
[H16].FormulaLocal =3D "=3DSI(B16<>"""";SI(B16>$C$6;"""";$C$7);"""")"
[H17].FormulaLocal =3D "=3DSI(B17<>"""";SI(B17>$C$6;"""";$C$7);"""")"
[H18].FormulaLocal =3D "=3DSI(B18<>"""";SI(B18>$C$6;"""";$C$7);"""")"
...
J'ai voulu rajouter
[f10].FormulaLocal =3D "=3De5"
juste apr=E8s
[H10].FormulaLocal =3D "=3DC7"

il plante en me disant :
Erreur d'execution 1004
Erreur definie par l'application ou par l'objet

Avez vu une id=E9e ??

Un grand merci =E0 vous pour votre patience !

Bonne journ=E9e.

Philippe
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Est-ce possible que ta feuille (au moins lesdites cellules) soient protégées ?



"philou36" a écrit dans le message de groupe de
discussion :
Bonjour !!

J'ai un soucis avec une macro. Avant j'avais cela :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C6]) Is Nothing Then
[H10].FormulaLocal = "Ç"
[H11].FormulaLocal = "=SI(B11<>"""";SI(B11>$C$6;"""";$C$7);"""")"
[H12].FormulaLocal = "=SI(B12<>"""";SI(B12>$C$6;"""";$C$7);"""")"
[H13].FormulaLocal = "=SI(B13<>"""";SI(B13>$C$6;"""";$C$7);"""")"
[H14].FormulaLocal = "=SI(B14<>"""";SI(B14>$C$6;"""";$C$7);"""")"
[H15].FormulaLocal = "=SI(B15<>"""";SI(B15>$C$6;"""";$C$7);"""")"
[H16].FormulaLocal = "=SI(B16<>"""";SI(B16>$C$6;"""";$C$7);"""")"
[H17].FormulaLocal = "=SI(B17<>"""";SI(B17>$C$6;"""";$C$7);"""")"
[H18].FormulaLocal = "=SI(B18<>"""";SI(B18>$C$6;"""";$C$7);"""")"
...
J'ai voulu rajouter
[f10].FormulaLocal = "å"
juste après
[H10].FormulaLocal = "Ç"

il plante en me disant :
Erreur d'execution 1004
Erreur definie par l'application ou par l'objet

Avez vu une idée ??

Un grand merci à vous pour votre patience !

Bonne journée.

Philippe