Discussion :

[suikasensei]

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

--------

[Qwazerty]

SAlut

Tu vas faire un traitement qui risque de prendre un peu de temps, le premier réflexe est de faire référence aux onglets sur lesquels tu travailles via une variable, ainsi si tu change de classeur au cours de l'opération ta macro n'ira pas chercher les onglet dans ce nouveau classeur

Code :

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

1
2
3
4
5
Dim ShWB as Worksheet, ShCA as worksheet
 
'On initialise les 2 variables onglet
set ShWB = ThisWorkbook.Sheets("WB")
Set ShCA = ThisWorkbook.Sheets("CA")

Il faut impérativement laisser tomber les Activate, select et compagnie, ils ne seront utiliser que dans certain cas bien précis. En règle général, il est inutile d'afficher une feuille pour travailler sur son contenu.
Il est préférable d'utiliser Cells plutôt que Range dans ce cas de figure afin de rendre le code portable sur des versions supérieures d'excel.

Code :

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

noLigneWB = shwb.cells(shwb.rows.count,"J").End(xlUp).Row

Il existe une autre méthode avec une boucle For Each [Edit]Je suivais ton code ligne par ligne et je n'avais pas vu que tu l'utilisais après[/Edit]

Code :

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

1
2
3
4
5
6
7
Dim TheCell as Range
 
For each TheCEll in shwb.range("J9",shwb.cells(shwb.rows.count,"J").End(xlUp)
   'Ici TheCell pointera alternativement chaque cellule incluse après In
   contratID = TheCell.value
   ...
Next

Il faut éviter de déclarer les variables en plein milieu du code, les déclarer au début rend le code plus lisible.

Une fois que tu as la valeur à rechercher contratID, plutot que de refaire une boucle de recherche, il est préférable d'utiliser la méthode Find, tu trouveras les renseignements nécessaires à sa mise en place dans l'aide.


Deux conseils,
Au début de ton traitement utilise

Code :

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

Application.ScreenUpdating = false

et repasse le à True à la fin du traitement. Ton affichage restera figé, tu ne verras pas les valeur se remplir mais tu y gagneras en vitesse d’exécution (et je ne parle pas de quelques millisecondes...)
Si ton traitement s'effectue sur un très grand nombre de lignes, regarde du coté des tableaux de valeurs, ils te permettent de faire un travail bien plus rapide.
++
Qwaz

[suikasensei]

Merci pour votre reponse et votre temps.
Je vais essayer de reformuler mon code avec vos conseils.