Comparer colonne avec cellule

Version imprimable

02/05/2007, 12h50
jaypaulojay

Comparer colonne avec cellule

Bonjour,

Je suis actuellement un stage, et j'ai besoin d'effectuer une partie en vba.

Je vous expose mon problème. J'ai deux feuilles que nous appellerons feuille A et feuille B.

Dans la feuille A se trouve une liste de produit avec leur code article, désignation et d'autres informations.

La feuille B a été créée pour pouvoir modifier rapidement les informations contenues dans la feuille A, car il y a beaucoup de références.

Donc en rentrant le code article dans la feuille B et par l'intermédiaire de la fonction recherche toutes les informations se réécrive dans la feuille B.

Donc j'ai commencer le codage d'un programme, qui copie les informations de la feuille B un peu plus bas dans la feuile( de façon à ce que les formules excel ne soient pas effacées).

et que lors de la modification de ces informations, elles soient réinjectées dans la feuille A, à la bonne ligne correspondant au code article bien sur.

Plus clairement :
Donc comparer le code article de la feuille B (A3) avec l'ensemnble des codes articles de la feuille A (contenu dans la colonne A), une fois kil a retrouvé le bon, sur la même ligne il copie les autres informations de la feuille B, celle que l'on a modifié.

Mon problème est pour effectuer la comparaison entre la cellule de la feuille B et toutes les cellules de la colonne A de la feuille A.

Une idée ?

Merci d'avance
02/05/2007, 13h12
ouskel'n'or

Peut-être ceci pourra-t-il t'aider.
02/05/2007, 14h16
jaypaulojay

je regarde et je te tiens au courant.
Merci

j'ai essayé mais j'ai pas réussi donc je te copie le code, j'espère que tu pourras m'aider.

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Test_Click()
Dim maVal As Variant, c As Variant, NoLigne As Long, b As Variant
Dim lib As String
Dim boite As Double
Dim carton As Double
Dim delai As Double
Dim regap As String
Dim prix As Double
Dim F1 As Worksheet
 
            'récupération  des informations dans la seconde feuille à remettre dans la bonne ligne de la première feuille
        Sheets("Critère modif").Select
        b = Range("A3") 'je récupère la valeur que je recherche dans la
        lib = Range("B3")
        boite = Range("C3")
        carton = Range("D3")
        delai = Range("E3")
        regap = Range("F3")
        prix = Range("G3")
 
    Set F1 = Worksheets("conso classe A") 'Nom de ma première feuille
    maVal = b 'je rentre ce que je recherche dans maval
 
    With F1.Range("A:A") 'ma plage de recherche est tout la colonne A de la feuille conso classe A
    Set c = .Find(maVal, LookIn:=xlValues)
 
        If Not c Is Nothing Then
            Do
        NoLigne = c.Row + 1
        Sheets("conso classe A").Select
        Cells(NoLigne, 2).Value = lib 'recopie des données modifiées dans la feuille Conso classe A
        Cells(NoLigne, 17).Value = prix
        Cells(NoLigne, 20).Value = regap
        Cells(NoLigne, 21).Value = boite
        Cells(NoLigne, 22).Value = carton
        Cells(NoLigne, 23).Value = delai
 
        Set c = .FindNext(c)
 
            Loop While Not c Is Nothing And c.Row > NoLigne
        End If
    End With
    Set c = Nothing
    Set F1 = Nothing
 
End Sub

02/05/2007, 15h30
jaypaulojay

je sais pas si ça fais le test correctement, et le recopiage ne passe, pas , pourtant les données sont bien récupérées j'ai vérifier dans l'affichage de variable locale en mode pas à pas !!
:s

help me please
02/05/2007, 15h44
jaypaulojay

C'est good j'ai trouvé merci.
je sais pas pourquoi

cete ligne ne fonctionne pas :s
Sheets("conso classe A").Select

donc j'ai rajouté ça
F1.Cells(NoLigne, 2).Value = lib

et j'ai aussi retiré le + 1 dans la boucle, il décalait d'une ligne...

Je ne vois pas où est l'erreur mais j'écrirais ça comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    With f1.Range("A:A") 'ma plage de recherche est tout la colonne A de la feuille conso classe A
        Set c = .Find(maVal, LookIn:=xlValues)
 
        If Not c Is Nothing Then
            Do ''recopie des données modifiées dans la feuille "Conso classe A"
               NoLigne = c.Row + 1
               f1.Cells(NoLigne, 2).Value = lib
               f1.Cells(NoLigne, 17).Value = prix
               f1.Cells(NoLigne, 20).Value = regap
               f1.Cells(NoLigne, 21).Value = boite
               f1.Cells(NoLigne, 22).Value = carton
               f1.Cells(NoLigne, 23).Value = delai
 
               Set c = .FindNext(c)
 
            Loop While Not c Is Nothing And c.Row > NoLigne
        End If
    End With

Tu testes ?
A+