Remplacer avec formule concatener

Signaler
Messages postés
34
Date d'inscription
mardi 5 mai 2020
Statut
Membre
Dernière intervention
8 octobre 2020
-
Messages postés
1182
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
-
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

Messages postés
16267
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
28 octobre 2020
3 053
Bonjour

dans la fonction "concaténer", il faut insérer le symbole & entre les données à concaténer
Messages postés
1182
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
117
Bonjour,
peut être plus simple :
Ctrl+h
Rechercher : COMMISSION
Remplacer par : ="COM FACT AU "&'RELEVE CIC'!K1