Discussion :

[XuPhre03]

bonjour,

je suis actuellement en stage et je dois créer une nouvelle base données.

La j'ai un petit probleme au niveau de mon vba. je vais essayer d'etre clair.

je veux que lorsque je choisi une valeur dans ma combobox1 ca me mette le nombre de fois(countif) que cette valeur existe (dans la feuille 1) dans ma textbox1

j'ai fait une zone tampon en haut de la page 2.

merci de votre aide .

[Igloobel]

Bonjour,

Tu fais une boucle
avec un si à l'interieur (pour faire ta ccomparaison)

si c'est pareil tu comptes

[XuPhre03]

je ne sais pas faire de boucle...
est ce que tu aurais un exemple s'il te plait

[parmi]

Bonjour,

Tu peux utiliser

Code :

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

Application.WorksheetFunction.Countif(TaFeuille.TaColonne, TonCtitère)

[XuPhre03]

merci mais,

je ne sais pas dans quoi mettre la formule :
dans quel private sub ?
et redigée commen car

Application.WorksheetFunction.CountIf(Feuil1.A, Sheet("Feuil2").("RangeA1"])

ne fonctionne pas

[Menhir]

je ne sais pas faire de boucle...
est ce que tu aurais un exemple s'il te plait

http://silkyroad.developpez.com/vba/boucles/

je ne sais pas dans quoi mettre la formule :
et redigée commen car

Code :

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

Application.WorksheetFunction.CountIf(Feuil1.A, Sheet("Feuil2").("RangeA1"])

ne fonctionne pas

Un code se met toujours dans une procédure Sub ou Function.
De plus, quand une propriété ou une méthode renvoie une valeur (comme c'est la cas ici), il faut indiquer dans le code où doit être placée cette valeur.

Je pense qu'avant de te lancer dans des macro en VBA, il te serait utile d'en apprendre les bases.
http://bidou.developpez.com/article/VBA/

[parmi]

Textbox1 = Application.WorksheetFunction.CountIf(Feuil1.Columns("A"), Combobox1.text)

[Igloobel]

Ceci

Application.WorksheetFunction.CountIf(Feuil1.A, Sheet("Feuil2").("RangeA1"])

Ne fonctionnera jamais

car un "]" sans un "[" plante forcement