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

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

  • Classeur1.xlsx
    12.2 KB · Affichages: 21

ChTi160

XLDnaute Barbatruc
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:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof