Créer un macro dans excel 2010
Résolu
Agrippine60
Messages postés
5
Statut
Membre
-
Agrippine60 Messages postés 5 Statut Membre -
Agrippine60 Messages postés 5 Statut Membre -
Bonjour,
J'ai un tableau dans lequel j'ai dans la colonne I des devises. Si c'est différent de CAN, je dois ajouter cette devise après les chiffres de la colonne A.
Merci de m'indiquer comment faire.
Agrippine
J'ai un tableau dans lequel j'ai dans la colonne I des devises. Si c'est différent de CAN, je dois ajouter cette devise après les chiffres de la colonne A.
Merci de m'indiquer comment faire.
Agrippine
4 réponses
-
Bonjour
un exemple
https://mon-partage.fr/f/CBnO0If8/
Cdlmnt -
Merci de ta réponse. En fait, ce que j'ai besoin de faire c'est de prendre la valeur de la devise de la colonne I (si elle n'est pas CAN) et l'ajouter après chiffre de la colonne A.
1902968 0 1335 0 66,75 133,17 ADMTL 2019-04-02 US
1902969 0 2380 0 119 237,41 ASTATE 2019-04-02 CAN
1902970 0 70 0 3,5 6,98 BBDOM 2019-04-02 CAN
1902971 0 669,75 87,07 0 0 BCONF 2019-04-02 CAN
1902972 0 1713,92 222,81 0 0 BENJ 2019-04-02 CAN
1902973 0 530 0 26,5 52,87 BLCARG 2019-04-02 CAN
1902974 0 131,25 0 6,56 13,09 BOM 2019-04-02 US
1902975 0 190,13 0 9,51 18,97 BOM 2019-04-02 CAN
1902976 0 280 0 14 27,93 CAPI 2019-04-02 CAN -
-
Et si tu tiens à faire ça via une macro
Option Explicit Const lideb = 2 Public Sub ok() Dim li As Long, lifin As Long Dim X Application.ScreenUpdating = False lifin = Range("I" & Rows.Count).End(xlUp).Row li = Range("A" & Rows.Count).End(xlUp).Row For li = lideb To lifin X = Range("I" & li).Value If X <> "CAN" Then Range("A" & li).Value = Range("A" & li).Value & X End If Next li End Sub
Cdlmnt