Discussion :

[Laura-c]

Bonjour,

J'essaye désespérément d'écrire une macro avec 2 ou 3 critères de recherche, et que celle ci me copie/colle les infos dans une autre feuille.

Voici comment est construit mon fichier:
- 1 feuille CRImport (info importé via une macro)
- 1 feuille Cash

Je souhaites que ma feuille cash se complète automatiquement par rapport à ma feuille CRimport. Les critères de recherche sont:
- la date,
- le code analytique (imput) et si n° imput non trouvé par rapport au n° de commande.

Je vous joins un extrait de mon tableau.

Merci de votre aide, je continue à me creuser la tête de mon côté.

[David2304]

Bonjour,

Des boucles imbriquées For each...Next ou For...Next devraient faire l'affaire
ex:

Code :

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

1
2
3
4
5
6
7
For Each celCRImport In Worksheets("CRImport").Range("E2:E4")
    For Each celCash In Worksheets("Cash").Range("C8:C60")
        If celCRImport = celCash Then
 
        End If
    Next
Next

[Laura-c]

Je comprends ce que tu veux dire mais en l'occurrence je ne me base que sur 1 seul critère si je suis ton raisonnement et non pas 2.

Comment lui dire si le n° d'imputation et la date corresponde c'est à ce moment là que les infos s'inscrivent dans ma feuille Cash (a savoir qu'elles vont parfois devoir s'additionner).

[David2304]

Il y a peut-être plus simple mais tu peux enchaîner avec une autre boucle lorsque la condition (celCRImport = celCash) est respectée

Ton tableau n'étant pas très explicite au niveau de la date, je n'ai pu tester

Sinon tu as toujours la fonction Sommeprod sans passer par vba

[Laura-c]

Je préfère passer par du VBP parce que mon CRImport est un extrait d'un autre fichier celui ci s'étend de mai 2008 et ira surement jusqu'à juin 2011, par conséquent cela m'évite de recopier des formules qui peuvent à la longue être erroné...

J'avoue que mon fichier est un tout petit extrait mais c'était pour éviter de le surcharger.

Je vais essayer de créer des boucles et je vous dirais demain si ça fonctionne.

MErci

[David2304]

Essaye ce code, ça devrait fonctionner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each celCRImport In Worksheets("CRImport").Range("E2:E4")
    For Each celcash In Worksheets("Cash").Range("C8:C60")
        If (Mid(celCRImport, 1) = Mid(celcash, 1) Or celCRImport.Offset(0, -1).Value = celcash) And celcash <> "" Then
 
            For Each datecash In Worksheets("Cash").Range("E6:Z6")
                If datecash <> "" And Month(datecash) = Month(celCRImport.Offset(0, -3).Value) And Year(datecash) = Year(celCRImport.Offset(0, -3).Value) Then
 
                Worksheets("Cash").Cells(celcash.Row, datecash.Column) = Worksheets("Cash").Cells(celcash.Row, datecash.Column) + celCRImport.Offset(0, 4)
                End If
            Next
        End If
    Next
Next