Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Userform récapitulant un tableau

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous les amis du Forum.
Après de nombreuses recherches, je n'arrive pas à trouver le moyen
d'afficher le récap des sommes d'un suivi annuel par userform.
J'ai dessiné le userform avec les données à afficher.
Pouvez-vous me donner un coup de main s'il vous plaît.
La syntaxe pour afficher dans les textbox de la feuille BDD.
Code qui pourra me servir à évoluer.
Je ne vous demande pas de me mâcher le travail, mais de me
donner des pistes de solutions.
Dans l'attente de votre aide.
Bien cordialement.
 

Pièces jointes

  • TEST_RECAP.xlsm
    53.5 KB · Affichages: 39
Trier par date Trier par votes

ChTi160

XLDnaute Barbatruc
Re
info
Les crochets , ca ne marche pas dans Vba !
de plus tes heures dans les TextBox TextBoxH de 1 à 12 n'affichent pas la bonne valeur , je crois !
a moins que les valeurs du fichier que tu as joint , aient été changées !
Nombre d'heures supérieur à 24 heures ;
y'a encore du boulot (faire recherche sur le Net)
Bonne fin de journée
jean marie
 
Dernière édition:
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

Et pour compléter Jean Marie


Ajouter ou soustraire des heures - Support Microsoft

Excel peut calculer le nombre d’heures et de minutes nécessaires à l’exécution de deux tâches. Il peut également prendre les heures de début et de fin d’une tâche et calculer le temps écoulé. de début et de fin d’une tâche et calculer le temps écoulé, qui est la différence entre les deux temps.
support.microsoft.com

COMMENT AFFICHER DES HEURES SUPÉRIEURES A 24H SUR EXCEL ? - Excel formation

Dans ce petit tutoriel, qui s’inscrit dans le cadre de la série de vidéos consacrée à la découverte de l’utilisation des dates et des heures dans Excel, nous allons découvrir une petite astuce qui va nous permettre d&rs
www.excelformation.fr

@Phil69970
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
Pour faire avancer le Chimilimblic
VB: 
Private Sub UserForm_Initialize()
Dim SommeA As Double
Dim SommeB As Double
Dim SommeC As Double
    With Worksheets("BDD")
        For i = 1 To 12
            Me.Controls("TextBoxH" & i).Value = CStr(24 * Int(.Range("AH" & i + 4)) + DatePart("h", (.Range("AH" & i + 4)))) & ":" & Format(.Range("AH" & i + 4), "Nn") 'Format(CDate(.Range("AH" & i + 4)), "hh:mm") 'Heure
            Me.Controls("TextBoxA" & i).Value = Format(.Range("AI" & i + 4), "##0.00") 'Somme1
                SommeA = SommeA + IIf(.Range("AI" & i + 4) = Empty, 0, .Range("AI" & i + 4))
            
            Me.Controls("TextBoxB" & i).Value = Format(.Range("AJ" & i + 4), "##0.00")  'Somme2
                SommeB = SommeB + IIf(.Range("AJ" & i + 4) = Empty, 0, .Range("AJ" & i + 4))
            
            Me.Controls("TextBoxC" & i).Value = Format(.Range("AL" & i + 4), "##0.00")  'Somme3
                SommeC = SommeC + IIf(.Range("AL" & i + 4) = Empty, 0, .Range("AL" & i + 4))
        Next i
    Me.TextBox141.Text = CStr(24 * Int(.Range("AH17")) + DatePart("h", (.Range("AH17")))) & ":" & Format(.Range("AH17"), "Nn")
    Me.TextBox142.Text = Format(SommeA, " ### ##0.00")
    Me.TextBox143.Text = Format(SommeB, " ### ##0.00")
    Me.TextBox144.Text = Format(SommeC, " ### ##0.00")
End With
End Sub
Bonne fin de Soirée
jean marie
 
Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour @jean marie et tous les amis du Forum.
Un grand merci à toi @jean marie pour ton travail, respect.
J'ai fait des recherches sur internet et je n'ai pas trouvé la réponse
ou alors des fonctions hyper compliquées difficile à comprendre
au vu de mon niveau.
Je mesure le chemin qui me reste à parcourir !
Prenez soin de vous et de vos proches.
Bien cordialement.
 

Pièces jointes

  • gif-merci.gif
    38.3 KB · Affichages: 15
Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour @jean marie et tous les amis du Forum.
Je reviens vers toi pour savoir comment peut-on ajoute le "h" des heures dans ta formule.
J'ai réussi pour les €uros mais l'heure, je ne vois pas où l'on peut ajoute le h.
Par avance, merci pour ton aide.
Bien cordialement.
 

