Traduction formule en VBA

pierrejean

XLDnaute Barbatruc

• 27 Mars 2018

• #2

bonjour eduraiss

Peux-tu poster un petit fichier exemple ??

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 27 Mars 2018

• #3

pierrejean à dit:

bonjour eduraiss

Peux-tu poster un petit fichier exemple ??

Cliquez pour agrandir...

Bonjour

Ci joint un fichier

 

Pièces jointes

• Classeur1.xls

  70 KB · Affichages: 39

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mars 2018

• #4

Re

une solution avec formule personnalisée

 

Pièces jointes

• Classeur1 (21).xls

  69 KB · Affichages: 29

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 27 Mars 2018

• #5

pierrejean à dit:

Re

une solution avec formule personnalisée

Cliquez pour agrandir...

merci Pierre jean

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mars 2018

• #6

Re

Vois si cela va mieux

 

Pièces jointes

• Classeur1 (21).xls

  72.5 KB · Affichages: 26

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 27 Mars 2018

• #7

pierrejean à dit:

Re

Vois si cela va mieux

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mars 2018

• #8

Re

Voila

 

Pièces jointes

• Classeur1 (21).xls

  72 KB · Affichages: 34

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 27 Mars 2018

• #9

pierrejean à dit:

Re

Voila

Cliquez pour agrandir...

Merci pierrejean c'est parfait

Un grand merci à toi

Cordialement,

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 3 Avril 2018

• #10

eduraiss à dit:

Merci pierrejean c'est parfait

Un grand merci à toi

Cordialement,

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Avril 2018

• #11

Re

Fonction modifiée pour associer la feuille concernée

 

Pièces jointes

• Classeur1 (21).xls

  71 KB · Affichages: 26

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 3 Avril 2018

• #12

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Avril 2018

• #13

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 !!!!

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 3 Avril 2018

• #14

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 3 Avril 2018

• #15

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

Code:

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

 

Dernière édition: 3 Avril 2018

Vote positif 0 Vote négatif