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
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
Est-ce possible que ta feuille (au moins lesdites cellules) soient protégées ?
"philou36" <philippe.blanchard.36@gmail.com> a écrit dans le message de groupe de
discussion : 17b3186e-656f-4504-8614-b55c5b834d4f@a39g2000yqc.googlegroups.com...
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