Ecrire en VBA SOMMEPROD

Le
Didier NOVARIN
Bonjou,
Je souhaite écrire en VBA ceci :

SI(SOMMEPROD((Travail_DP<>"")*(Travail_RA="")*(Travail_SUI=""))=0 Alors

Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à
exploiter.
Je vous remercie
Didier
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques
Le #4496671
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" news: O7$
Bonjou,
Je souhaite écrire en VBA ceci :

SI(SOMMEPROD((Travail_DP<>"")*(Travail_RA="")*(Travail_SUI=""))=0 Alors...

Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à
exploiter.
Je vous remercie
Didier




Didier NOVARIN
Le #4496621
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"
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" news: O7$
Bonjou,
Je souhaite écrire en VBA ceci :

SI(SOMMEPROD((Travail_DP<>"")*(Travail_RA="")*(Travail_SUI=""))=0
Alors...

Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à
exploiter.
Je vous remercie
Didier








Daniel
Le #4496611
Bonjour.
Essaie :
if
Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0
then
Cordialement.
Daniel
"Didier NOVARIN" news: O7$
Bonjou,
Je souhaite écrire en VBA ceci :

SI(SOMMEPROD((Travail_DP<>"")*(Travail_RA="")*(Travail_SUI=""))=0 Alors...

Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à
exploiter.
Je vous remercie
Didier




Didier NOVARIN
Le #4496591
Re, Daniel,
Il me renvoie une erreur exécution 13
Je te remercie
Didier

"Daniel" %
Bonjour.
Essaie :
if
Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0
then
Cordialement.
Daniel
"Didier NOVARIN" news: O7$
Bonjou,
Je souhaite écrire en VBA ceci :

SI(SOMMEPROD((Travail_DP<>"")*(Travail_RA="")*(Travail_SUI=""))=0
Alors...

Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à
exploiter.
Je vous remercie
Didier








Didier NOVARIN
Le #4496581
Oups !
Cela fonctionne parfaitement
Un très grand merci
Je suis désolé
Bonne journée
Didier

"Daniel" %
Bonjour.
Essaie :
if
Evaluate("Sumproduct((Travail_DP<>"""")*(Travail_RA="""")*(Travail_SUI=""""))")=0
then
Cordialement.
Daniel
"Didier NOVARIN" news: O7$
Bonjou,
Je souhaite écrire en VBA ceci :

SI(SOMMEPROD((Travail_DP<>"")*(Travail_RA="")*(Travail_SUI=""))=0
Alors...

Avec l'enregistreur de macro, j'ai quelque chose que je n'arrive pas à
exploiter.
Je vous remercie
Didier








Publicité
Poster une réponse
Anonyme