Formule et code VBA Résolu

Question

Bonjour


J'ai un formulaire que j'ai créé mais j'ai du problème sur le code vba
Colonne A date, colonne B numéro de l'image Colonne E nom de l'opérateur, colonne F heure début du traitement et colonne  G heure fin du traitement et colonne H total heure du  traitement

Lors de la fin de la saisie donc, il y aura une plus d'un enregistrement selon le nombre de dossier que la personne a pris

- Pour la No Image, j'aimerai que ce soit un numéro suivi un énumération
par exemple si dans la formulaire
je saisie 1 à 10, il y a une insertion automatique de 10 lignes suivi du nom ainsi que l'insertion automatique de la date et heure aussi
ou même chose si on cite le numéro début plus le nombre par exemple  le n° débute à 100 pour 15 images par exemple donc 101, 102 à 115.

- Pour l'heure fin
Lorsque je saisisse un nom par exemple toutes les lignes qui sont concernées seront remplies d'heure fin


- Pour la recherche
Lorsque je mets un numéro sur la case recherche, la personne qui l'avait fait s'affiche sur le résultat.


Merci pour votre aide

Ci-joint mon fichier

https://we.tl/t-cpy4nDTvUf

via55 · Answer

Bonjour

Je ne comprends pas pourquoi tu as 2 colonne image avec n° debut et fin
Si tu as par exemple 3 images de 100 à 102 et que la macro crée 3 lignes il suffit d'une colonne image qui portera respectivement les n°s 100, 101 et 102, non ?

A ce moment il suffit de calculer en début de macro le nombre de lignes N et de faire une boucle FOR NEXT de 0 à N et dans la boucle de faire inscrire en bonne place les infos en ligne L + N, L étant la 1ere ligne vide que tu as déterminée

Cdlmnt
Via

Christian_Mahefa · Answer

Oui, vous avez raison mais est ce que vous pouvez faire le code s'il vous plait,j'ai essayé comme suit mais cela n'a pas marché : 

    DEBUT = textbox2.value
    FIN = textbox3.value
    With ActiveCell.EntireRow
        For LigneNum = DEBUT To FIN
            .Offset(LigneNum - 1, 0).Insert Shift:=xlDown
            .Copy Destination:=.Offset(LigneNum - 1, 0)
            Cells(LigneNum, 1).Value = "(" & LigneNum & ") " & Cells(LigneNum, 1).Value
        Next LigneNum
    End Withange(Cells(ligne - 1, 3), Cells(ligne, 16)) 'on incrémente ces cellules vers le bas
 End Sub

Or il faut que toutes les lignes soient copiées de suite et incrémenté selon le numéro saisisse  dant le textbox 2 et textbox 3

Merci pour votre aide

via55 · Answer

Ok je m'en occupe ainsi que de l'heure de fin

Par contre pour la recherche le n° image  seul suffit ou la date importe aussi puisqu'elle est présente dans l'UF ?

Tu me confirmes aussi qu'on supprime la 2eme colonne image dans le tableau

Christian_Mahefa · Answer

Je vous remercie humblement pour votre aide
concernant la recherche, par exemple n°150 traité par Eric le 22 juillet 2019
donc lorsque je cherche 150 dans le numéro et je mets 22/07/2019 dans la date
et le résultat affiche Eric

Encore Merci

via55 · Answer

Donc on prend bien en compte les 2

Par contre tu ne réponds pas à mon autre question : confirmes mois qu'on supprime bien la 2eme colonne image inutile

Christian_Mahefa · Answer

oui, vous pouvez supprimer la colonne inutile

Encore merci

via55 · Answer

ton fichier en retour
https://mon-partage.fr/f/UHOFUWZy/

Cdlmnt

Christian_Mahefa · Answer

je vous remercie du fond du coeur
mais est ce que vous pouvez mettre un coup d'oeil s'il vous plait

l'heure fin  (il y a juste un msg box mais les lignes ne se sont pas remplies) et la recherche ne fonctionne pas aussi

et est ce qu'il est possible que l'enregistrement commence à partir de la ligne 2 afin que le tableau prend la mise en forme
car après lorsque je tire sur la mise en forme 
la prochaine saisie s'affiche sur le bas où il les lignes précédentes son vide
je vous joins le fichiers

https://we.tl/t-Y3pvv46rTs

