Créer un macro dans excel 2010 Résolu/Fermé

Question

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

ccm81 · Answer

Bonjour

un exemple
https://mon-partage.fr/f/CBnO0If8/

Cdlmnt

Agrippine60 · Answer

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

gyrus · Answer

Bonjour,

Un essai ...
https://www.cjoint.com/c/IEhiungVFTC

Cordialement.

ccm81 · Answer

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