Recherchev et nbsi en vba

Re : Recherchev et nbsi en vba

Bonsoir bartelele,

Que tu sois obligé de travailler en vba ne doit pas te conduire à nous contraindre nous-mêmes à en assumer les conséquences 🙄 Il faudra accepter de te retrousser les manches à un moment quelconque.

Je ne sais trop à quoi servait le bouton que tu as prévu puisque tu disais que le code devait s'exécuter au changement dans la liste déroulante.
J'ai commenté le code, pour te donner un point de départ, ai prévu un petit test ou deux, mais il t'appartient maintenant de tester, adapter, modifier, etc ...

Tout ça, en imaginant que je n'ai pas compris de travers!?

Edit: Modification apportée à la pièce jointe: un commentaire mal placé provoquait une erreur.
Merci à DoubleZéro 🙂 pour sa vigilance!

Re : Recherchev et nbsi en vba

Bonjour, bartelele, Modeste 😀, le Forum,

Modeste à dit:

...Edit: Modification apportée à la pièce jointe: un commentaire mal placé provoquait une erreur.
Merci à DoubleZéro 🙂 pour sa vigilance!

Cliquez pour agrandir...

Merci + bise à Modeste pour son beau travail !

A bientôt 🙂

Re : Recherchev et nbsi en vba

Merci Modeste pour ton aide.

Désolé du retard j'étais en déplacement... Du coup j'ai essayé de me retrousser les manches ^^

J'avances un peu (j'ai découvert countif 🙄) mais j'ai un souci...

J'ai rajouté une nouvelle condition en plus de la date, j'ai l'impression que mon code est logique mais j'ai pas la logique vba 😉

Ya un gros bug ...

Si tu peux me donner une piste ce serait super !

Merci d'avance.

ps : le bouton c'est parce que j'ai deux conditions, ca laisse le temps de choisir.

Re : Recherchev et nbsi en vba

Bonsoir bartelele,

Visiblement, en déplacement, tu réfléchis beaucoup ... au point que j'ai un peu de mal à comprendre et m'y retrouver 😕
Ce que tu veux, c'est qu'en fonction des choix faits au niveau de la date et de "l'article", le programme (puisque tu es toujours obligé de travailler par macro) compte le nombre de fois où un siège, une vitre, une porte ou une ceinture figurent dans la liste?
Si j'ai bien compris, teste la pièce jointe (j'ai ajouté "à la volée" des situations supplémentaires dans ta liste en feuille1, sinon c'était un peu pauvre) A ce sujet, tu nous expliqueras pourquoi il y avait chaque fois une ligne vide entre les éléments de ta liste?

Donc teste ... et dis-nous,

Re : Recherchev et nbsi en vba

Merci Modeste ! 🙂
Tu as tout à fait compris, c'est exactement ce que j'essaie de faire depuis 3 jours... Comme tu l'as vu je suis débutant et j'ai pas tout compris à ce que tu as fait...🙁

Est ce que tu peux m'expliquer avec un commentaire ce que ca signifie pour que je puisse m'améliorer ?

En tout cas je te remercie de ton aide et de ta patience 🙄

------

Dim Model As String
Dim Cells3 As Range
Set liste = CreateObject("scripting.dictionary")
Target = Worksheets("Feuil2").Range("B4") 'defini target pour ce chemin
Model = Worksheets("Feuil2").Range("A6") 'defini model pour ce chemin

ActiveWorkbook.Sheets("Feuil2").Range("A7:B1000").ClearContents 'efface le contenu

For Each Cells3 In Worksheets("Feuil1").Range("B5:B" & Worksheets("Feuil1").Range("B1000").End(xlUp).Row) 'pour chaque cellule dans la feuil1 collone B
If IsDate(Cells3) Then 'si les cellules sont des dates
If Month(Cells3) = Month(Target) Then 'si les dates correspondent au mois selectionner dans la liste deroulante
If Cells3.Offset(0, 1) = Model Then 'si la cellule à droite de la date est égalle à l'article selectionner dans la liste deroulante
If Not liste.exists(Cells3.Offset(0, 2).Value) Then
liste(Cells3.Offset(0, 2).Value) = liste(Cells3.Offset(0, 2).Value) + 1
Else
liste(Cells3.Offset(0, 2).Value) = liste(Cells3.Offset(0, 2).Value) + 1
End If
End If
End If
End If
Next
If liste.Count > 0 Then
Worksheets("Feuil2").Range("A7").Resize(liste.Count, 1) = Application.Transpose(liste.keys)
Worksheets("Feuil2").Range("B7").Resize(liste.Count, 1) = Application.Transpose(liste.items)
End If
End Sub

-----

Pour 2012 YTD du coup je supose qu'il fait que je dise quelque chose comme ca ? ou c'est complètement déconnant?

If target = "2012 YTD" then
year(cells3) = year(01/01/2012)
end if


Merci encore pour ton aide ! 🙂

Re : Recherchev et nbsi en vba

Bonjour bartelele,

En commentant le code ci-dessous, je me suis aperçu qu'on pouvait le simplifier un brin:

Pour plus d'infos sur le sujet, voir chez JB, notamment.

Re : Recherchev et nbsi en vba

Merci Pour ton aide et tes explications 😉

Re : Recherchev et nbsi en vba

Bonjour,

Débutant en VBA je rencontre un petit soucis auquel vous allez surement pouvoir m'éclairer.
J'ai un fichier Excel avec lequel en :

- Feuille 2 je dispose d'un historique quotidien de tout les appels entrants/sortant.
- Feuille 3 je dispose de la base client avec plusieurs numéro pour un client.

Ce que je souhaiterais, c'est que si jamais un des numéros d'un client (Base client) figure dans l'historique des appels Entrants/Sortants, a ce moment la qu'il renseigne en Collonne K (Feuil 3)

J'ai pensé à faire un RECHERCHEV pour chaque colonnes des numéros de téléphones (Tel1-Tel2-Tel3....) mais ca reste trop long et peut efficace.

Si une personne pourrait m'éclairer la dessus.

Ci joint Fichier

Je vous remercie.

Cordialement,

RD