Discussion :

[ghazi.hlioui]

pouvez vous m'aidez pour la création d'une macro pour cette fonction Excel , je suis débutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME(NBCAR(A1) - NBCAR(SUBSTITUE(A1; "pratique"; "")))/NBCAR("pratique")

ci joint le ficher Excel

merci d'avance

[Jean-Philippe André]

Bonjour,

que cherches-tu exactement à faire ?

Tu nous donnes une formule et un fichier, mais ce n'est pas assez explicite sans avoir à ouvrir ton fichier.

Un peu d'effort et de détails stp

[78chris]

Bonjour

SOMME ne sert à rien dans une opération arithmétique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function NbFoisMot(Cellule As Range, Mot As String) As Integer
    NbFoisMot = (Len(Cellule.Value) - Len(Replace(UCase(Cellule.Value), UCase(Mot), ""))) / Len(Mot)
End Function

[ghazi.hlioui]

merci chris
peux tu intégré ce macros sur le fichier joint et me l'uploader pour moi stp
je ne peux pas le faire tout seul

[78chris]

Re

C'est en forgeant, qu'on devient forgeron.

Tu utilises le raccourci Alt F11 : tu seras dans la fenêtre de l'éditeur VBA.

A gauche tu verras "VBAprojet" suivi du nom de ton classeur.

Tu fais un clic droit sur ce nom : Insertion, Module. Cela créer un module1.

Dans le volet de droite, qui correspond au contenu de ce module1, tu colles le code.

Tu fermes la fenêtre de l'éditeur VBA et tu sauvegardes ton classeur.

La fonction est générique : on peut l'utiliser pour d'autres mots que "pratique" et elle pourrait donc être stockée dans le classeur de macros personnelles ou dans un complément afin d'être utilisable dans tout classeur...

[ghazi.hlioui]

bon ! ce que tu m'a expliqué c'est facile à faire , j'ai essaye de reformuler l'écriture comme ceci , mais ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function NbFoisMot("G2"As Range, "pratique" As String) As Integer
    NbFoisMot = (Len("G2".Value) - Len(Replace(UCase("G2".Value), UCase(pratique), ""))) / Len(pratique)
End Function

je ne sais pas si me trompe quelque part , désolé je suis un débutant de macro
déjà il mets cette écriture en rouge quand je colle sur le module 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Function NbFoisMot("G2"As Range, "pratique" As String) As Integer
    NbFoisMot = (Len("G2".Value) - Len(Replace(UCase("G2".Value), UCase(pratique), ""))) / Len(pratique)
End Function

-------

peux-tu vérifier ? stp , merci

[Jean-Philippe André]

Bonjour,

quel dommage de revenir sur un point quasiment 11 mois plus tard

Ton passage de parametre est mauvais, essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function NbFoisMot(a As Range, pratique As String) As Integer
    NbFoisMot = (Len(a.Value) - Len(Replace(UCase(a.Value), UCase(pratique), ""))) / Len(pratique)
End Function

Et dans ta cellule resultat tu pourras ecrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NbFoisMot(G2;"pratique")