XL 2013 Remplacer contenu de plusieurs cellules par une formule - (RÉSOLU)

[chantalc33]

Re-Bonsoir à tous!!

Besoin d'un petit coup de pouce pour remplacer le contenu de plusieurs cellules par une formule.
J'ai donc la Feuil1 qui contient du texte dans les cellules de la Colonne A. Se texte correspond toujours à l'entrée dans C + D, pour chaque ligne.
Donc, par exemple, A2 sera égale à la valeur de C2 & D2.
J'ai besoin de changer toutes les cellules en A pour qu'elles deviennent de type CONCATENER(C?,D?)...
Idéalement, doit se faire lors d'un clique sur bouton.

Je vous joins un fichier d'exemple!

Merci beaucoup!!

 

[fanfan38]

Bonjour
En a2 tu copie la formule suivante; =SI(NBCAR(C2)>0;CONCATENER(C2;D2);"")
ensuite copier coller sur toutes les lignes de la colonne A...
A+ François

 

[ChTi160]

Bonjour Chantalc33
Bonjour le Fil(fanfan38) ,Le Forum
Une approche !
Bonne Journée
Amicalement
Jean marie

 

[ChTi160]

Re
tu peux si tu ne veux que les Valeurs mettre cette procédure en remplacement de l'autre.

Option Explicit
Dim DerLgn As Integer
Dim f
Sub Bouton1_Cliquer()
With Worksheets("Feuil1") 'Avec la feuille
DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row 'On détermine la derniere cellule Non vide de la Colonne 2(B)
       f = "=If(RC2 <>"""",RC3&RC4,"""")" 'On définit la formule
  With .Range(.Cells(2, 1), .Cells(DerLgn, 1)) 'Avec la plage ainsi définie 
            .FormulaR1C1 = f 'On y colle la formule
            .Value = .Value     'On remplace les Formules par les Valeurs .
  End With
End With
End Sub

à adapter surement ! Lol
Bonne Journée
Amicalement
Jean marie

 

[chantalc33]

Merci beaucoup ChTi160!! Ça fonctionne super bien!!

À plus!!