une petite question

  • Initiateur de la discussion petchy
  • Date de début
P

petchy

Guest
Le Forum
une petite question:
j'ai des données,dans des colonnes(a,b,c,d),la colonne c et d sont des chiffres,dont je récupere le total dans un textbox,est il possible que quand je supprime la dernière ligne le total ne bouge pas.
une s'impose par cette chaleur
 
Trier par date Trier par votes
Z

ZON

Guest
Re,

Je vois un peu plus clair mais avec cette chaleur:


C'est le décalage que la suppression de la ligne provoque qui te gène apparemment,

tu dois utiliser une formule pour la somme de tes colonnes, tu recupéres cette valeur dans une variable double que tu remets en place aprés la suppression de la ligne.

A+++
 
Vote positif 0 Vote négatif
P

petchy

Guest
Re
salut Jp
voila le code de l'USF

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
TextBox3.SetFocus
Calendar1.Today
TextBox1.Visible = False
TextBox2.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label2.Visible = False
With ComboBox1
.AddItem "Café"
.AddItem "Cigarettes"
.AddItem "Courses"
.AddItem "Divers"
.AddItem "Essence"
.AddItem "Habillement"
.AddItem "Loisirs"
.AddItem "Mutuelle"
.AddItem "Photo"
.AddItem "Rembt Emprunt"
.AddItem "Remise Chèque (s)"
.AddItem "Retrait CB"
.AddItem "Restaurant"
.AddItem "Salaire"
.AddItem "Téléphone"
.AddItem "Sécu"

With ComboBox2
.AddItem "Cartes Bleu"
.AddItem "Chèques"
.AddItem "Prélèvement"
.AddItem "Virement"
.AddItem "Versement"
End With
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:\excel gif\meteopetchy.gif'></img></body></html>"
XPButton1.Visible = False
UserForm4.Caption = "SAISIES"
End With
End Sub

"le bouton valider"
Private Sub XPButton1_Click()
Dim rep As Byte
Range("A3:E3").Select
Selection.Insert Shift:=xlDown
With Sheets(1)
.Range("D3").Value = (TextBox1.Text)
.Range("E3").Value = (TextBox2.Text)
.Range("C3").Value = ComboBox1.Value
.Range("b3").Value = ComboBox2.Value
.Range("a3") = Format(Calendar1, " DD/MM/YYYY")
.Range("J11").Formula = "=B3"

End With
TextBox1 = Format(TextBox1, "# #00.0000 ")
TextBox2 = Format(TextBox2, "# ##0.00 ")
TextBox1 = ""
TextBox2 = "" '
rep = MsgBox("A tu bien tous saisi ?", _
vbYesNo + vbQuestion, "EURO ?")
If rep = vbNo Then
Exit Sub
End If
UserForm4.Hide

MERCI
petchy
 
Vote positif 0 Vote négatif
J

jp

Guest
Re-bonsoir petchy,

Je viens d'enregistrer le message sur disquette et je vais au bureau pour l(imprimer, (c'est comme ça, en effet je n'ai même pas d'imprimante et de plus une connextion limitée, je te dis pas...) et ensuite je vais voir ce que je peux faire.

Vu le temps qu'il fait, a priori tu bronzes gratos... ça devrait être interdit...

Bonne soirée tout de même

jp
 
Vote positif 0 Vote négatif
@

@+Thierry

Guest
Bonsoir Petchy, re Zon, re JP, le Forum

Huum, tu sais Petchy, je ne vais certainement pas faire comme JP, ou en tout cas reconstruire un UserForm qui aille avec ce code pour arriver à comprendre où tu es coincé !!! lol

Non comme l'a dit souvent Ti, tant que l'on peut Zipper un petit fichier pour ce genre de problème c'est dix-mille fois plus rapide pour les contributeurs de pouvoir t'aider... et donc tu augmentes d'autant plus tes chances d'aboutissement pour trouver une solution.

Quant à ton fichier Zip.Zip, je ne saisis pas non plus ? Où est ce fameux total que tu ne veux pas supprimer ?

Zon a peut-être mieux capté que moi, mais ce truc qui devrait être ultra simple devient un casse tête chinois, doublé d'un rébus russe, croisé avec une organisation à l'italienne !!!

Bon Courage
@+Thierry
 
Vote positif 0 Vote négatif
J

jp

Guest
Re-bonsoir,

