Discussion :

[derech]

Bonjour,

Je veux faire une macro à partir du classeur que j'ai mis en pièces jointes.
Mes données sont dans les trois colonnes m n et o. Pour chaque GOP (en ligne, de b à k) je souhaite attribuer le montant correspondant a chaque nom (dans la coloone A).

Exemple: Pour bakhos et FTD je dois avoir le montant correspondant ,c.a.d "887 524.23" en D8 et ainsi de suite.

Voila j'espère que je suis assez clair et que quelqu'un pourra m'aider, merci!

Ah et au fait , je ne peux pas enregistrer ou ouvrir les pièces jointes depuis mon poste car c'est bloqué par la boite ou je travaille.
Si vous répondez pouvez-vous mettre le code dans une balise , ca serait sympa, merci.

Bonjour,

je renvois mon fichier en piece jointe, j'ai codé ce que j'arrivais à coder..mais qui ne suffit pour faire ce que je veux. Ma procedure fai appel à une table de correspondance qui cherche et attribue le montant dans la colonne B (Or je veux que ce montant soit collé dans la bonne colonne en fonction du nom qui lui est attribué). Cf:piece jointe

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
 
Sub colgop()
 
    Dim PlageSource As Range
    Dim PlageRecherche As Range
    Dim CelSource As Range
    Dim CelTrouvee As Range
    Dim ValeurTrouvee As Variant
 
 
    Set PlageSource = Worksheets("test").Range("a8:a" & Worksheets("test").Range("a8").End(xlDown).Row)
    Set PlageRecherche = Worksheets("test").Range("m8:m" & Worksheets("test").Range("m8").End(xlDown).Row)
 
    For Each CelSource In PlageSource
        Set CelTrouvee = PlageRecherche.Find(what:=CelSource.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not CelTrouvee Is Nothing Then CelSource(1, 2).Value = CelTrouvee(1, 3).Value
    Next CelSource
 
    Set PlageSource = Nothing
    Set PlageRecherche = Nothing
    Set CelSource = Nothing
    Set CelTrouvee = Nothing
    Set ValeurTrouvee = Nothing
 
End Sub

Je pense qu'il faut que je definisse une autre variable pour les noms qui sont en lignes 6, mais je ne sais pas comment faire.

Pouvez-vous m'aider ou bien me donner un conseil?

Merci d'avance