Remplacer avec formule concatener
caroouline
Messages postés
37
Statut
Membre
-
Yoyo01000 Messages postés 1720 Date d'inscription Statut Membre Dernière intervention -
Yoyo01000 Messages postés 1720 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,
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,
