Discussion :

[pradaseven]

Bonjours!!
Bon j'ai crée una macro avec 7 feuilles ("Coherence","Diference",.......,"Compo","interpretation") dans chaque feuilles y'a 3 colonnes qui sont la 'reference','indice','designation ordonnée sauf la feuille "compo" elle a 2 contenue 'compo' et 'reference'
NB:une 'compo' peut avoir plusieur 'reference'.Ils ne sont pas sur une seule colonne
Le probleme

Aprés avoir fait ceci je dois ajouter une colonne a la feuille "Diference" et cette colonne contiendra la 'compo' corespondante a la 'reference' .J'ai pensé a prendre chaque 'reference' de la feuille "Diference" la comparé avec celles de la feuille "Compo" si elles sont eguales je copie la 'compo' de la feuille "compo" puis la coller a la "Diference"

je suis arrivé´jusque la ça marche pas!!!j'ai besoin de votre aide svp!!

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
'************************************************************************************
'Ajouter une colonne a Dieference
Sheet("Diference").Select
Columns("A:A").Insert
Range("A1").Activate
valeur = ActiveCell.Value
 
 
 'Executer la routine pour ajouter les compos y ces pieces
Call Localizer_pieces_en_subcompos(feuilgdg1, feuilgdg2, nivelsuperieur, sumnivels)
 
Range("A:J").Activate
If (valeur = ActiveCell.Value) Then
 ActiveCell.Offset(-1, 0).Range("A1").Select 'Salta una celda a la derecha
 If Left(ActiveCell.Value, 3) = "C00" Then
 ActiveCell.Copy
 Sheet("Diference").Select
 Columns("A:A").Paste

[wilfried_42]

Bonjour

je ne comprends pas ce que tu cherches à faire avec valeur

Code :

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

1
2
3
4
Sheet("Diference").Select
Columns("A:A").Insert
Range("A1").Activate
valeur = ActiveCell.Value

tu selectionnes une feuille
Tu inserres une colonne en colonne A
Tu actives la cellule A1
Tu mets sa valeur dans la variable valeur
Mais il n'y a rien dans cette cellule, la colonne venant d'être insérée

[pradaseven]

c pour garder la valeur a comparer avec l'autre feuille!!!