Merci

via55 · Answer

Désolé j'avais oublié de modifier certaines lignes après la suppression  de la 2eme colonen image !
https://mon-partage.fr/f/MyER3hux/

Christian_Mahefa · Answer

Merci beaucoup Via

une question, vous avez mis cette code
  ActiveCell.FormulaR1C1 = _
        "=IF([@[HEURE FIN]]="""","""",[@[HEURE FIN]]-[@[HEURE DEBUT]])"

sur la commande bouton est cela n'a pas marché, je l'ai enlevé et tout marche
je vous demande tout simplement si je devrai mettre ce code où ?

Merci

via55 · Answer

Je ne comprends pas chez moi cela fonctionne

La formule est juste pour calculer le temps puisqu'il n'y en avait pas mais tu peux supprimer les lignes  :
Range("F" & L + n).Select
  ActiveCell.FormulaR1C1 = _
        "=IF([@[HEURE FIN]]="""","""",[@[HEURE FIN]]-[@[HEURE DEBUT]])"

Tu mettras ensuite la formule de calcul manuellement

Christian_Mahefa · Answer

Bonjour  Via

Désolé de vous déranger

J'ai exécuté le fichier que vous avez réaliser sur un système 32bits et ça n'a pas marché.
J'ai aussi une autre demande à vous faire si c'est possible : 
j'ai fait un autre userform : Filtre

j'aimerai faire une filtre automatique si c'est possible : 
Lorsque que tape une date par exemple et je mets un numéro
il y une ligne contenant l'information sur la listebox
ou lorsque je tape une date et le nom de l'agent sur la combobox3 
toutes les lignes concernant s'affichent 
Et après filtre ou recherche le nombre d'image traitée (nombres de lignes ) s'affiche sur le résultat "Nombre d'image traitées" puis le total heure du traitement en 10,5 par exemple.

Pour le boutton "Effacer", cela remet le compteur à zéro puis efface toutes les donées du filtre

un lien où j'ai trouvé un exemple sur youtube : 

https://www.youtube.com/watch?v=pUkV5lMFWL8
https://www.youtube.com/watch?v=iDl-wHoUzh8


Vous trouverez ci-joint mon fichier

https://we.tl/t-iqWdQqRaEz


Je vous remercie

via55 · Answer

Bonjour

Impossible de télécharger ton fichier
Repostes le sur https://mon-partage.fr/

Christian_Mahefa · Answer

Voici le lien

https://mon-partage.fr/f/OUk9cNdz/

j'ai mis une mot de passe pour le fichier : 
suiviadv35

Et pour les autres postes, j'ai installé office 2010 et cela s'ouvre normalement et marche
mais vous pouvez encore le mettre en standard si c'est possible

Je vous remercies humblement

Christian_Mahefa · Answer

Encore merci Via

via55 · Answer

Re,

L'exemple dont tu m'as donné le lien est pour filtrer sur la feuille, ici tu veux une extraction dans un userform c'est différent
Alors en modifiant légèrement l'UF (et en donnant des noms aux textbox et autres contrôles c'est plus facile pour s'y retrouver dans les macros) :
https://mon-partage.fr/f/IlmBE4Jc/
Tu peux choisir entre deux dates ou à partir d'une date seulement (ne rien mettre dans la 2eme
Idem pour les n° images
tu peux aussi sectionnelle un nom bien sûr
Si tu laisse tous les critères vide le filtre ressortira la liste complète de tes données

J'ai également nommé de manière dynamique la liste des agents (voir gestionnaire de nom) ce qui permet de mettre ce nom dans la propriété Rowsource de la liste déroulante de l'UF et qui évite d'avoir à la remplir lors de l'initialisation

Cdlmnt
Via

Christian_Mahefa · Answer

C'est génial Via, c'est ce que j'ai voulu
Vraiment merci

J'avais une question dessus concernant le changement du total d'heure en décimal mais je vais chercher car je crois que vous avez déjà fait le maximum pour moi
A bientôt
Encore merci Via

Cordialement

via55 · Answer

Pas de souci ☺
Que veux tu comme conversion ? car le total en décimal j'ai du le faire mettre apr la macro dans la cellule BB1 de la feuille et après en tirer les heures, minutes et secondes pour afficher dans l'UF car pas moyen d'y faire afficher un temps qui dépasse 24 h comme avec le format [h]:mm:ss dans une cellule car apparemment ils ne fonctionne pas en VBA ou je ne sais pas faire

