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

chantalc33 · 6 Janvier 2018

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 · 6 Janvier 2018

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 · 6 Janvier 2018

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

ChTi160 · 6 Janvier 2018

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

chantalc33 · 6 Janvier 2018

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

À plus!!

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

chantalc33

XLDnaute Nouveau

Pièces jointes

fanfan38

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

chantalc33

XLDnaute Nouveau

Discussions similaires