Somme d'une colonne quelque soit le nombre de ligne

Résolu/Fermé
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021 - 23 avril 2021 à 21:29
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 5 mai 2021 à 10:33
Bonjour,
grâce à l'aide de The_boss_68 et que je remercie beaucoup j'aimerai apporter 2 petites modifications au fichier joint.
- un pb dans la recherche avec les montants lorsque l'on saisi le séparateur décimal
- faire le calcul de la colonne montant en fonction du résultat obtenu.

j'ai essayé plusieurs solutions dans le vba....mais je n'y arrive pas

merci d'avance à ceux qui voudrons m'aider
https://www.cjoint.com/c/KDxtCN0NvQe

cdt glaieuls29


Configuration: Windows / Firefox 87.0
A voir également:

20 réponses

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
23 avril 2021 à 21:33
Bonsoir,

exemple pour la colonne B

=SOMME(B:B)
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
23 avril 2021 à 21:43
bsr,
oui mais la cellule i2 ne se remet pas a 0 entre 2 recherches.

as tu regardé le fichier ?

cdt
glaieuls
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
23 avril 2021 à 21:48
re,
.....c'est un fichier synthétique et anonymisé, dans lequel il y aura plusieurs centaines de lignes.

cdt
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
23 avril 2021 à 22:03
Re,

en VBA avec ce code

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1 = ""
End Sub

en remplacement de ton essai
' Private Sub worksheet_selectionchange(ByVal Target As Range)
' TextBox1.Text = "" ' pour vider la textBox
'End Sub
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
23 avril 2021 à 22:19
Re,

j'ai étudié ton fichier, et sous réserve d'avoir tout compris,
en I2 tu veux faire la somme de ta sélection colonne H
si c'est cela en I2 =SOMME(H:H)

dans mon code ajoute un CALCULATE à la fin pour forcer la recalculation

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1 = ""
Calculate
End Sub


dans ton code
Private Sub TextBox1_Change()
en début de procédure, tu suspends les fonction d'Excel pour gagner en rapidité et tu les rétablis bien en fin avec Application.ScreenUpdating = TRUE

a ce niveau ajoute également un CALCULATE
comme cela
Application.ScreenUpdating = True       '**** rajouté pour tester la rapidite
Calculate
End Sub 

0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
23 avril 2021 à 22:30
re,
helas non ca ne se remet pas a zero, et le calcul ne se refait pas .
j'ai mis les lignes à la place des autres (à la fin de tout).

a force de faire defaire je sais plus trop ou j'en suis ni plus trop savoir quoi faire lol

cdt
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié le 23 avril 2021 à 22:39
Re,

qu'on se comprenne, tu saisis une valeur dans le TEXTBOX et cela t'affiche les lignes correspondantes et tu veux le total de la colonne H en I2 des valeurs affichées et lorsque tu reclic sur ton Textbox tout se met à zéro

https://www.cjoint.com/c/KDxuJ2LxkMF
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
23 avril 2021 à 22:51
re,
effectivement ca marche mieux avec ton fichier....j'ai surement fait une fausse manip quelquepart.

cependant en effacant tte les lettres (retour arriere) la somme reste....mais se recalcule avec une nouvelle saisie.

merci pour ton aide, suis désolé mais quand je t'avais répondu, je n'avais pas vu ton post 5 ou je n'avais pas encore reçu les notifications m'annoncant le post 5.

cdt
glaieuls
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
23 avril 2021 à 22:57
re,
c'est génial merci beaucoup mike-31
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
23 avril 2021 à 23:07
Re,

regarde si c'est ce que tu cherches faire

https://www.cjoint.com/c/KDxvg1eMGzF
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
23 avril 2021 à 23:15
Re,

prend ce dernier fichier, j'ai apporté une petite modif

https://www.cjoint.com/c/KDxvoaP0jGF
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
23 avril 2021 à 23:23
re,
c'est tt a fait ca !!! super

j'ai vu tes 2 lignes I2 rajoutées dans la partie textbox1.
j'avais essayé plein de choses mais .....