Je viens d'arriver et d'imprimer tontexte et je vois que Thierry, qui est passé par là, a eu la même reflexion que moi mais en plus rapide (fait vraimen t trop chaud) car j'ai bien vu le nombre le ligne à l'enregistrement, mais ce n'ai qu'un peu plus tard,dans la voiture que je me suis fait cette reflexion. Effectivement l'exemple total (du moins dans sa dimension principal) est primordial. Trois lignes, on peut imaginer mais là... Ce ne sera pas facile...

On attend... et encore bonne soirée...

jp
 
Vote positif 0 Vote négatif
P

petchy

Guest
Re
j'ai fait une copie d'écran,car l'appli est trop volumineux.
j'espere que ça ira
 

Pièces jointes

  • COMPTES.zip
    35.9 KB · Affichages: 32
  • COMPTES.zip
    35.9 KB · Affichages: 35
  • COMPTES.zip
    35.9 KB · Affichages: 32
Vote positif 0 Vote négatif
@

@+Thierry

Guest
Re Salut ce Fil,

Mon cher Petchy, je sais bien que c'est bien plus amusant de faire du design dans les UserForms que de les rendre opérationnels ! mais dans ton cas c'est ce qui te tue !!! (lol)

Et qui me tue aussi !!

Car du coup tu as tellement fignolé les apparences que tu ne peux envoyer que l'image du truc qui doit être déjà "ventripotant" alors que çà ne fonctionne pas encore !! (mdrrr)

A mon avis tu en refais un tout simple, sans fioriture, et tu nous expliques calmement d'où vient ce Total dans la textBox !! Je crois qu'il faut commencer par là ....... non ?

@+Thierry
 
Vote positif 0 Vote négatif
J

jp

Guest
Re, Re, Re?

Toujours pas satisfaisant, mais là, on peut voir où tu veux en venir. J'aurais préféré une démo pratiquable pour mieux cerner où est le problème.
Le fichier, à ce stade et à part les fioritures ne doit pas être aussi impressionnant que cela.
Il existe, mais je ne sais plus où, une feuille de ce genre qui s'appelle "Gestion de compte" ou de Banque ou de caisse, je ne sais plus, c'est très exactyement la même chose. Je vais rechercher demain si j'en ai conservé une copie.
Toutes les entrées sont prévues : date, libellé automatique, débit ou crédit, insertion de ligne au fur et à mesure évidemment et solde, mais je crois que le code est protégé si je me souviens bien, mais là encore je vais voir....
Ceci dit le programme en question ne fait pas un poids énorme, il est celui d'une feuille Excel avec deux ou trois procédures..

Je te tiens au courant dés que possible.

Bonne nuit, même s'il est encore un peu tôt..
Profites de la chaleur pour rester un peu dehors et regarder les Perseides... Les yeux dans les étoiles, quelques fois apportent des idées nouvelles. La constellation de Persée se trouve à l'Est-Nord-Est. C'est fantastique ces lumière dans la nuit...

A bientôt

jp
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Question
Microsoft 365 Ajout de données
Réponses
3
Affichages
246
GClaire
G
looky62
  • Question
Microsoft 365 PB Concaténation de ref en une phrase
Réponses
3
Affichages
171
looky62
looky62
D
  • Question
XL 2016 aide finalisation d'un tableau
Réponses
7
Affichages
312
Dimitri13
D
P
  • Question
Microsoft 365 Besoin d'aide pour plusieurs petite chose technique sur un fichier excel
8 9 10
Réponses
136
Affichages
6 K
TooFatBoy
TooFatBoy
P
  • Question
XL 2016 rechercheV ?
Réponses
3
Affichages
230
plozing
P
M
  • Question
Autres Récupération des noms + équipes dans une liste
Réponses
2
Affichages
177
DJunqueira
D
J
  • Question
XL 2021 Classement avec ex aequo parfait
Réponses
3
Affichages
219
Jul1en
J
A
  • Résolu(e)
XL 2019 Inventaire
Réponses
2
Affichages
292
Aurélien-D
A
M
  • Question
XL 2021 VBA pour un journal de comptabilité
Réponses
5
Affichages
383
manzol
M
D
  • Question
Microsoft 365 Problème de format de cellule en VBA
Réponses
11
Affichages
272
David
D

Membres actuellement en ligne

4 membres et 46 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 493
Messages
2 088 956
Membres
103 990
dernier inscrit
lamiadebz