Discussion :

[cecyl]

Bonjour,

j ai un probleme pour definir un Range. Je m explique : j ai stocke des valeurs de Classeur1 dans un tableau. J ouvre ensuite Classeur2, et pour chaque cellule d un range de Classeur2, je veux chercher la valeur qui correspond dans mon tableau, jusqu a trouver celle qui correspond.
Mon probleme : definir un range sur mon tableau.
Voici mon bout de code : (le probleme vient de Set Plage)

Code :

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

1
2
3
4
5
6
7
For Each CellWanted In Range(Cells(7, 1), Cells(1100, 1))
    Set Plage = Range(matrix(1, 1), matrix(1, 1100))
    Set C = Plage.Find(CellWanted.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
        'mon code
    End If
 Next

J avais au depart essaye une autre maniere, qui marche tres bien, mais qui etait beaucoup trop longue. La voici :

Code :

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

1
2
3
4
5
6
7
For Each CellWanted In Range(Cells(7, 1), Cells(1100, 1)) 
    For k = 7 To 1100
       If CellWanted.Value = matrix(0, k) Then
            'mon code
       End If
    Next
Next

Mon probleme principal est d optimiser mon code, et pour ca j ai pense au premier bout de code ci dessus, mais je ne trouve pas comment definir mon Range.

Merci d avance a qui pourra me depanner !

[mercatog]

Certes problème, ci-joint proposition à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim wbk1 As Workbook, wbk2 As Workbook
Dim Matrix As Range, c As Range, CellWanted As Range
 
'wbk1: Classeur1
'wbk2: Classeur2
 
Set Matrix = wbk1.Sheets("Feuil1").Range("B45:D1500") 'à adapter
With wbk2.Sheets("Feuil2")                            'à adapter
   For Each CellWanted In .Range("A7:A1100")
      Set c = Matrix.Find(CellWanted.Value, LookIn:=xlValues, LookAt:=xlWhole)
      If Not c Is Nothing Then
         'mon code
      End If
   Next CellWanted
End With

[cecyl]

Merci,

en effet c est plus simple en definissant Matrix comme un Range.

Cependant ma matrix precedente etait composee de 2 colonnes:
- une de nom : c est sur celle la que j utilise .Find, car mon Classeur2 est compose de noms aussi
- une de valeur, que j utilise dans la suite de mon code.
C est pour ca que j avais cree un tableau.

Avec votre methode, je vois ca comme ca :
je cree 2 Range : Matrix1 et Matrix2, un avec les noms et l autre avec les colonnes, avec le meme nombre de cellules et les memes lignes.
Ensuite je fais ma recherche sur Matrix1, et je recupere la ligne de la valeur voulue avec c.Row... mais comment trouver la valeur correspondante dans Matrix2 ?

Bref je ne sais pas si je suis tres claire, mais j ai du mal a comprendre comment utiliser les cellules de mes 2 range...

[mercatog]

Matrix est une plage multi colonnes

si tu trouves ton c (en colonne 1 de matrix), c.offset(0,1) te donnera la valeur juste à côté en colonne 2 de matrix
on aurait

Code :

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

1
2
3
4
5
6
7
8
9
Set Matrix = wbk1.Sheets("Feuil1").Range("A45:B1500") 'à adapter
With wbk2.Sheets("Feuil2")                            'à adapter
   For Each CellWanted In .Range("A7:A1100")
      Set c = Matrix.columns(1).Find(CellWanted.Value, LookIn:=xlValues, LookAt:=xlWhole)
      If Not c Is Nothing Then
         msgbox "Nom " & c &", Valeur " & c.offset(0,1)
      End If
   Next CellWanted
End With

[cecyl]

ah oui en effet, en definissant Matrix comme un Range("A45:B1500"), Matrix contient mes colonnes A et B.
Je n avais pas vu la subtilite au debut, car je ne faisais pas trop le lien entre un Range et un tableau !
Merci pour ton aide