Bonjour
je suis débutant et cherche a résoudre le problème suivant:

J'ai deux sheets, "WB" et "CA".
- WB contient un pivot avec une colonne contrats (qui contient des codes lettres et une quelques cellules vides au milieu)
- CA contient un tableau avec une colonne contrats mais dont certains elements ne sont pas dans WB. Par ailleurs ce tableau fait correspondre a chaque contrat un poids.

J'ai mis un bouton sur la sheet WB et je voudrais qu'il soit associée a la procédure suivante:
1. pour chaque contrat dans le pivot de WB, allez chercher dans CA le même numéro de contrat
2. copier le poids associe a ce contrat tel qu'il apparait dans CA
3. coller ce dernier dans une cellule immédiatement a cote du contrat dans WB

et ce bien entendu pour chacun des code contrats de WB.



Voici mon code jusqu'ici, sans doute tres tres moche... mais pas de solution apres deux jours donc je me permets de poster.


-------
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
26
27
28
Dim contratID As String
Dim noLigneWB As Integer
Dim noLigneCA As Integer
 
Dim Plage As Range
Dim Cellule As Range
 
Sheets("WB").Activate
noLigneWB = ActiveSheet.Range("J65536").End(xlUp).Row
Sheets("CA").Activate
noLigneCA = ActiveSheet.Range("H65536").End(xlUp).Row
 
 
Set Plage = Sheets("CA").Range("A1:A&noligneCA")
 
For i = 9 To noLigneWB
contratID = Sheets("WB").Range("J" & i).Value
For Each Cellule In Plage
If Cellule.Value = contratID Then
Cellule.Select
Dim L As Integer
L = ActiveCell.Row
Dim comwgt As Double
comwgt = Range("H&L").Value
Sheets("WB").Range("N" & i).Value = comwgt
End If
Next Cellule
Next
--------