Remplacer avec formule concatener

caroouline -  
Bonjour,

J'aimerais faire une macro.

colonne C : COMMISSIONS FACTURE NUMERO 20200901089501305

J'aimerais remplacer toute la colonne c comportant le mot COMMISSIONS avec une formule concatener("COM FACT AU ";'RELEVE CIC'!K1)

J'ai essayer :

Sub MAJBNP()

Columns("C:C").Select
Dim cellule As Range
For Each cellule In ActiveSheet.UsedRange
If cellule.Value = "*" & "COMMISSIONS" & "*" Then cellule.FormulaR1C1 = "=CONCATENATE(""COM FACT AU "",'RELEVE CICMAD'!RC[3])"
Next cellule
End Sub

ça ne marche pas.

Merci pour votre aide,

2 réponses

  1. michel_m Contributeur
    Bonjour

    dans la fonction "concaténer", il faut insérer le symbole & entre les données à concaténer
    1. Yoyo01000
      Bonjour,
      peut être plus simple :
      Ctrl+h
      Rechercher : COMMISSION
      Remplacer par : ="COM FACT AU "&'RELEVE CIC'!K1

      Discussions similaires

      exo pix
      Xtyller

      2 réponses