Formule et code VBA
Résolu/Fermé
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
-
Modifié le 23 juil. 2019 à 11:19
via55 Messages postés 14403 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 24 avril 2024 - 6 juin 2020 à 22:48
via55 Messages postés 14403 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 24 avril 2024 - 6 juin 2020 à 22:48
A voir également:
- Formule et code VBA
- Formule excel - Guide
- Formule si et - Guide
- Code asci - Guide
- Formule moyenne excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
46 réponses
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
29 juil. 2019 à 16:44
29 juil. 2019 à 16:44
Ok
alors dans la macro lié au bouton vert de l'UF remplace la ligne :
Me.total_heures = Range("BC4") & ":" & Range("BC5") & ":" & Range("BC6")
par :
Me.total_heures = Round(Range("BB4"), 2)
alors dans la macro lié au bouton vert de l'UF remplace la ligne :
Me.total_heures = Range("BC4") & ":" & Range("BC5") & ":" & Range("BC6")
par :
Me.total_heures = Round(Range("BB4"), 2)
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
29 juil. 2019 à 17:04
29 juil. 2019 à 17:04
Merci
Et c'est Ok
J'ai aussi ajouté une barre de défilement à coté de la liste box mais je n'y arrive pas, j'ai déjà mis les codes mais cela ne marche pas.
Et pour terminer , serait de prendre la mise en forme original sur la liste box?
Voici le code que j'ai fait :
Private Sub ScrollBar1_Change()
With ScrollBar1
.Min = 0 'Valeur mini
.Max = 100 'Valeur maxi
'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
'clique entre le curseur de défilement et la flèche de défilement.
.LargeChange = 10
'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
'les flèches de défilement dans le contrôle ScrollBar
'(La valeur par défaut = 1)
.SmallChange = 5
End With
End Sub
Merci
Et c'est Ok
J'ai aussi ajouté une barre de défilement à coté de la liste box mais je n'y arrive pas, j'ai déjà mis les codes mais cela ne marche pas.
Et pour terminer , serait de prendre la mise en forme original sur la liste box?
Voici le code que j'ai fait :
Private Sub ScrollBar1_Change()
With ScrollBar1
.Min = 0 'Valeur mini
.Max = 100 'Valeur maxi
'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
'clique entre le curseur de défilement et la flèche de défilement.
.LargeChange = 10
'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
'les flèches de défilement dans le contrôle ScrollBar
'(La valeur par défaut = 1)
.SmallChange = 5
End With
End Sub
Merci
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
Modifié le 29 juil. 2019 à 17:16
Modifié le 29 juil. 2019 à 17:16
il faut mettre la propriété scrollbar sur scrollbar vertical
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
Modifié le 29 juil. 2019 à 17:28
Modifié le 29 juil. 2019 à 17:28
ohhh, dommage donc
mais c'est pas grave
Encore merci Via, c'est déjà mieux
Merci merci milles fois
Cordialement.
mais c'est pas grave
Encore merci Via, c'est déjà mieux
Merci merci milles fois
Cordialement.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
29 juil. 2019 à 17:29
29 juil. 2019 à 17:29
J'ai dit une bétise, regarde ma réponse rectifiée il faut régler la propriété Scrollbar
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
29 juil. 2019 à 18:07
29 juil. 2019 à 18:07
C'est Ok Via
Encore merci
Bonne continuation à vous, c'est résolu.
Merci
Encore merci
Bonne continuation à vous, c'est résolu.
Merci
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
14 août 2019 à 09:44
14 août 2019 à 09:44
Bonjour
Désolé de vous déranger de nouveau,
actuellement le formulaire marche bien mais
j'ai un petit problème
j'ai dû ajouter des lignes en haut pour faciliter le lancement des deux boutons
mais pour le userform filtre et recherche, beaucoup de choses ne marchent pas et sur ce
même userform, j'aimerai que pour le total heure après filtre c'est le total
des filtres de la colonne G pour qu'il n'y a pas de doublons qui gonfle l'heure de traitement
Pouvez vous m'aider s'il vous plait.
Merci
Ci-joint le fichier après modification
https://mon-partage.fr/f/ovKTymo7/
Cordialement
Désolé de vous déranger de nouveau,
actuellement le formulaire marche bien mais
j'ai un petit problème
j'ai dû ajouter des lignes en haut pour faciliter le lancement des deux boutons
mais pour le userform filtre et recherche, beaucoup de choses ne marchent pas et sur ce
même userform, j'aimerai que pour le total heure après filtre c'est le total
des filtres de la colonne G pour qu'il n'y a pas de doublons qui gonfle l'heure de traitement
Pouvez vous m'aider s'il vous plait.
Merci
Ci-joint le fichier après modification
https://mon-partage.fr/f/ovKTymo7/
Cordialement
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
14 août 2019 à 15:44
14 août 2019 à 15:44
Bonjour
Je n'arrive pas à faire fonctionner ton fichier, les macros ne trouvent pas les UF !
Quoiqu'il en soit en relisant le code je pense qu'il faut que tu effectues les manips suivantes :
Dans la macro associée au bouton Filtrer de l'UF filtre :
- Dans la ligne :
For n = 2 To Range("A65536").End(xlUp).Row
changer le 2 en 18 puisque ton tableau commence à cette ligne
- Changer la ligne
Range("BB1") = Range("BB1") + Range("F" & n)
en totheures=totheures + Range("F" & n)
- changer la ligne
Me.total_heures = Round(Range("BB4"), 2)
en
Me.total_heures = totheures
Cdlmnt
Via
Je n'arrive pas à faire fonctionner ton fichier, les macros ne trouvent pas les UF !
Quoiqu'il en soit en relisant le code je pense qu'il faut que tu effectues les manips suivantes :
Dans la macro associée au bouton Filtrer de l'UF filtre :
- Dans la ligne :
For n = 2 To Range("A65536").End(xlUp).Row
changer le 2 en 18 puisque ton tableau commence à cette ligne
- Changer la ligne
Range("BB1") = Range("BB1") + Range("F" & n)
en totheures=totheures + Range("F" & n)
- changer la ligne
Me.total_heures = Round(Range("BB4"), 2)
en
Me.total_heures = totheures
Cdlmnt
Via
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
14 août 2019 à 16:05
14 août 2019 à 16:05
merci beaucoup Via
je crois que ça ira comme ça
Bonne continuation
Encore merci
Cordialement.
je crois que ça ira comme ça
Bonne continuation
Encore merci
Cordialement.
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
10 oct. 2019 à 12:25
10 oct. 2019 à 12:25
bonjour Via, désolé de vous déranger de nouveau
j'ai fait quelques modifications, et je ne parviens pas
ma demande c'est de :
- mettre un mot de passe pour verrouiller les cellules remplies mais la mise en fome du tableau reste
pour chaque insertion à partir du formulaire, j'ai déjà mis un code mais cela ne marche pas
- lorsqu'il y a une insertion, la dernière remplie se positionne toujours sur la ligne où j'ai colorisé en rouge sur le fichier joint, donc à peu près 3/4 de l'écran ou on voit des lignes vides en bas
https://mon-partage.fr/f/0MawNane/
Je vous remercie pour votre aide, et encore navrés de vous déranger à cette heure ci.
Cordialement.
j'ai fait quelques modifications, et je ne parviens pas
ma demande c'est de :
- mettre un mot de passe pour verrouiller les cellules remplies mais la mise en fome du tableau reste
pour chaque insertion à partir du formulaire, j'ai déjà mis un code mais cela ne marche pas
- lorsqu'il y a une insertion, la dernière remplie se positionne toujours sur la ligne où j'ai colorisé en rouge sur le fichier joint, donc à peu près 3/4 de l'écran ou on voit des lignes vides en bas
https://mon-partage.fr/f/0MawNane/
Je vous remercie pour votre aide, et encore navrés de vous déranger à cette heure ci.
Cordialement.
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
10 oct. 2019 à 14:40
10 oct. 2019 à 14:40
Bonjour christian
Pas de souci !
La feuille est protégée par le mot de passe admin, les colonnes étant au préalable verrouillées
Dans les macros où il faut inscrire dans la feuille une ligne déprotège d'abord la feuille puis une autre la reprotège à la fin
Si tu veux changer le mot de passe il faut le modifier dans ces 2 lignes dans les 2 macros
En fin de macro on repositionne sur la cellule A1, ainsi tu n'as pas le bas de tableau visible
Enfin j'ai shunté ta macro qui verrouillait les cellules et qui faisait bugguer, il n'y a plus besoin puisqu'à défaut lex colonnes sont verrouillées et la feuille protégée
https://mon-partage.fr/f/Sm1DoYSg/
Cdlmnt
Via
Pas de souci !
La feuille est protégée par le mot de passe admin, les colonnes étant au préalable verrouillées
Dans les macros où il faut inscrire dans la feuille une ligne déprotège d'abord la feuille puis une autre la reprotège à la fin
Si tu veux changer le mot de passe il faut le modifier dans ces 2 lignes dans les 2 macros
En fin de macro on repositionne sur la cellule A1, ainsi tu n'as pas le bas de tableau visible
Enfin j'ai shunté ta macro qui verrouillait les cellules et qui faisait bugguer, il n'y a plus besoin puisqu'à défaut lex colonnes sont verrouillées et la feuille protégée
https://mon-partage.fr/f/Sm1DoYSg/
Cdlmnt
Via
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
10 oct. 2019 à 15:13
10 oct. 2019 à 15:13
Merci beaucoup Via
Ca ira comme ça, mais j'aimerai tout simplement savoir le où se trouve l'autre mot de passe pour ôter la protection à partir de l'onglet proteger feuille.
Merci
CDT
Ca ira comme ça, mais j'aimerai tout simplement savoir le où se trouve l'autre mot de passe pour ôter la protection à partir de l'onglet proteger feuille.
Merci
CDT
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
10 oct. 2019 à 15:49
10 oct. 2019 à 15:49
Que veux dire par l'autre lot de passe ? il n'y en a qu'un
Dans les macros on le trouve dans celle associée au bouton Valider et dans celle associée au bouton Heure fin puisque ce sont celles qui écrivent dans la feuille
Dans les macros on le trouve dans celle associée au bouton Valider et dans celle associée au bouton Heure fin puisque ce sont celles qui écrivent dans la feuille
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
Modifié le 10 oct. 2019 à 16:18
Modifié le 10 oct. 2019 à 16:18
Merci, j'ai trouver le mdp
j'ai essayé cette code pour afficher toujour la dernière ligne remplie
mais celane montre pas, est ce que vous pouvez le modifier ?
le but c'est de trouver la dernière ligne remplie puis l'afficher sur l'ecran plus 8 lignes vides ou moins par exemple
après chaque insertion
Encore merci Via
j'ai essayé cette code pour afficher toujour la dernière ligne remplie
mais celane montre pas, est ce que vous pouvez le modifier ?
Range("A18").Select For n = 8 To Sheets("ADV35").Range("a65536").End(xlDown).Select.show Next
le but c'est de trouver la dernière ligne remplie puis l'afficher sur l'ecran plus 8 lignes vides ou moins par exemple
après chaque insertion
Encore merci Via
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
10 oct. 2019 à 18:02
10 oct. 2019 à 18:02
Au temps pour moi ! je n'avais pas compris que tu voulais te positionner en bas
Alors pour se positionner 8 lignes plus bas que la dernière entrée :
Range("A" & Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 8).Select
Alors pour se positionner 8 lignes plus bas que la dernière entrée :
Range("A" & Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 8).Select
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
10 oct. 2019 à 18:05
10 oct. 2019 à 18:05
Je vous remercie
c'est résolu donc
Merci beaucoup Via
A bientôt
Bonne soirée
c'est résolu donc
Merci beaucoup Via
A bientôt
Bonne soirée
Bonjour Via
Désolé de vous déranger de nouveau, j'ai un petit problème, lors de l'enregistrement du fichier, je crois qu'il y avait un coupure d'alimentation et celui-ci est endommagé, j'aimerai si vous pouvez récupérer les données du jeudi 10 jusqu'à hier ou le fichier tout entier si c'est possible
Je vous joins le fichier et je vous remercie d'avance pour votre aide :
https://mon-partage.fr/f/K1zyKxLm/
Cordialement
Désolé de vous déranger de nouveau, j'ai un petit problème, lors de l'enregistrement du fichier, je crois qu'il y avait un coupure d'alimentation et celui-ci est endommagé, j'aimerai si vous pouvez récupérer les données du jeudi 10 jusqu'à hier ou le fichier tout entier si c'est possible
Je vous joins le fichier et je vous remercie d'avance pour votre aide :
https://mon-partage.fr/f/K1zyKxLm/
Cordialement
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
15 oct. 2019 à 19:39
15 oct. 2019 à 19:39
Bonjour Christian
Tu me dérange pas
Malheureusement le fichier est endommagé et je ne peux rien faire, ce n’est pas de mon ressort
Regarde les solutions ou lociel proposés ur le net
ex : https://www.astuces-aide-informatique.info/6888/reparation-fichier-excel
Cdlmnt
Tu me dérange pas
Malheureusement le fichier est endommagé et je ne peux rien faire, ce n’est pas de mon ressort
Regarde les solutions ou lociel proposés ur le net
ex : https://www.astuces-aide-informatique.info/6888/reparation-fichier-excel
Cdlmnt
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
25 janv. 2020 à 13:00
25 janv. 2020 à 13:00
Bonjour Via
Bonne année, tous mes meilleurs vœux.
J'aimerai poser une question si ça ne vous dérange pas,
J'ai un tableau excel dont il y a un affichage d'heure.
J'aimerai que l'heure en plus de 24h s'affiche par exemple :
00:10:10 en 24:10:10
1:15:30 en 25:15:30
2:00:00 en 26:00:00
Aurait-il une formule par exemple pour cette conversion ?
Merci pour votre aide
Cordialement
Bonne année, tous mes meilleurs vœux.
J'aimerai poser une question si ça ne vous dérange pas,
J'ai un tableau excel dont il y a un affichage d'heure.
J'aimerai que l'heure en plus de 24h s'affiche par exemple :
00:10:10 en 24:10:10
1:15:30 en 25:15:30
2:00:00 en 26:00:00
Aurait-il une formule par exemple pour cette conversion ?
Merci pour votre aide
Cordialement
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
25 janv. 2020 à 13:33
25 janv. 2020 à 13:33
Bonjour Christian
Pour qu'une celluleaffiche les heures au delà de 24 h il faut la mettre en format personnalisé [h]:mm:mm (aller dans le ruban à Nombre - Autres formats numériques)
Cdlmnt
Via
Pour qu'une celluleaffiche les heures au delà de 24 h il faut la mettre en format personnalisé [h]:mm:mm (aller dans le ruban à Nombre - Autres formats numériques)
Cdlmnt
Via
Christian_Mahefa
Messages postés
30
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
6 juin 2020
25 janv. 2020 à 14:04
25 janv. 2020 à 14:04
oui, j'ai essayé tout cela mais le problème l'heure est déjà affichée en 00:00:10 par exemple sur un fichier, donc pour le changement je devrais changer manuellement chaque ligne
or il y en a beaucoup.
Ma demande si c'est possible une formule pour cette affichage sur la colonne E une
formule pour que l'heure continue en 24 jusqu'à n sans que les minutes et secondes ne changent pas.
Je vous joins le fichier s'il vous plait.
https://mon-partage.fr/f/xtv49hWR/
merci
Cordialement.
or il y en a beaucoup.
Ma demande si c'est possible une formule pour cette affichage sur la colonne E une
formule pour que l'heure continue en 24 jusqu'à n sans que les minutes et secondes ne changent pas.
Je vous joins le fichier s'il vous plait.
https://mon-partage.fr/f/xtv49hWR/
merci
Cordialement.