somme dans uns seule cellule

[François]

Bonjour,
Voici mon problème: si j'écris 15 dans une cellule et après j'écris 10 dans cette même cellule je voudrais faire afficher 25 toujours dans la même cellule. Quelqu'un a t'il la solution???
Merci d'avance et à bientôt

 

[AeroPlanneur]

bonjour François,

ce que tu veux faire est possible en VBA. Dans le module de ta feuille, tu colles ce qui suit (ce code concerne la cellule A1):

Option Explicit
Dim Tmp As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect([A1], Target) Is Nothing Then
[A1] = Tmp + [A1]
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A1], Target) Is Nothing Then
Tmp = [A1]
End If
End Sub


cordialement

 

[PascalXLD]

Bonjour

Et oui José je suis comme toi je préfère amplement passer par un booléen que par Application.EnableEvents = False

On ne sait jamais ce qui peut arriver

 

[AeroPlanneur]

jmps, Pascal,

j'admets, c'est risqué, notamment en cas d'erreur provoquée par une saisie non numérique.
Je retiens la solution de jmps

cordialement

 

[Robert]

Bonjour, François, AeroPlanneur, José et Pascal, bonjnour le forum,

Juste un petit complément pour François afin qu'il comprenne la possition de José et de Pascal (la mienne aussi par ailleurs...).
Si un bug se produit après la ligne Application.EnableEvents = False on se retrouve, après avoir déboguer, sans aucune macro événementielle qui fonctionne puisque l'application est restée EnableEvents = False.

Petit problème pas bien grave mais responsable en partie de ma calvitie naissante...

C'est pourquoi il est préférable de passer par une variable Booléenne ou par un code de gestion des erreurs On Error Goto qui rétabliera Applcation.EnableEvents = True

 

[andré]

Salut à vous tous,

Rien à ajouter, d'ailleurs moi et les macros !

Simplement pour vous dire que j'en ai Marre de Vos Postscriptum (lol).

Â+

Message édité par: andré, à: 31/03/2006 18:07

 

[François]

Bonsoir à vous tous !!!!!
Je vais lire tout ça et je vais essayer vos différentes propositions
Je vous informerai de mes résultats
Merci encore à tous et bon week end

 

[François]

Re bonsoir
J'ai essayé mais pas très concluant. J'ai des erreurs dans le module du classeur
Auriez vous un exemple concret sur un fichier excel à m'envoyer??
Merci d'avance et rebon week end

 

[Robert]

Bonsoir le fil, bonsoir le forum,

En pièce jointe une exemle. [file name=Francois_20060331224116.zip size=7245]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Francois_20060331224116.zip[/file]

 

[François]

Merci encore

A bientôt