Pièces jointes

  • AJOUTER LE H D'HEURE.jpg
    75.1 KB · Affichages: 13
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Bonjour AIXELS
Bonjour le Fil ,le Forum
Peut être avec ça !
VB: 
Private Sub UserForm_Initialize()
Dim SommeA As Double
Dim SommeB As Double
Dim SommeC As Double
    With Worksheets("BDD")
        For i = 1 To 12
            Me.Controls("TextBoxH" & i).Value = CStr(24 * Int(.Range("AH" & i + 4)) + DatePart("h", (.Range("AH" & i + 4)))) & ":" & Format(.Range("AH" & i + 4), "Nn") & " h" 'Format(CDate(.Range("AH" & i + 4)), "hh:mm") 'Heure
            Me.Controls("TextBoxA" & i).Value = Format(.Range("AI" & i + 4), "##0.00 €") 'Somme1
                SommeA = SommeA + IIf(.Range("AI" & i + 4) = Empty, 0, .Range("AI" & i + 4))
            
            Me.Controls("TextBoxB" & i).Value = Format(.Range("AJ" & i + 4), "##0.00 €")  'Somme2
                SommeB = SommeB + IIf(.Range("AJ" & i + 4) = Empty, 0, .Range("AJ" & i + 4))
            
            Me.Controls("TextBoxC" & i).Value = Format(.Range("AL" & i + 4), "##0.00 €")  'Somme3
                SommeC = SommeC + IIf(.Range("AL" & i + 4) = Empty, 0, .Range("AL" & i + 4))
        Next i
    Me.TextBox141.Text = CStr(24 * Int(.Range("AH17")) + DatePart("h", (.Range("AH17")))) & ":" & Format(.Range("AH17"), "Nn") & " h"
    Me.TextBox142.Text = Format(SommeA, "### ##0.00 €")
    Me.TextBox143.Text = Format(SommeB, "### ##0.00 €")
    Me.TextBox144.Text = Format(SommeC, "### ##0.00 €")
End With
jean marie
 
Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel
Supporter XLD
Re Bonjour.
Merci @jean marie.
Bonne journée à tous.
Bien cordialement.
 
Vote positif 0 Vote négatif

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous les amis du Forum.
Je reviens vers vous dans la continuité des aides que vous m'avez apportées
Concernant un récapitulatif d'un userform mois par mois et pour diverses rubriques
tout fonctionnait très bien.
Jusqu'à ce que je rajoute une ligne pour afficher le jour en lettre : Lun., Mardi etc...
Mon problème se situe sur le TextBoxH3 qui ne se met as à jour. Le résultat reste à zéro
bien pour toutes les rubriques de la même ligne sont bien transcrites (voir fichier joint).
J'ai tout essayé, suppression du TextBoxH3, création d'un nouveau, rien ne se passe.
Je dois passer à côté de quelque chose qui m'échappe.
J'ai passé trop de temps dessus, un oeil extérieur serait le bienvenu.
Je vous ai noté les divers noms des textbox sur le userform pour la lecture plus facile du code.
Merci pour votre aide.
Bien cordialement.
 

Pièces jointes

  • PROBLEME SUR LE TOTAL DU TextBoxH3.xlsm
    54.7 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Bonsoir AIXELS
AAAAAAHHHH ! ces formats d'heures !
je me suis battu avec le Cas où les heures représentent 24:00 juste lol
j'ai donc changé la façon de récupérer le Texte des cellules qui contiennent des Heures
Tu testes et tu me dis Lol
jean marie
 

Pièces jointes

  • PROBLEME SUR LE TOTAL DU TextBoxH3-Chti160.xlsm
    54 KB · Affichages: 3
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
je remet le Fichier modifié.
j'avais oublié le & " h" au bout des heures des "TextBoxH"
jean marie
 

Pièces jointes

  • PROBLEME SUR LE TOTAL DU TextBoxH3-Chti160.xlsm
    54.1 KB · Affichages: 8
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

R
  • Question
Microsoft 365 VBA Excel PowerPoint
Réponses
5
Affichages
273
Rem6610
R
T
  • Question
XL 2019 Tableau croisé dynamique connecté à des feuilles créée par un userform
Réponses
2
Affichages
385
Cousinhub
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
733
Bernard38
G
  • Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
174
sylvanu
C
  • Question
Microsoft 365 Copier une cellule suite macro sur un tableau externe
Réponses
2
Affichages
171
Chounoé
C
V
  • Question
Microsoft 365 affichage sélectif tableau croisé dynamique
2
Réponses
21
Affichages
1 K
vincent Blanchard
V
A
  • Question
XL 2013 J'ai un problème pour copier des images avec UserForm
Réponses
5
Affichages
353
Eric C
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
449
Nel'
N
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
218
NONO14
N
M
  • Résolu(e)
Microsoft 365 Code incomplet
5 6 7
Réponses
93
Affichages
4 K
Marvin57
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…