Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonjour à Toutes et à Tous.
Encore en panne ! Alors je joint un petit fichier avec quelques explications en feuille 1.
Ne gachez pas votre week end pour autant avec ce pb car le beau temps est annoncé.
Je reste bien sur à dispo.
A+
Daniel
Sub Macro6()
With Range("F5:J" & [D65000].End(xlUp).Row)
.FormulaR1C1 = _
"=SUMPRODUCT((Feuil2!R6C5:R572C5=RC4)*(Feuil2!R6C8:R572C8=VALUE(RIGHT(R4C,2))))"
.Value = .Value
.Replace What:="0", Replacement:="", LookAt:=xlWhole 'ou ActiveWindow.DisplayZeros = False
End With
End Sub
Bonsoir,
Ca y est enfin j' ai fini par faire marcher la macro de BhBh.
C' est nickel.
Si j' ai été aussi long à réussir à la faire fonctionner c' est que j' avais bêtement oublié d' activer la feuille 3. Que cela me serve de leçon.
Alors merci, à BhBh pour sa macro à Jean Pierre pour son aide sur l' envoi du fichier ainsi qu' à tous les autres.
Bon dimanche à tous.
A+
Daniel
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD