ajout valeurs supplémentaire

Le
Christophe
Bonjour,

Colonne A

A1= 10
A2=2
A3=4

Je voudrais ajouter la valeur 5 à la cellule A1 et ensuite que A1 affiche
donc"15"
Dois-je travailler avec une colonne supplémentaire ?

MErci.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Elliac
Le #4359811
Bonjour,

Saisir 5 dans une celle et la copier sélectionner A1 et Collage Spécial
Opération Addition

Camille

"Christophe" wrote:

Bonjour,

Colonne A

A1= 10
A2=2
A3=4

Je voudrais ajouter la valeur 5 à la cellule A1 et ensuite que A1 affiche
donc"15"
Dois-je travailler avec une colonne supplémentaire ?

MErci.




Congelator
Le #4359801
Salut Christophe,

Je passerais effectivement par une autre colonne, voir une colonne masquée
(la A), par exemple :
A1
A2
A3

C1=5 que je nomme "supplement"

B1¡+supplement
et je l'incrémente. Est-ce que ça réàpond à ton problème ?
--
Céd / Lausanne



Bonjour,

Colonne A

A1= 10
A2=2
A3=4

Je voudrais ajouter la valeur 5 à la cellule A1 et ensuite que A1 affiche
donc"15"
Dois-je travailler avec une colonne supplémentaire ?

MErci.




JB
Le #4359791
Bonjour,


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
If [mémo] <> "" Then Target = Target + [mémo]
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr( 34)
& Target.Value & Chr(34)
End If
End Sub

JB


On 1 mar, 13:27, "Christophe"
Bonjour,

Colonne A

A1= 10
A2=2
A3=4

Je voudrais ajouter la valeur 5 à la cellule A1 et ensuite que A1 affic he
donc"15"
Dois-je travailler avec une colonne supplémentaire ?

MErci.


JB
Le #4359281
Version avec historique des valeurs saisies:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then
Application.EnableEvents = False
If [mémo] <> "" Then
If Left([mémo], 1) <> "=" Then
Target.Formula = "=" & [mémo] & "+" & Target
Else
Target.Formula = [mémo] & "+" & Target
End If
End If
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr( 34)
& Target.Formula & Chr(34)
End If
End Sub

http://cjoint.com/?dbrVIxzHmS

JB
On 1 mar, 13:27, "Christophe"
Bonjour,

Colonne A

A1= 10
A2=2
A3=4

Je voudrais ajouter la valeur 5 à la cellule A1 et ensuite que A1 affic he
donc"15"
Dois-je travailler avec une colonne supplémentaire ?

MErci.


Publicité
Poster une réponse
Anonyme