Discussion :

[nemone]

Ben oui je suis vraiment nul (j'ai pas eu le temps de voir les bases !)
J'esperais que cela fonctionerait mais no...

Code :

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

1
2
 
Sheets("nomdelafeuill".NBVAL(B:B)-1

[Pierre Fauconnier]

Bonjour

Utilise Worksheetfunction

Code :

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

WorksheetFunction.CountA(Worksheets("feuil1").Range("b:b")) - 1

N.B.: N'oublie pas tes balises de code lorsque tu postes...

[nemone]

ok merci

[nemone]

Code :

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

=NBVAL('1993'!$B$B)-1

ou

Code :

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

=WorksheetFunction.CountA(Worksheets("feuil1").Range("b:b")) - 1

M'affiche un message d'erreur lorsque je veux les inserer dans la barre de formule de ma cellule d'affichage.
1993 est le nom de ma feuille.

Les 2 sont fausses ?

[Pierre Fauconnier]

Hummm

Comme tu es sur un site d'entraide dédié à VBA, j'ai supposé que tu souhaitais obtenir cela en VBA...

Pour la formule saisie dans une cellule Excel, tu as oublié le signe :

Code :

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

=nbval('1993'!$b:$b)-1

Ok?

[nemone]

mERCI pIERRE.
Les fonctions sont totalement distinctes du VBA. On ne peut pas recopier des codes fonctions dans du vba ?

[SfJ5Rpw8]

mERCI pIERRE.
Les fonctions sont totalement distinctes du VBA. On ne peut pas recopier des codes fonctions dans du vba ?

VBA

A quoi sert la propriété WorksheetFunction ?

et

Comment trouver la traduction anglaise d'une fonction de feuille de calcul ?

[nemone]

Maintenant je voudrais compter le nombre de lignes d'une autre feuille ayant un critere précis dans la colonne K ???

Code :

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

Sheets("nomdelafeuill".NBVAL(B:B)-1

J'ai essayé pas mal de trucs mais ca marche pas !!!

[Pierre Fauconnier]

Ben oui...

Si tu ne vas pas lire les liens que Bbil t'a donné, et que tu n'essaies pas de comprendre les codes que je t'ai proposés, il y a peu de chances que tu y arrives...

Avec les exemples que je t'ai donné et en faisant fonctionner ton cerveau, tu aurais probablement trouvé

Code :

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

WorksheetFunction.CountIf(Worksheets("feuil2").Range("a1:a20"), "sdf")

Car gràce à WorksheetFunction, tu peux utiliser en VBA pour Excel les fonctions d'une feuille de calcul (en anglais, mais la correspondance est souvent assez évidente).

Note que ce site est fait pour t'aider, mais

Aide-toi, le ciel t'aidera

Heu... Ce n'est pas de l'agressivité, mais juste un peu "d'humour" dans ce monde de brutes...

[nemone]

Sauf que je suis loin de trouver cela aussi évident !!! Je galère vraiment et je ne compte pas les heures passées pour parvenir à des résultats moyens
Ta formule ne fonctionne pas. d'après Excel il y a une erreur de syntaxe que j'ai essayé de corriger sans resultat

[Pierre Fauconnier]

Salut...

Je suppose que tu as modifié le code pour l'adapter au nom de ta feuille, et ta plage et à la valeur qui fait l'ogjet du comptage...

Peux-tu donner le code que tu utilises (via un copier-coller, c'est plus sûr pour la retranscription...)

A bientôt

[nemone]

Code :

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

=WorksheetFunction.CountIf(Worksheets("test").Range("k1:k1000"), "servi")

Voici le code mais excel décrète que la formule n'est pas valide

[SfJ5Rpw8]

il y as quoi devant le =

[nemone]

devant ? rien (pas d'espace)

[nemone]

excel signale que la cellule comporte une erreur et surligne le ".Range"

[SfJ5Rpw8]

excel signale que la cellule comporte une erreur et surligne le ".Range"

Tu ne veux donc pas du code VBA.. mais une formule à mettre dans ta feuille de calcul...?

[Pierre Fauconnier]

Code :

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

=WorksheetFunction.CountIf(Worksheets("test").Range("k1:k1000"), "servi")

Voici le code mais excel décrète que la formule n'est pas valide

Apparement, tu n'est pas en VBA mais en EXCEL... Me trompe-je?

Peut-être serait-il judicieux que tu revois les bases d'excel...

Dans Excel, comme expliqué dans un précédent courriel de ma part, tu pourras utiliser

Code :

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

=nb.si(test!k1:k1000,"Servi")

ou, si tu travailles avec un excel anglais

Code :

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

=countif(test!k1:k1000;"Servi")

Ce serait bien que tu nous précises, UNE FOIS POUR TOUTES, si tu souhaites cela dans EXCEL ou en VBA...