Discussion :

[adamm]

Bonjour

Je suis nouveau, j'espère que je place ma question au bon endroit.

Je voudrais utiliser la fonction countif (voir ce que j'ai fais ci-dessous) en allant rechercher des mots dans un tableau mais en respectant la casse... or je ne sais pas faire.

Quelqu'un peut il m'aider.... Merci !

Code :

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

1
2
3
4
5
6
7
For item = 1 To (i - 2)
     valeurachercher = Feuil5.Range("B" & (3 + incrément)).FormulaR1C1
 
        For numérosalarié = 1 To compteurnoms
             'janvier
             résultat = Application.CountIf(Feuil5.Range("janv" & numérosalarié), valeurachercher)
             Feuil5.Range("D" & (numérosalarié + numéroligne + incrément)).FormulaR1C1 = résultat * 0.25

Balises Code /Code ajoutées par ouskel'n'or

[ouskel'n'or]

Bonjour adamm,
Bienvenue sur le forum. Tu es sur le bon...
"countif", connais pas, sans doute un pb de version. Néanmoins, et déjà, au lieu de

Feuil5.Range("D" & (numérosalarié + numéroligne + incrément)).FormulaR1C1 = résultat * 0.25

Mets déjà

Code :

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

      Feuil5.Range("D" & (numérosalarié + numéroligne + incrément)).Formula = résultat * 0.25

FormulaR1C1 est utilisé si tu mets une formule, non une valeur

Pour countif, "quelqu'un" va s'occuper de toi...

Bonne chance


NB - Tu devrais lire les règles du forum, elles t'apprennent plein de choses utiles pour tes recherches

[bouley]

salut adamm

la fonction countif va rechercher en respectant la casse la valeur à chercher

ici je cherche la casse de Adamm dans la colonne A

Code :

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

1
2
3
4
5
Sub RechercheNbOccurence()
ValeurAChercher = "Adamm"
Résultat = Application.CountIf(Range("A:A"), ValeurAChercher)
MsgBox ("Le texte " & ValeurAChercher & " est présent : " & Résultat & " fois.")
End Sub

je ne vois pas ou est le problème dans ton code
Que represente

Code :

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

Feuil5.Range("janv" & numérosalarié)

une cellule ou une plage de cellules
tu dis
à+

[adamm]

Tout d'abord merci pour vos réponses et vos conseil.

pour répondre à la question de bouley

Code :

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

Feuil5.Range("janv" & numérosalarié)

est une plage de cellule (mois de janvier) dans laquelle des personnes inscrivent au jour le jour leurs activités. Ma macro (je suis plus bricoleur qu'informaticien) permet en fin d'année de récupèrer toutes les activités (par extraction des 4 premières lettres) et totalise le temps passé. Mais je n'arrive pas à distinguer L (e de L (E par exemple....

[bouley]

que contient valeurachercher alors ?
les 4 lettres ?
Que contiennent les celulles de la colonne B ?
@+

[zazaraignée]

Salut

ouskel' :
La fonction CountIf est la version langage VBA de la fonction NB.SI des formules Excel.

adamm :
1. Pour pouvoir utiliser les références d'objet Range dans une boucle utilise la propriété (ou l'objet, sais plus) Cell. Y'a pleins d'exemples sur le forum. Et y'a toujours l'aide de VBA pour les détails.
2. J'espère que tu ne mets pas de caractères accentués dans les noms de variables et que le code que tu nous a montré n'est qu'un dommy pour notre compréhension. Car le compilateur et les accents, ça fé pas vrémang bon ménageu, vé!

[adamm]

que contient valeurachercher alors ?
les 4 lettres ?
Que contiennent les celulles de la colonne B ?
@+

Les cellules de la colone B contiennent les 4 lettres du mot à chercher dans la plage "janvier"

[adamm]

Salut

2. J'espère que tu ne mets pas de caractères accentués dans les noms de variables et que le code que tu nous a montré n'est qu'un dommy pour notre compréhension. Car le compilateur et les accents, ça fé pas vrémang bon ménageu, vé!

Si !!! encore un truc que je savais pas

[bouley]

Bonjour Adamm

Pour ton cas il faut alors rajouter une * à la fin de ta variable valeurachercher pour que CountIf compte toutes les cellules qui commencent par les lettres qu'il y a avant *.
Tu peux faire :

Code :

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

valeurachercher = Feuil5.Range("B" & (3 + incrément)).Formula & "*"

@+