Discussion :

[PAULINE51]

Bonjour ,
J ai une cellule a1= 150 et une cellule a2 =6 , la cellule a3 = a1+ a2 = 156 ....mais on me demande d'afficher en a3 le contenu de a1 et a2 soit dans l'exemple
a3= 150+6 = 156
Pour l'instant je fais en a3 respectivement f9 sur a1 et f9 sur a2 et j'obtiens bien a3= 150 +6 = 156 ..... mais comme j'ai en fait plus de 100 cellules dans lesquelles je dois faire la même opération, je trouve cela .....fastidieux ...... comment automatiser cette transformation ?
j'ai essayé par collage special valeur de a1 en a3, puis collage special de a2 formule, addition en a3 mais cela n'a pas marché....
GRAND GRAND MERCI par avance de votre aide!

[Menhir]

Met en A3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1&"+"&A2&"="&(A1+A2)

[PAULINE51]

Merci Menhir je n'ai pas été assez claire - dsl - mais le resultat de la cellule doit rester un nombre ex: 156 et pouvoir s'additionner à d'autres chiffres
Ce qui m'est demandé , c'est que si on clique sur la cellule au lieu de voir =a1+a2 on voit =150+6 mais le resultat affiché reste un nombre....encore grand merci

[Menhir]

Ce que tu demande est impossible puisque "150+6" écrit ainsi n'est pas un nombre.
Mais je ne comprends pas tes explications. Tu voudrais que quand on clique sur la cellule, ce qu'elle affiche change ?

[PAULINE51]

Menhir, en fait je n'ai pas "150+6" mais =150+6 qui est bien une formule
pour plus de clarté dans ma demande, j 'ai mis en pj un exemple .. grd merci

[Menhir]

Si ta demande est de pouvoir transformer, à l'intérieur de la formule A1 et A2 par leurs valeurs, ce n'est pas possible.
Excepté, bien sûr, par macro en VBA.

[PAULINE51]

merci Menhir , c 'est exactement cela mais je ne sais pas comment faire cette macro en VBA..

[Menhir]

En supposant que les données vont de la colonne A à la colonne E (tu ajusteras en fonction) et que tu mets le résultat en ligne 3.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Compte
    Dim yy as Long
 
    For yy = 1 to 5
        Cells(3,yy).Formula = "=" & Cells(1;yy).Value & "+" & Cells(2,yy).Value
    Next yy
End Sub