Remplacer avec formule concatener

caroouline Messages postés 35 Date d'inscription   Statut Membre Dernière intervention   -  
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   -
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,
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour

dans la fonction "concaténer", il faut insérer le symbole & entre les données à concaténer
0
Réponse 2 / 2
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   168
 
Bonjour,
peut être plus simple :
Ctrl+h
Rechercher : COMMISSION
Remplacer par : ="COM FACT AU "&'RELEVE CIC'!K1
0