Discussion :

[manu f]

Bonjour

-Je cherche une colonne qui a pour valeur "505"
-une fois trouvé je parcours cette colonne a partir de la 3 eme ligne
-si la valeur correspond à la valeur de la première colonne de ma worksheet7
-alors je stock dans une autre feuille à la colonne M.. la valeur de la deuxième colonne de ma worksheet7.

J'ai testé les valeurs de mon if et elles sont bien égale, malgré ça n'execute pas l'instruction à l'intérieur de celle ci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  Set cel = Worksheets(3).Range("A1:CA1").Find(505, LookIn:=xlValues)
    nombreLigneFich = Worksheets(7).Cells(Cells.Rows.Count, 2).End(xlUp).Row
 
    For compteur = 3 To nombreLigne
        For cmpt = 2 To nombreLigneFich
            If Worksheets(3).Cells(compteur, cel.Column).Value = Worksheets(7).Cells(cmpt, 1).Value Then
                Worksheets(2).Range("M" & compteur).Value = Worksheets(7).Range("B" & cmpt).Value
            End If
        Next cmpt
    Next compteur

Avez vous une idée pour résoudre ce problème ?

[mercatog]

Problème de précision, essayes

Code :

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

If abs(Worksheets(3).Cells(compteur, cel.Column).Value - Worksheets(7).Cells(cmpt, 1).Value)<0.0001 Then' à choisir la précision

[manu f]

Là, je viens de changer le code, celui-ci a l'aire de fonctionner sauf quand il tombe sur une cellule vide où là ça plante...

Ce que je comprends pas c'est qu'ils ne devrait pas passer dans le if si la cellule est vide.

Code :

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

1
2
3
4
5
6
    For compteur = 3 To nombreLigne
        Search = Worksheets(3).Cells(compteur, cel.Column).Value
        If Not IsEmpty(Search) Then
            Worksheets(2).Range("M" & compteur).Value = Worksheets(7).Range("A2:A" & nombreLigneFich).Find(Search, LookIn:=xlValues).Offset(0, 1).Value
        End If
    Next compteur

L'erreur apparait au niveau de la ligne worksheets (les valeurs sont bien inséré dans la colonne jusqu'à ce que le programme tombe sur une valeur vide)

L'erreur :

Erreur d'execution "91":

Variable objet ou variable de bloc With non définie

Edit : en fait c'est lorsque que ca ne trouve pas la valeur que ca plante ><

(Ta solution fonctionne, merci beaucoup je vais pouvoir aller dormir )

[mercatog]

Tu dois passer par tester l'existence de la valeur, exemple à adapter

Code :

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

1
2
3
4
dim c as range
set c=Worksheets(7).Range("A2:A" & nombreLigneFich).Find(Search, LookIn:=xlValues)
if not c is nothing then Worksheets(2).Range("M" & compteur).Value = c.Offset(0, 1).Value
set c=nothing