Soucis sur exce
dinamo
Messages postés
97
Statut
Membre
-
santiago69 Messages postés 485 Statut Membre -
santiago69 Messages postés 485 Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 7.0
7 réponses
-
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 ?
-
-
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 suivantPrivate 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 ?
-
merci c bien
mais le probleme c toute la feuille qui est comme ca je veu juste une colonne
je sais e suis complique -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
-
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 -
j'ai rien compris du tout a la phrase.
peux tu essayer de reformuler ta question (en anglais ou espagnol si tu prefere) ?