Probleme avec la fonction FINDRésolu

Question

bonjour.


j'ai deux feuilles: feuille1 (avec toutes les données) et feuille2 (feuille vide dans laquelle je vais insérés certaines données en m'appuyant de la feuille1).


voici comment est composé la feuille 1:
colonne1: dates, colonne 2: codes clients, colonne 3: types , colonne 4 à colonne 9: valeurs 


voici comment est composé la feuille 2:
colonne1: codes clients, ligne 2: dates de la période d'etude

ce que j'aimerais faire:
mettre dans chaque cases du tableau de la feuille2 (ayant en vertical le code clien et en horizontal les date) la somme correspondante: la somme des valeurs des colonnes 4 à 9 de la feuille1.

voila le procédé : 
on a le code client et la date dans la feuille 2.
on cherche la ligne de la feuille 1 qui a le bon code client, la bone date, le type "SC" , et on 
met dans la feuille2, a l'intersection du code client et de la date, la somme des valeurs.

j'ai l'impression de ne pas etre clair...
je vous met mon code ( qui ne marche pas, je ne sais pas pourquoi!  ) :

Dim id_cherche As String
Dim date_cherche As Date
Dim ligne As Integer
Dim colonne As Integer
Dim Derlig As Integer
Dim DerCol As Integer
Dim DerCell_NonVide As String
Dim Type_Cherche As String


Derlig = Range("A65535").End(xlUp).Row
DerCol = Range("A" & Derlig).End(xlToRight).Column
DerCell_NonVide = Cells(Derlig, DerCol).Address()


For i = 2 To Derlig
id_cherche = feuille1.Cells(i, 3)
date_cherche = feuille1.Cells(i, 1)
'Type_Cherche = feuille1.Cells(i, 2)


Set Tt = feuille1.Range("B1" & ":" & "B" & Derlig).Find("SC", LookIn:=xlValues)


With feuille2.Range("A1" & ":" & DerCell_NonVide)


     Set C = .Find(id_cherche, LookIn:=xlValues)
     Set d = .Find(date_cherche, LookIn:=xlValues)
   ' Set Tt = .Find("SC", LookIn:=xlValues)
    
    If (Not C Is Nothing) Then
        firstAddress = C.Address
        Do
            If (Not C Is Nothing) And (Not d Is Nothing) And (Not Tt Is Nothing) Then
            ligne = C.Row
            colonne = d.Column


            feuille2.Cells(ligne, colonne) = Application.WorksheetFunction.Sum(feuille1.Range("D" & i & ":" & "I" & i & ""))
            Set C = .FindNext(C)
            Set d = .FindNext(d)
            End If
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If


End With


Next i

si quelqu'un a une solution, pleaseeeeeeee help me !

thanks!

Monaldinho. 

 faites comme moi, éssayer d'éviter le coté obscur de la force

monaldinho · Accepted Answer

arg... escuse moi, il est vrai, c'est pluto colone1: date, colonne2: type et colone3: code client. j'ecris feuille1 parce ke j'ai déclaré la feuille o debut de mon code. je suis dsl de pas avoir été assez complet. j'ai vu que ca marché seulement quand je mettait toute les dates en periode d'etude. jai testé le code en triant la feuille1 par "type" et ca à l'air de marché... j'ai les bon resulats. voici le code : ( en rouge ce que j'ai ajouté par rapport au précédent ) : Trier_Par_Type_Operation 'procedure qui trie les données par rapport au type Dim id_cherche As String Dim Date_Cherche As Date Dim ligne As Integer Dim colonne As Integer Dim Derlig As Integer Dim DerCol As Integer Dim DerCell_NonVide As String Dim Type_Cherche As String Derlig = Range("A65535").End(xlUp).Row DerCol = Range("A" & Derlig).End(xlToRight).Column DerCell_NonVide = Cells(Derlig, DerCol).Address() For i = 2 To Derlig id_cherche = feuille1.Cells(i, 3) Date_Cherche = feuille1.Cells(i, 1) Set Tt = feuille1.Range("B1" & ":" & "B" & Derlig).Find("SC", LookIn:=xlValues) With feuille2.Range("A1" & ":" & DerCell_NonVide) Set C = .Find(id_cherche, LookIn:=xlValues) Set d = .Find(Date_Cherche, LookIn:=xlValues) If (Not C Is Nothing) And (Not d Is Nothing) Then firstAddress = C.Address secondAddress = d.Address Do If (Not C Is Nothing) And (Not d Is Nothing) And (Not Tt Is Nothing) Then ligne = C.Row colonne = d.Column 'MsgBox "bo goss" feuille2.Cells(ligne, colonne) = Application.WorksheetFunction.Sum(feuille1.Range("D" & i & ":" & "I" & i & "")) Set C = .FindNext(C) Set d = .FindNext(d) End If Loop While Not C Is Nothing And C.Address <> firstAddress And d.Address <> secondAddress End If End With Next i Trier_Par_Date 'procedure qui trie par rapport à la date j'ai decouvert cette fonction hier, et c'est hyper pratique... quand on la maitrise! lol faut que j'affine un peu mon code, car c'est pas encore top... en tout cas merci beaucoup de ton aide tubafat!!! c'est super cool de ta part ! Monaldinho. faites comme moi, éssayer d'éviter le coté obscur de la force

tubafat · Answer

Salut, quand tu dis que ton code ne marche pas, qu'est ce qui ne marche pas?
As-tu un message d'erreur? Ou juste ça ne fait pas ce que tu veux?

Tubafat

monaldinho · Answer

hello tubafat !

il n'y a pas de message d'erreur. 
il n'y a rien qui se produit.
au debut j'avais un code avec plein de boucle while et if, la compilation se faisait apres un temp trop long!
on m'a proposé de tout remplacer par la fonction FIND, pour amélioré le temps de compilation.
ca va plus vite c'est vrai... mais ca ne me donne aucun résultat... 
je suis perdu la.
je vois pas quoi rajouter pour que les résultats s'affichent.

Monaldinho

 faites comme moi, éssayer d'éviter le coté obscur de la force

tubafat · Answer

Alors après avoir bien regardé ton code, plusieurs points m'interpellent:

- dans ton descriptif tu dis que :"colonne1: dates, colonne 2: codes clients, colonne 3: types "  mais dans ton code: id_cherche = feuille1.Cells(i, 3) 'colonne 3
date_cherche = feuille1.Cells(i, 1) 'colonne 1
'Type_Cherche = feuille1.Cells(i, 2) 'colonne 2

- tu écris par exemple: feuille1.Cells(i, 3), ne sfaudrait-il pas plutôt écrire Worksheets("feuille1").cells(i,3) ?

Pour le rest, j'ai testé, chez moi ça marche bien pour la première valeur trouvé et après ça fait du grand n'importe quoi...
J'espère que tu trouveras une meilleure aide. En attendant je continue à chercher.

@+

Tubafat

tubafat · Answer

De rien, je ne connaissais pas cette fonction non plus, donc ça me permet d'apprendre en même temps!!! 

Tubafat

Probleme avec la fonction FIND

5 réponses

Votre réponse

Discussions similaires