Christian_Mahefa · Answer

Oui, par exemple le total de l'heure de traitement c'est 102:32:00       
et cela s'affiche en 102,53       
       
dans le Caption "total Heure"

La raison pour ce cas c'est que lorsque je cherche par exemple une personne pour le nombre de lignes ainsi que l'heure qu'elle avait travaillée, cela peut dépasser le 24h si c'est pendant un mois par exemple, et pour la Colonne F, serait il possible de le mettre en format 
type 
37:30:55

Merci

Christian_Mahefa · Answer

OUI, mais j'ai juste parlé sur l'affichage "total Heure" sur la formulaire filtre

serait il possible de l'afficher en : 75,47 c'est à dire
75:28:25 * 24 donc : 75,47

Merci

via55 · Answer

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)

Christian_Mahefa · Answer

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 · Answer

il faut mettre la propriété scrollbar  sur scrollbar vertical

Christian_Mahefa · Answer

ohhh, dommage donc
mais c'est pas grave

Encore merci Via, c'est déjà mieux
Merci merci milles fois

Cordialement.

via55 · Answer

J'ai dit une bétise, regarde ma réponse rectifiée il faut régler la propriété Scrollbar

Christian_Mahefa · Answer

C'est Ok Via

Encore merci

Bonne continuation à vous, c'est résolu.

Merci

Christian_Mahefa · Answer

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

via55 · Answer

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

Christian_Mahefa · Answer

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.

via55 · Answer

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

Christian_Mahefa · Answer

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

via55 · Answer

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

Christian_Mahefa · Answer

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 ?

   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 · Answer

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

Christian_Mahefa · Answer

Je vous remercie 

c'est résolu donc

Merci beaucoup Via

A bientôt

Bonne soirée

via55 · Answer

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

christian_mahefa · Answer

Bonjour

Merci quand même Via

Bonne journée.

CDT

Christian_Mahefa · Answer

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

via55 · Answer

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

Christian_Mahefa · Answer

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.

via55 · Answer

Re

Je ne comprends pas  ce que tu cherches à obtenir
En F tu veux calculer la différence entre heure de fin et et heure de début et cumuler d'une ligne sur l’autre, même si ce n'est pas le même matricule ?

Christian_Mahefa · Answer

Bonjour Via

Ce n'est pas différence mais j'aimerai afficher sur la colonne F
2:00:00 en 26:00:00 par exemple
toutes les heures à partir de 00:00:00 donc
après 23:59, 24:00:00, 25:00:00, 26:00:00 ainsi de suite

car j'aurai besoin de ces données sur un autre fichier et que ce soit l'heure de la colonne B ou  C
si c'est possible une formule pour que cette affichage

Merci
CDT

via55 · Answer

Bonjour Christian

En ce cas il suffit de mettre en E2 la formule =B2+1, de mettre cette cellule au format personnalisé [h]:mm:ss puis d'étirer la formule au bas du tableau

Cdlmnt
Via

Christian_Mahefa · Answer

merci beaucoup Via
C'est ce que je voulais vraiment

Merci, je vous souhaite une excellente journée.

Cordialement.

Christian_Mahefa · Answer

Bonjour Via

J’espère que vous allez bien.

J'avais une autre demande si cela ne vous dérange pas : 


J'ai un fichier excel qui a pour but de compter le nombre de dossiers traités par chaque personne
et j'aimerai le faire avec VBA dont
l'objectif est de compter, de lister le numéro au début (Numéro séparer au nom de dossier par "- espace) de chaque dossier que la personne a fait, puis le nom du dossier sur une autre liste sur le userform
puis le nom de la personne dans le champ résultat et le nombre des dossiers traités sur le champ résultat.


J'ai mis quelques captures pour mieux expliquer et aussi le fichier excel  dont vous trouverez ci-après le lien : 

https://mon-partage.fr/f/3i4Gctw7/

Merci pour votre aide

Bonne continuation

via55 · Answer

Bonjour Christian

Voir si ça te convient
https://mon-partage.fr/f/gLwWwHPR/

Cdlmnt
Via

Formule et code VBA

46 réponses

Newsletters