Bonjour,

Sauriez vous passer cette macro excel pour google drive ?

Merci bonne soirée

Code VBA : 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
29
30
31
32
33
34
35
36
37
38
Sub Modif_Prix()
 
 
Sheets("Calculator").Activate
'Compte le nombre de produits
Cells(12, 1).Activate
Selection.CurrentRegion.Select
Nbprod = Selection.Rows.Count - 1
'Boucle de la ligne 13 jusqu'à la fin de la liste
For I = 13 To 13 + Nbprod - 1
    Sheets("Calculator").Activate
    Cells(I, 1).Select
        'Si la cellule prix contient une valeur
        If Cells(I, 1).Value <> Empty Then
            'Récupère cette valeur
            Newprix = Cells(I, 1).Value
            'selectionne la cellute de droite
            Selection.Offset(0, 1).Activate
            'Récupère la valeur de cette cellule (Produit)
            Produit = ActiveCell.Text
 
            'Active la feuille liste prix
            Sheets("Dirty Data").Activate
            Cells(1, 16).Select
            'Tant que la cellule contenant la valeur du produit n'est pas recontrée
            While ActiveCell.Value <> Produit And ActiveCell.Value <> Empty
                'se déplace vers le bas
                Selection.Offset(1, 0).Activate
                'quand la cellule recontrée = Produit
                If ActiveCell.Value = Produit Then
                    'décale vers la droite et inscrit le nouveau prix
                    Selection.Offset(0, 1).Activate
                    ActiveCell.Value = Newprix
                End If
            Wend
         End If
Next
End Sub