heuu si j'osais
aurais tu une idee sur le fait que si je mets les séparateurs décimaux ca ne fonctionne pas ?
ex : si je recherche 100. je n'ai aucun resultat.
ex : si je recherche 100 j'ai 2 résultats

vraiment merci beaucoup

cdt glaieuls
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié le 23 avril 2021 à 23:50
Re,

un textbox affiche les valeurs sous format texte qu'il faut convertir, une décimale ,0 ou ,00 n'existe pas, le chiffre est entier
par contre si dans tes bases il existe une valeur avec une décimale exemple 103,00 et 103,50
dès que tu auras saisi 10 ou 103 Excel te retourne toutes les valeurs commençant par 103 mais dès que tu saisis 103, seul 103,50 s'affiche parce la valeur est 103 + quelque chose alors que 103,00 est une valeur entière
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
23 avril 2021 à 23:53
re,
oui c'est exact.

je comprends pourquoi je réussissais pas pour le coup lol

encore un GRAND MERCI pour tes explications et pour ton aide.

sympa de m'avoir consacré un peu de ton temps.

te souhaitant un bon week end et une bonne santé en ces temps mouvementés

cdt

glaieuls
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
23 avril 2021 à 23:55
Bon week-end à toi, je passe la discussion en résolu
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
1 mai 2021 à 20:28
Bonjour mike.

Je sais que tu as passé cette discussion en résolu et j'espère que tu recevras ce message.

je me permets donc de revenir vers toi car j'ai un petit problème avec mon fichier réel quand je veux imprimer ce que l'onglet "recherche" a affiché.

quelque soit le nombre de ligne trouvé, j'ai 172 pages à imprimer.
(6163 lignes traitées soit. 36 lignes par page en "paysage").

mon fichier correspond au modèle que tu m'as joint.

merci d'avance de ce que tu pourras faire.

ps dans le doute j'ai posté une nouvelle discussion
glaieuls29
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
1 mai 2021 à 21:09
Re,

Contrôle tes zones d'impression que tu as créé,

sur le fichier que je t'ai retourné, tu as créé des zones d'impression ce qui limite l'impression à ces zones, supprime les et tout devrait rentrer dans l'ordre ou modifie les.
pour les voir onglet Formules/module Gestionnaires des noms
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
1 mai 2021 à 22:26
re,
je pense avoir tout essayé sauf la suppression.

je teste et je te tiens au courant

Merci encore

glaieuls
0
glaieuls29 Messages postés 174 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 5 mai 2021
5 mai 2021 à 02:48
re,
Merci pour l'info et effectivement j'ai trouvé un zone impression 6136 lignes...je ne sais pas d'où cela est venu surtout que ça n'apparait pas a chaque fois.
a force de chercher ici ou là j'ai adapté et appliqué la formule
=DECALER(recherche!$b$1:$j$1;;; NBVAL(recherche!$b:$b)-2)
et même si je n'y comprends pas grand chose, cela semble fonctionner car je n'ai plus que 4 pages au maximum.

le problème semble en partie résolu.

mais lorsque qu'il n'y a que 1 page à imprimer excel me propose toujours les 4 pages. Les lignes vides apparaissent avec les couleurs de fond bleu ou blanc du tableau de saisie.

Le fait que copy cells copie mise en forme + valeur cela ne pourrait t-il pas mettre un peu le bazar dans l'impression ?

j'ai fouillé sur le net et trouvé la fonction pastespecial ...xlpastevalues.......que j'ai essayé d'adapter à ton code mais je n'y arrive pas.

je me permets donc de revenir vers toi ..encore une fois :

aurais-tu une idée pour copier uniquement la valeur des cellules dans l'onglet recherche ?

et encore merci pour ce que tu as fait car l'onglet " recherche" fonctionne bien et même si cela n'est pas très gênant. c'est aussi pour moi une manière d'apprendre et de mieux comprendre.

désolé d'avoir encore fait un peu long ..

merci d'avance pour ton temps passé à essayer de m'aider et pour ta compréhension

glaieul
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
5 mai 2021 à 10:33
Re,

difficile à dire sans voir ton dernier fichier après toutes les modifications apportées
retour nous ton dernier fichier anonymisé pour voir
0