Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Bruce68
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bruce68

XLDnaute Impliqué
Bonsoir à tous
Dans fichier ci joint je voudrais incerer le bout de macro avec Split à la place de la premiere macro ci dessous mais je ne sais comment faire ( C'est concocter par PierreJean)
Je n'arrive pas à recupérer les heures et les mn pour faire ma multiplication avec mon taux horaires, ma macro marche parfaitement bien j'aurais voulu tester la macro de PierreJean
Si cela est possible .
Private Sub TextBox1_AfterUpdate()
Heures = Int(TextBox1)
Min = Right(TextBox1, 2)
Minut = (Heures * 60) + Min
End Sub

x = Split(TextBox1, ":")
Range("A1") = x(0) / 24 + x(1) / 1440
MsgBox ("nb d'heures= " & x(0))
MsgBox ("nb de minutes= " & x(1))

Je vous remercie de votre aide
 

Pièces jointes

Re : Ajout Split

Bonsoir Bruce68

Essaies avec CDate
Code:
x = Split([B]CDate[/B](TextBox1.Value), ":",[COLOR=red][B]3[/B][/COLOR])
...
MsgBox ("nb d'heures= " & x([B]0[/B])) & vbcr & ("nb de minutes= " & x([B]1[/B]))

Note: x(2) contient les secondes

A plus
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
1 K
Réponses
8
Affichages
1 K
V
Réponses
17
Affichages
3 K
VBgalère
V
A
Réponses
0
Affichages
911
Arctica
A
Z
Réponses
19
Affichages
6 K
zumba
Z
N
  • Question Question
Réponses
5
Affichages
3 K
Réponses
19
Affichages
4 K
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…