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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chantalc33

XLDnaute Nouveau
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!! 🙂
 

Pièces jointes

Re
tu peux si tu ne veux que les Valeurs mettre cette procédure en remplacement de l'autre.
VB:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour