Sujet Précédent Sujet Suivant

Créer un macro dans excel 2010

Résolu/Fermé
Agrippine60 Messages postés 5 Date d'inscription lundi 6 mai 2019 Statut Membre Dernière intervention 7 mai 2019 - Modifié le 6 mai 2019 à 15:53
Agrippine60 Messages postés 5 Date d'inscription lundi 6 mai 2019 Statut Membre Dernière intervention 7 mai 2019 - 7 mai 2019 à 22:45
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
A voir également:

4 réponses

Réponse 1 / 4
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
6 mai 2019 à 22:04
Bonjour

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

Cdlmnt
1
Réponse 2 / 4
Agrippine60 Messages postés 5 Date d'inscription lundi 6 mai 2019 Statut Membre Dernière intervention 7 mai 2019
6 mai 2019 à 22:29
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
0
Agrippine60 Messages postés 5 Date d'inscription lundi 6 mai 2019 Statut Membre Dernière intervention 7 mai 2019
7 mai 2019 à 14:02
On y est presque, il faut l'ajouter après le 190.... ce qui donnerait 1902968US

Merci.
0
Réponse 3 / 4
gyrus
7 mai 2019 à 10:20
Bonjour,

Un essai ...
https://www.cjoint.com/c/IEhiungVFTC

Cordialement.
0
Réponse 4 / 4
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
7 mai 2019 à 19:57
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
0
Agrippine60 Messages postés 5 Date d'inscription lundi 6 mai 2019 Statut Membre Dernière intervention 7 mai 2019
7 mai 2019 à 21:22
Wow!!!! Je te remercie vraiment beaucoup! Tu viens de faire ma semaine! Ça fonctionne à merveille.
Merci! Merci! Merci!
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
7 mai 2019 à 22:08
De rien

Il y a cette ligne a supprimer
li = Range("A" & Rows.Count).End(xlUp).Row

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

Cdlmt
0
Agrippine60 Messages postés 5 Date d'inscription lundi 6 mai 2019 Statut Membre Dernière intervention 7 mai 2019
7 mai 2019 à 22:45
Merci!
0