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
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.
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
Pouvez-vous m'aider ou bien me donner un conseil?
Merci d'avance
Partager