soucis sur exce

Question

Bonsoir,

serait il possible sur excel de faire une cellule qui se calcul toute seul
par exemple sur la cellule a1 je met 10, puis je remet 10 et que dans la cellule a1 ce 20 etc


merci par avance

santiago69 · Answer

non. quand tu saisi une valeur dans une cellule, la valeur precedente est ecrasee et perdue.

c'est possible en programmation VBA. ca t'interesse ?

dinamo · Answer

oui cela  m interesse

santiago69 · Answer

1) tu cree un classeur Excel avec 2 feuilles
2) tu vas dans l'interface VBA (Alt+F11)
3) tu vas dans l'explorateur de projet (Ctrl+R)
4) Tu selectionne Feuil2 (Feuil2)
5) tu vas dans la fenetre proprietes (F4)
6) tu defini les valeurs suivantes :
    (name) = calculator
    Name = calculator
    Visible = 2 - xlSheetVeryHidden
7) tu retourne dans l'explorateur de projet (Ctrl+R)
8) double clic sur Feuil1 (Feuil1)
9) tu saisi le code suivant
Private Sub Worksheet_Change(ByVal Target As Range)
    Static NoEvent As Boolean
    If NoEvent Then Exit Sub
    NoEvent = True

    Dim TempCell As Range
    Set TempCell = calculator.Cells(Target.Row, Target.Column)
    If IsEmpty(Target) Then
        TempCell.ClearContents
    Else
        TempCell = TempCell + Target
        Target = TempCell
    End If

    NoEvent = False
End Sub
10) ferme l'interface VBA

Dans ton classeur il n'y a plus qu'une feuille
Quand tu saisi une valeur dans une cellule, elle s'ajoute a la precedente
Quand tu supprime la valeur d'une cellule, elle devient vide.

Qu'en pense tu ?

dinamo · Answer

merci c bien
mais le probleme c toute la feuille qui est comme ca je veu juste une colonne 
je sais e suis complique

santiago69 · Answer

Alors voila le nouveau code :
Il faut remplacer la valeur de la constante COL par le numero de la colonne desiree.

Const COL As Long = 1

Private Sub Worksheet_Change(ByVal Target As Range)
    Static NoEvent As Boolean
    If NoEvent Then Exit Sub
    If Target.Column <> COL Then Exit Sub
    NoEvent = True

    Dim TempCell As Range
    Set TempCell = calculator.Cells(Target.Row, Target.Column)
    If IsEmpty(Target) Then
        TempCell.ClearContents
    Else
        TempCell = TempCell + Target
        Target = TempCell
    End If

    NoEvent = False
End Sub

dinamo · Answer

excuse moi encore 

Deja merci ca ma beaucou aider

mais il y a pas une formule qui peut le faire meme avec une cellule A1 qui a la formule et la cellule B1 ou tu saisis et que la cellule A1 car en memeoire

santiago69 · Answer

j'ai rien compris du tout a la phrase.
peux tu essayer de reformuler ta question (en anglais ou espagnol si tu prefere) ?

Soucis sur exce

7 réponses

Votre réponse

Discussions similaires

Newsletters