[résolu]VBA - dans une cellule. ajout à la suite de la formule déja présente.

[mulpha]

Bonjour à tous,

Ceci est à faire en code VBA SVP.
Mon but est de ne pas perdre le détail des calculs précédant dans la zone de fomule de sorte à retrouver mes chiffres
J'aimerais donc pouvoir rajouter un chiffre/formule dans ma cellule mais en gardant les données présentes dans la cellule.

C'est a dire AVANT j'ai :


A1 = 16+10 soit 26 afficher dans sur l'écran.
=> afficher dans la zone de formule quand je clique sur la cellule j'ai =16+10
=> 26 quand je regarde l'écran


j'aimerais avoir APRES :

afficher dans la zone de formule quand je clique sur la cellule =16+10+(x)+(y)
x et y étant mes fomules exemple (=sum(A8:a18)-sum(feuil2....)

Ce qu j'arrive a faire et ce que je ne veux pas c'est stocker la valeur 26 dans une variable et avoir dans la zone de formule =26+(x)+(y) ou pire =50

précision je ne demande pas d'avoir '=16+10+x+y.

Voir le fichier simplifié ci joint.

Grand Merci d'avance pour votre temps passé sur ce sujet.
Cdlt
Mulpha

 

[mulpha]

Re : VBA - dans une cellule. ajout à la suite de la formule déja présente.

Finalement j'ai été voir, grâce à notre amis Google qui m'a traduit les pages, sur les sites anglais et 'jai trouver cette solution qui parait finalement très simple puisqu'elle est presque la même chose que dans les formules.

Combine 2 columns using VBA in Excel Programming

J'ai des données dans environ 800 lignes comme suit: Colonne A Colonne B
Cook Mark Mark Cook
Jones Peter Peter Jones

PRB

Column A has last name, Column B has first name. Une colonne a le nom de famille, la colonne B a le prénom.
I want to joing data of 2 columns to show Firstname Lastname in ColumnA and Je veux Joing données de 2 colonnes pour voir Prénom Nom de Columna et
then delete Column B puis supprimer la colonne B

réponse

Pour chaque c in range ("A2" A800 ") For each c in range("a2"a800")
c.value = c & "" & c.offset (, 1) c.value= c & " " & c.offset(,1)
c prochaine next c
colonnes (2). supprimer columns(2).delete

OU

Sub sonic()
LastRow = Cells (Cells.Rows.Count, "A"). End (xlUp). Row lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MaPlage = Range ("A1: A" & LastRow) Set MyRange = Range("A1:A" & lastrow)
For Each c Dans MaPlage For Each c In MyRange
c.Value = c.Offset (, 1). Value & "" & c.Value c.Value = c.Offset(, 1).Value & " " & c.Value
Suivant Next
Colonnes (2). ClearContents Columns(2).ClearContents
End Sub End Sub