Macro pour ajouter un nombre a une formule existante

Le
ericlbt
Bonjour,

Je suis à la recherche d'une macro qui permette d'ajouter un nombre à une
formule existante.

Exemple :
A1 : +20+30
B1 : 123
Résultat à obtenir en A1 : +20+30+123

Merci par avance pour votre aide.
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
Caetera
Le #19483731
"ericlbt"
Bonjour,

Je suis à la recherche d'une macro qui permette d'ajouter un nombre à une
formule existante.

Exemple :
A1 : +20+30
B1 : 123
Résultat à obtenir en A1 : +20+30+123



Sub ajouter()
[A1].Formula = [A1].Formula & "+" & [B1]
End Sub

Etc
gmlsteph
Le #19483901
Bonjour,

ca se fait tout seul sans macro:

Copier Collage spécial Formule Addition

--
lSteph

On 4 juin, 08:53, ericlbt
Bonjour,

Je suis à la recherche d'une macro qui permette d'ajouter un nombre à une
formule existante.

Exemple :
A1 : +20+30
B1 : 123
Résultat à obtenir en A1 : +20+30+123

Merci par avance pour votre aide.


Caetera
Le #19484041
La première fois :

Sub ajouter()
[A1].Formula = [A1].Formula & "+" & [B1]
End Sub

La 2° fois et les fois suivantes :
Sub ajouter2()
x = [A1].Formula
[A1].Formula = Left(x, InStrRev(x, "+") - 1) & "+" & [B1]
End Sub

Etc
gmlsteph
Le #19484031
Bonjour,

si en revanche tu souhaites automatiser l'ajout à A1 de chaque saisie
en B1,
mettre ceci dans le code de la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, [B1])
If iSect Is Nothing Then Exit Sub
On Error GoTo fin
Application.EnableEvents = False
If IsNumeric(iSect) Then
[a1].Formula = [a1].Formula & "+" & iSect.Value
End If
fin:
Application.EnableEvents = True
End Sub

'lSteph

On 4 juin, 08:53, ericlbt
Bonjour,

Je suis à la recherche d'une macro qui permette d'ajouter un nombre à une
formule existante.

Exemple :
A1 : +20+30
B1 : 123
Résultat à obtenir en A1 : +20+30+123

Merci par avance pour votre aide.


Publicité
Poster une réponse
Anonyme