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
Jacques
Bonjour,
Essaie quelque chose du genre. Pas tester !!
Private Sub Worksheet_Change(ByVal Target As Range) 'a adopter pour toutes les cellules avec la formule 'exemple ici avec la case "A1" range("a1" ).Formula="=SUMPROD('Feuil1'!L2C(" & Target.row &" ):L77C(" & Target.row &" );'Feuil2'!L2C:L77C) End Sub
Jacques(BE)
"Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Bonjour,
Essaie quelque chose du genre. Pas tester !!
Private Sub Worksheet_Change(ByVal Target As Range)
'a adopter pour toutes les cellules avec la formule
'exemple ici avec la case "A1"
range("a1" ).Formula="=SUMPROD('Feuil1'!L2C(" & Target.row &" ):L77C(" &
Target.row &" );'Feuil2'!L2C:L77C)
End Sub
Jacques(BE)
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: O7$0UFwjHHA.4936@TK2MSFTNGP03.phx.gbl...
Private Sub Worksheet_Change(ByVal Target As Range) 'a adopter pour toutes les cellules avec la formule 'exemple ici avec la case "A1" range("a1" ).Formula="=SUMPROD('Feuil1'!L2C(" & Target.row &" ):L77C(" & Target.row &" );'Feuil2'!L2C:L77C) End Sub
Jacques(BE)
"Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Didier NOVARIN
Bonjour Jacques, Désolé J'essaie d'adapter afin d'avoir quelque chose comme cela : Merci Didier
If Formula = ("=SUMPRODUCT((Travail_DP<>"""")*(Travail_RA="""")*(Travail_AP=""""))>0") Then MsgBox "toto" End If
"Jacques" a écrit dans le message de news:
Bonjour,
Essaie quelque chose du genre. Pas tester !!
Private Sub Worksheet_Change(ByVal Target As Range) 'a adopter pour toutes les cellules avec la formule 'exemple ici avec la case "A1" range("a1" ).Formula="=SUMPROD('Feuil1'!L2C(" & Target.row &" ):L77C(" & Target.row &" );'Feuil2'!L2C:L77C) End Sub
Jacques(BE)
"Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Bonjour Jacques,
Désolé
J'essaie d'adapter afin d'avoir quelque chose comme cela :
Merci
Didier
If Formula =
("=SUMPRODUCT((Travail_DP<>"""")*(Travail_RA="""")*(Travail_AP=""""))>0")
Then
MsgBox "toto"
End If
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
O5oEmUwjHHA.4628@TK2MSFTNGP06.phx.gbl...
Bonjour,
Essaie quelque chose du genre. Pas tester !!
Private Sub Worksheet_Change(ByVal Target As Range)
'a adopter pour toutes les cellules avec la formule
'exemple ici avec la case "A1"
range("a1" ).Formula="=SUMPROD('Feuil1'!L2C(" & Target.row &" ):L77C(" &
Target.row &" );'Feuil2'!L2C:L77C)
End Sub
Jacques(BE)
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: O7$0UFwjHHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour Jacques, Désolé J'essaie d'adapter afin d'avoir quelque chose comme cela : Merci Didier
If Formula = ("=SUMPRODUCT((Travail_DP<>"""")*(Travail_RA="""")*(Travail_AP=""""))>0") Then MsgBox "toto" End If
"Jacques" a écrit dans le message de news:
Bonjour,
Essaie quelque chose du genre. Pas tester !!
Private Sub Worksheet_Change(ByVal Target As Range) 'a adopter pour toutes les cellules avec la formule 'exemple ici avec la case "A1" range("a1" ).Formula="=SUMPROD('Feuil1'!L2C(" & Target.row &" ):L77C(" & Target.row &" );'Feuil2'!L2C:L77C) End Sub
Jacques(BE)
"Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Daniel
Bonjour. Essaie : if Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0 then Cordialement. Daniel "Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Bonjour.
Essaie :
if
Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0
then
Cordialement.
Daniel
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: O7$0UFwjHHA.4936@TK2MSFTNGP03.phx.gbl...
Bonjour. Essaie : if Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0 then Cordialement. Daniel "Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Didier NOVARIN
Re, Daniel, Il me renvoie une erreur exécution 13 Je te remercie Didier
"Daniel" a écrit dans le message de news: %
Bonjour. Essaie : if Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0 then Cordialement. Daniel "Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Re, Daniel,
Il me renvoie une erreur exécution 13
Je te remercie
Didier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23Jc8kzwjHHA.392@TK2MSFTNGP06.phx.gbl...
Bonjour.
Essaie :
if
Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0
then
Cordialement.
Daniel
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: O7$0UFwjHHA.4936@TK2MSFTNGP03.phx.gbl...
Re, Daniel, Il me renvoie une erreur exécution 13 Je te remercie Didier
"Daniel" a écrit dans le message de news: %
Bonjour. Essaie : if Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0 then Cordialement. Daniel "Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Didier NOVARIN
Oups ! Cela fonctionne parfaitement Un très grand merci Je suis désolé Bonne journée Didier
"Daniel" a écrit dans le message de news: %
Bonjour. Essaie : if Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0 then Cordialement. Daniel "Didier NOVARIN" a écrit dans le message de news: O7$
Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à exploiter. Je vous remercie Didier
Oups !
Cela fonctionne parfaitement
Un très grand merci
Je suis désolé
Bonne journée
Didier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23Jc8kzwjHHA.392@TK2MSFTNGP06.phx.gbl...
Bonjour.
Essaie :
if
Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0
then
Cordialement.
Daniel
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: O7$0UFwjHHA.4936@TK2MSFTNGP03.phx.gbl...
Oups ! Cela fonctionne parfaitement Un très grand merci Je suis désolé Bonne journée Didier
"Daniel" a écrit dans le message de news: %
Bonjour. Essaie : if Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0 then Cordialement. Daniel "Didier NOVARIN" a écrit dans le message de news: O7$