Recherche en VBA

[loto]

Bonsoir,

J'ai tjs les mêmes problèmes pour aller au bout des choses sans aide... Un sujet traité 100 fois, j'ai bcp étudié, mais je ne m'en sort pas:

Je souhaite récupérer dans une feuille à part toutes les infos relatives à un type de dépense et les arranger de façon transposée : dans mon exemple, extraire tous des objets et leur cout dans la catégorie SAV.

Il faut que je le fasse en vba

La référence à la catégorie peut être indiquée à la main dans le code ou = le nom de la feuille ou d'un range dans la feuille. Peut importe, là je crois que je m'en sortirai.
Mais comment diable faire cette requête??

Merci une fois de plus,

 

[skoobi]

Re : Recherche en VBA

Bonsoir loto,

tu fais un filtre automatique sur le type: SAV.
Ensuite copie en transposant vers la feuille SAV en A1.
En code VBA:

Sub Macro1()
Range("A1").AutoFilter Field:=1, Criteria1:="SAV"
Range("_Filterdatabase").Offset(0, 1).Copy
Sheets("SAV").Range("A1").PasteSpecial xlPasteAll, , False, True
Range("A1").AutoFilter
End Sub

Bon test et bonne soirée.

 

[loto]

Re : Recherche en VBA

Bonjour,

Skoobi ta solution marche mais j'ai malheureusement omis de te dire que les intiulés "Objet" existent déjà en en-tête de colonne.
Il faut donc aller chercher le montant relatif au SAV pour l'objet 1 et le répercuter sous objet 1

Servira à alimenter des tableaux récapitulatifs des dépenses à partir de sources variables...Et il faut que ce soit en VBA (je veux faire un indexage en vba en qque sorte)

Pouvez-vous y jeter un coup d'oeil?

 

[skoobi]

Re : Recherche en VBA

Bonjour loto,

si j'ai bien compris, modifie comme ceci:

..........
Range("_Filterdatabase").Offset([SIZE=5][COLOR=Blue]1[/COLOR][/SIZE], 1).Copy
...........

 

[pierrejean]

Re : Recherche en VBA

Bonjour loto

Salut Skoobi

En supposant avoir compris

 

[loto]

Re : Recherche en VBA

Bonsoir PierreJean,

Comment ajouter la condition va chercher le cout en "C" si et seulement si le type = SAV ? car ta solution va chercher le cout des objets quel que soit le type de dépense

Merci,

 

[pierrejean]

Re : Recherche en VBA

Re

Vois si cela va mieux

 

[loto]

Re : Recherche en VBA

Bonjour PJ,

C'est exactement cela. Merci bcp,

Dis, tu utilise Ucase car ma condition est du texte n'est-ce pas?

 

[pierrejean]

Re : Recherche en VBA

Re

Ucase ne fonctionne vraiment que sur du texte, mais je l'ai mis ici de façon à laisser la possibilité d'inscrire aussi bien SAV que Sav ou sav etc..

 

[loto]

Re : Recherche en VBA

OK, c'est intéressant

Je te remercie pour ton aide et garde précieusement cette commande qui va bcp me servir.

Je te souhaite une bonne journée!

 

[loto]

Re : Recherche en VBA

Pierre Jean,

je le crois pas!! si je mets un autre critère que SAV ça ne marche plus!!😱
Comment ça peut être possible!!

J'espère que tu me suis encore....

Sub test()
Sheets("SAV").Rows(2).ClearContents
Sheets("SAV").Range("A2") = "Cout"
For n = 2 To Range("B65536").End(xlUp).Row
If UCase(Range("A" & n)) = "Achat" Then
Set c = Sheets("SAV").Rows(1).Find(Range("B" & n), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(1, 0) = c.Offset(1, 0) + Range("C" & n)
End If
End If
Next n
Sheets("SAV").Select
End Sub

 

[bof]

Re : Recherche en VBA

Bonjour,

If UCase(Range("A" & n)) = [B]"ACHAT"[/B] Then ...

A+

 

[loto]

Re : Recherche en VBA

OUPS

Merci