Discussion :

[Rrrroh]

Bonjour à tous,
je ne sais pas si le titre est très explicite, aussi je vais vous exposer mon problème:

je dispose de 2 feuilles:
-la 1ere contient de produits (10k entrées environs), colonne A
-la seconde des contraintes colonnes D, sur les produits colonnes E

je voudrais répercuter visuellement la contrainte dans la feuille1 si le produit en porte une.

J'ai écrit ceci, toutefois je crois bien que j'ai mal compris le fonctionnement de cette recherche...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set wsh1 = Worksheets("f1")
Set wsh2 = Worksheets("f2")
LastLig1 = wsh1.Cells(Rows.Count, "D").End(xlUp).Row
LastLig2 = wsh2.Cells(Rows.Count, "A").End(xlUp).Row
 
For Ligne = PremiereligneR To LastLig1
   Ligne2 = 5
Set c = wsh2.Columns(1).Find(wsh1.Cells(Ligne, "D").Value, LookIn:=xlValues, lookat:=xlWhole)
   If c Is Nothing Then
   wsh2.Cells(Ligne2, "D") = ""
   Else: wsh2.Cells(Ligne2, "D").Value = wsh1.Cells(Ligne, "E").Value
   Ligne2 = Ligne2 + 1
   End If
Next Ligne

Je ne sais pas si cette idée pouvait être exploitée ou si il convient de faire autrement, toujours est il que je ne m'en sors pas.

Je vous remercie donc de bien vouloir jeter un coup d'oeil à mon problème.
Merci par avance et bonne fin de journée.

[zyhack]

Bonjour

A mon avis dans cette partie tu as inversé les colonne D et A car dans ton texte tu dis que les produits dans feuille 1 sont en colonne A

Code :

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

1
2
3
4
Set wsh1 = Worksheets("f1")
Set wsh2 = Worksheets("f2")
LastLig1 = wsh1.Cells(Rows.Count, "D").End(xlUp).Row
LastLig2 = wsh2.Cells(Rows.Count, "A").End(xlUp).Row

tu fais des copies de feuille 1 vers feuille 2 ?

enfin quelques erreurs qui font que je ne suis pas certain que le code que je te propose soit réellement ce que tu attend mais je l'ai bien commenté pour t'offrir une bonne base

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
16
17
18
19
20
21
22
23
24
25
Dim wsh1 As Worksheet, wsh1 As Worksheet
Dim ligne As Long, LastLig1 As Long
Dim C As Range
 
Set wsh1 = Worksheets("f1")
Set wsh2 = Worksheets("f2")
LastLig1 = wsh1.Cells(Rows.Count, "A").End(xlUp).Row
 
'Parcours la colonne 1 feuille 1
For ligne = 2 To LastLig1 'définir quel est la ligne de départ
  'recherche produit dans la colonne E de la feuille 2
  Set C = wsh2.Columns("E").Find(wsh1.Cells(ligne, "A").Value, LookIn:=xlValues, lookat:=xlWhole)
  'si une occurence a été trouvé
  If Not C Is Nothing Then
    'si il y a une contrainte en colonne D
    If wsh2.Range(C.Address).Offset(0, -1) <> "" Then
      'copie contrainte de feuille 2 vers feuille 1
      wsh1.Cells(ligne, "E").Value = wsh2.Range(C.Address).Offset(0, -1)
    End If
  End If
Next ligne
 
Set wsh1 = Nothing
Set wsh2 = Nothing
Set C = Nothing

[Rrrroh]

Oui j'avais inversé 2 colonnes...
merci zyhack, encore une fois.

le code final:

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
16
17
18
19
20
21
Set wsh1 = Worksheets("f1")
Set wsh2 = Worksheets("f2")
LastLig = wsh1.Cells(Rows.Count, "A").End(xlUp).Row
 
'Parcours la colonne 1 feuille 1
For Ligne = 5 To LastLig 'définir quelle est la ligne de départ
  'recherche produit dans la colonne D de la feuille 2
  Set C = wsh2.Columns("D").Find(wsh1.Cells(Ligne, "A").Value, LookIn:=xlValues, lookat:=xlWhole)
  'si une occurence a été trouvé
  If Not C Is Nothing Then
    'si il y a une contrainte en colonne D
    If wsh2.Range(C.Address).Offset(0, 1) <> "" Then
      'copie contrainte de feuille 2 vers feuille 1
      wsh1.Cells(Ligne, "D").Value = wsh2.Range(C.Address).Offset(0, 1)
    End If
  End If
Next Ligne
 
Set wsh1 = Nothing
Set wsh2 = Nothing
Set C = Nothing