Traduction formule en VBA

[eduraiss]

Bonjour le forum

Voici un formule que je voudrais mettre dans un code VBA qui alimenterait la cellule X6

SOMMEPROD((ESTNUM(TROUVE("R/";$C$4:$C$11)))*1)+SOMMEPROD((ESTNUM(TROUVE("R/";$C$14:$C$34)))*1)+SOMMEPROD((ESTNUM(TROUVE("R/";$C$35:$C$36)))*1)+SOMMEPROD((ESTNUM(TROUVE("R/";$C$65:$C$95)))*1)+SOMMEPROD((ESTNUM(TROUVE("R/";$C$98:$C$123)))*1)

Merci de votre aide

Cordialement

 

[pierrejean]

bonjour eduraiss

Peux-tu poster un petit fichier exemple ??

 

[eduraiss]

bonjour eduraiss

Peux-tu poster un petit fichier exemple ??

Bonjour

Ci joint un fichier

 

[pierrejean]

Re

une solution avec formule personnalisée

 

[eduraiss]

Re

une solution avec formule personnalisée

merci Pierre jean

mais dans l'état il ne s'actualise pas

 

[pierrejean]

Re

Vois si cela va mieux

 

[eduraiss]

Re

Vois si cela va mieux

Merci pierrejean
c'est presque parfait juste un truc si je peux me permettre que le calcul ne dépasse pas la ligne 123

 

[pierrejean]

Re

Voila

 

[eduraiss]

Re

Voila

Merci pierrejean c'est parfait

Un grand merci à toi

Cordialement,

 

[eduraiss]

Merci pierrejean c'est parfait

Un grand merci à toi

Cordialement,

Bonjour au forum et à toi pierrejean

Je reviens avec ce post car il y a un problème
La function de pierrejean fonctionne trés bien sur une feuille
Je reconnais avoir oublier de préciser que cette feuille est copier a l'identique plusieurs fois, donc si vous rajouter un R/H dans une feuille il se comptabilise sur toutes les autres feuilles

Merci de votre aide

 

[pierrejean]

Re

Fonction modifiée pour associer la feuille concernée

 

[eduraiss]

Re

Merci pierrejean

Mais cela ne fonctionne pas si l'on fait une copie de la feuil1, elle passe en feuil1 (2) et la la fonction ne fonctionne plus

 

[pierrejean]

Re
Il faut adapter la fonction a la feuille
pour la Feuil1 il faut compte("Feuil1";3) pour la Feuil2 il faut compte("Feuil2",3)
Cela m'avait paru évident !!!!

 

[eduraiss]

oui j'avais cru comprendre donc il faut retoucher a la formule a chaque nouvelles feuilles crééer
Bon Ok
je pensais que cela aurait pu se faire en automatique

Merci encore pour ton aide pierrejean

 

[Roland_M]

bonjour tout le monde

salut à toi pierrejean !

salut Eduraiss ça faisait longtemps !
voir comme ceci, la feuille sera la feuille active peu importe son nom !

dans les cellules mettre seulement =compte(3) puis les autres(5) (7)

et reprendre la macro

Function Compte(Colonne)
Application.Volatile: cpte = 0
For N = 1 To 123
If InStr(ActiveSheet.Cells(N, Colonne), "R/") <> 0 Then cpte = cpte + 1
Next
Compte = cpte
End Function

EDIT: cette macro pose un problème avec les autres feuilles !
Eriiic à la bonne solution ici, avec> Application.Caller.Worksheet
https://www.excel-downloads.com/threads/traduction-formule-en-vba.20023475/page-2#post-20176941