Créer un macro dans excel 2010

Résolu
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

4 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

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

    Cdlmnt
    1
  2. Agrippine60 Messages postés 5 Statut Membre
     
    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
    1. Agrippine60 Messages postés 5 Statut Membre
       
      On y est presque, il faut l'ajouter après le 190.... ce qui donnerait 1902968US

      Merci.
      0
  3. gyrus
     
    Bonjour,

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

    Cordialement.
    0
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1. Agrippine60 Messages postés 5 Statut Membre
       
      Wow!!!! Je te remercie vraiment beaucoup! Tu viens de faire ma semaine! Ça fonctionne à merveille.
      Merci! Merci! Merci!
      0
    2. ccm81 Messages postés 11033 Statut Membre 2 434
       
      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
    3. Agrippine60 Messages postés 5 Statut Membre
       
      Merci!
      0