VBA - coller une formule "concatener"

Bonjour à tous,

je souhaite remplir l'ensemble des cellules de ma sélection pour une formule type :=+CONCATENER("U" & GAUCHE(J2;1))

J'ai donc rédiger ce code:

    For Each Cel In Selection
        If Cel > 0 Then Cel = "=+CONCATENATE(""U"" & LEFT(RC[1],1))"
        Next Cel

Mais si je suis là, c'est que ca ne fonctionne pas.

Aussi je sollicite votre aide.

Merci d'avance.

NB: Je suis novice en VBA

Bonjour,

Tu peux tester l'instruction suivante

For Each Cel In Selection
    If Cel > 0 Then Cel.FormulaR1C1 = "=CONCATENATE(""U"" & LEFT(RC[1],1))"
Next Cel

En espérant que le reste de ta macro soit totalement opérationnel ...

Merci James007 pour cette réponse aussi rapide.

Le solution fonctionne parfaitement, le test est effectué.

Re,

Content que cela fonctionne ..

Merci ... pour tes remerciements ...

Avec le nouveau Forum ... tu as la possibilité d'indiquer que tu as apprécié l'aide en cliquant sur le coeur ...en bas à droite ...