somme dans uns seule cellule

A

AeroPlanneur

Guest

• 31 Mars 2006

• #2

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 31 Mars 2006

• #3

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

 

Vote positif 0 Vote négatif

A

AeroPlanneur

Guest

• 31 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Mars 2006

• #5

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

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 31 Mars 2006

• #6

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

 

Vote positif 0 Vote négatif

F

François

Guest

• 31 Mars 2006

• #7

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

 

Vote positif 0 Vote négatif

F

François

Guest

• 31 Mars 2006

• #8

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Mars 2006

• #9

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]

 

Pièces jointes

• Francois_20060331224116.zip

  7.1 KB · Affichages: 19

Vote positif 0 Vote négatif

F

François

Guest

• 3 Avril 2006

• #10

Merci encore

A bientôt

 

Vote positif 0 Vote négatif