Remplissage ligne à partir de textbox
ksta89
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
En début de semaine je remplis une ligne d'une feuille Excel avec des textbox d'un USF.
Les textboxs contiennent le nom de l'employé, le kilométrage estimé en début de semaine, l'immatriculation de son véhicule, de la semaine et de l'année.
Jusque là aucun souci je sais faire.
Ce que je voudrais pouvoir faire, c'est en fin de semaine remplir ce même fichier et compléter les cellules vide des ligne en fonction du nom, de la semaine et de l'année.
Exemple:
remplissage début de semaine :
ligne 3: A3 = M.TARTENPION B3 = hgy-563-YT C3 = 345KM D3 = S16 E3 = 2015
Les cellules F3 et G3 sont vide. elles correspondent au kilométrage effectué et à la différence en prévisionnel et effectué.
remplissage fin de semaine :
je rentre le NOM + la semaine et l'année et en appuyant sur un bouton l'immatriculation et le kilométrage prévisionnel se mettent automatiquement.
Moi je n'ai plus qu'à insérer le kilométrage effectué et la différence. EN appuyant sur un autre bouton les deux dernières infos vont compléter la ligne correspondant au nom, semaine et année...
Mes fichiers en pièce jointe :
http://cjoint.com/?EDnkyfGMj9P
idf : ***@***
mdp : POITOUT21
Cdt,
En début de semaine je remplis une ligne d'une feuille Excel avec des textbox d'un USF.
Les textboxs contiennent le nom de l'employé, le kilométrage estimé en début de semaine, l'immatriculation de son véhicule, de la semaine et de l'année.
Jusque là aucun souci je sais faire.
Ce que je voudrais pouvoir faire, c'est en fin de semaine remplir ce même fichier et compléter les cellules vide des ligne en fonction du nom, de la semaine et de l'année.
Exemple:
remplissage début de semaine :
ligne 3: A3 = M.TARTENPION B3 = hgy-563-YT C3 = 345KM D3 = S16 E3 = 2015
Les cellules F3 et G3 sont vide. elles correspondent au kilométrage effectué et à la différence en prévisionnel et effectué.
remplissage fin de semaine :
je rentre le NOM + la semaine et l'année et en appuyant sur un bouton l'immatriculation et le kilométrage prévisionnel se mettent automatiquement.
Moi je n'ai plus qu'à insérer le kilométrage effectué et la différence. EN appuyant sur un autre bouton les deux dernières infos vont compléter la ligne correspondant au nom, semaine et année...
Mes fichiers en pièce jointe :
http://cjoint.com/?EDnkyfGMj9P
idf : ***@***
mdp : POITOUT21
Cdt,
18 réponses
Résumé de la discussion
Le problème porte sur l'automatisation du remplissage d'un fichier Excel via des textbox d'un USF, afin de compléter les lignes selon le nom, la semaine, l'année et le kilométrage. Des approches VBA existent, incluant des boutons pour récupérer le nom, la semaine et l'année afin d'inscrire l'immatriculation et le kilométrage prévisionnel, puis compléter le kilométrage effectué et la différence. D'autres éléments signalent des erreurs lors des recherches et des éléments VBA obsolètes (ex: TextBox5_Change n'existe plus), ainsi que des bugs de mise à jour à l'ouverture. En parallèle, certains échanges orientent vers des ressources externes sur la validation numérique et sur des méthodes pour forcer la saisie numérique, avec des fichiers modifiés déposés pour tests et vérifications.
-
Bonjour,
Dans l'UF kilometrage: precisez la fonction du bouton "donnees debut semaine" et du bouton ajouter car le code ne correspond pas-
Bonjour,
Le bouton ajouter début de semaine correspond a l'ajout des donnée rentrer en début de semaine et à rappeler en fin de semaine en fonction de la semaine, de l'année et du technicien. Quant au bouton ajouter il permet de compléter le ligne en fonction du kilométrage effectué et de la différé ce.
Cdt.
-
-
Re,
une facon de faire: https://www.cjoint.com/c/EDopoaNdBFs
remettre votre chemin et vos couleurs
ai modifie calcul pour avoir du + si plus de Km et du - inversement
faudrait ajouter controle isnumeric pour CPbox4
A+-
-
Re,
li y a plusieurs facon de faire:
https://www.ozgrid.com/VBA/validate-numbers.htm
https://didier-gonard.developpez.com/tutoriels/office/excel/obliger-saisie-numerique-dans-texbox/ -
Bonjour,
Je t'envoie les fichiers qui ont été modifié depuis: https://www.cjoint.com/c/EDuqtZGwinL
Cependant j'aimerais lors de l'ajout du kilométrage en début de semaine l'ajouter au kilométrage initial du véhicule se trouvant dans la feuille liste des véhicules en fonction de son immatriculation la première fois et après prendre le derniere kilométrage en fonction de l'immatriculattion dans la feuille kilometrage hebdomadaire.
t'aurais une idée stp?
merci d'avance.
cdt, -
-
-
-
-
Bonjour,
J'ai adapte tes modules a mon application et ça marche nikel.
Alors je voulais voir avec toi une chose:
J'aimerais maintenant pouvoir affecter soit un matériel ou un véhicule à technicien.
Pour cela cela serait de copier la ligne du matériel ou du véhicule dans un classeur portant le nom du technicien... T'aurais une idée?
cdt, -
-
-
Bonjour,
matériel ou du véhicule dans un classeur portant le nom du technicien Oui, vous n'etes pas 100 techniciens ???
Voir un classeur avec un onglet par technicien. C'est a vous de voir
attention à la gestion du stock Je vais regarder la chose
A+ -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Non, rien de fait pour le moment, je regarderai dans l'apres-midi-
-
-
-
Bonjour,
l'onglet client dans la liste du matériel se créé lors de l'ajout d'un nouveau membre du personnel.
Par contre je trouve que ça mouline beaucoup quand je crée quelque chose... Y'aurait il une façon plus simpliste pour eviter que l'on voye le "moulinage"...
Enfin est ce possible d'associé tech avec un vehicule. c'est à dire dans le kilométrage quand je rentre le tech la plque associé vient directement...
Ct, -
Re,
Enfin est ce possible d'associé tech avec un vehicule. c'est à dire dans le kilométrage quand je rentre le tech la plque associé vient directement...
Oui, mais a quel endroit vous faites l'association ????
Par contre je trouve que ça mouline beaucoup quand je crée quelque chose... Y'aurait il une façon plus simpliste pour eviter que l'on voye le "moulinage"... C'est quoi le quelque chose ????
-
-
Re,
dans affectation / affectation vehicule. Oui, mais ca ouvre Affectation_Mat !!!!! Y a kake chose de fait pour ou pas-
-
-
-
Re,
https://www.cjoint.com/c/EDDuUUha5H9
en pièce jointe les fichiers avec l'USF affect véhicule.
les macro sont nikel mais j'ai un probleme avec la fonction each dans la macro de l'initialisationn de mon USF ce qui me provoque un acces refuse sinon tout le reste est OK.
Cdt, -
Re,
J'ai résolu le problème : https://www.cjoint.com/c/EDDxQoZgJXf
Maintenant c'est de voir pour l'association immatriculation/tech dans kilométrage en prenant en compte que la variable est le technicien.
Merci par avance de ton aide.
Cdt,
-
-
-
BONJOUR,
Je t'envoie le fichier modifié : https://www.cjoint.com/c/EEdlZhG5YnO
Alors deux choses :
J'ai créé un module révision. lors de l'ajout hebdomadaire du kilometrage, dès que celui-ci est a un 1000 km la cellule du kilométrage dans sheets "véhicule" se colore en rouge. dès que le révision est faite la cellule redevient normal. cependant cela marche une fois sur deux et je ne comprend pas pourquoi?
Enfin j'ai créé deux petit textbox dans démarrage pour compter le nombre de ligne active = le nombre de voiture et un autre pour les voiture affecter colone N feuille 6 rempli ou pas. pareil ca me fait un peu buger le truc.
pourrais tu stp y jeter un petit coup d'oeil pour voir ce qui pose problème.
Merci d'avance.
cdt,
-
-
Re,
Quel magnifique jeux de piste!!!!!!! Je pense que votre probleme vient de l'actualisation de la feuil6 de affect_mat. Je continuerai demain -
-
re,
OK pour le colorie des cellules. Par contre toujours le mëme problème de bug a cause des taches faite dans USF demarrage. En effet lors du actualisation des fichier en faisant le kilométrage hebdomadaire ok, mais quand je reviens sur l'USF démarrage sa buG.
Tu pourrais y jeter un coup d'oeil stp.
cdt,
http://cjoint.com/?EEev6rzpQVT -
-
-
-
Re,
en faite lorsque ça buger au démarrage j'avais créé des boutons pour faire fonctionner les alertes dans l'USF DEMARRAGE. Après la résolution des soucis j'ai pu faire fonctionner les alertes dans l'initialise et donc au lieu de renommer les macro je les laisser tel quel. les bouton n'existe pas mais les deux existe et serve juste de nommage pour lancer les alertes.
-
-
Re,
ayant fait des clics sur la case supposee vide en N4, j'avais mis =estvide(n4) en N8 et vrai. J'ai retelecharge le fichier et J'ai refait le meme test sans faire de manip et la FAUX la cellule N4 n'est pas vide !!!!
meme chose dans fichier liste vehicule -
-
Bonjour,
Dans le module affection materiel je dois normalement copier la ligne du materiel en question vers LISTE DU MATERIEL FEUILLE au nom du technicien. Cependant la copie ne s'effectue plus. Pourrais tu stp y jeter un coup d'oeil...
merci d'avance.
le principe copier une ligne d'un classeur à un autre en fonction d'une valeur d'un textbox. -
-
Re,
Voilà la macro posant problème :
Private Sub ATTRIBUTION()
Dim NCR As String 'déclare la variable NCR (Nom du Classeur de Recherche)
Dim CR As Workbook 'déclare la variable CR (Classeur de Recherche)
Dim OCR As Worksheet 'déclare la variable OCR (Onglet du Classeur de Recherche)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Integer 'déclare la variable NL (Nombre de Lignes)
Dim NC As Byte 'déclare la variable NC (Nombre de Colonnes)
Dim i As Integer 'déclare la variable I (Incrément de ligne)
Dim J As Byte 'déclare la variable J (incrément de colonne)
Dim Test As Boolean 'déclare la variable TEST
Dim client As Variant
client = CPbox1
'NCR = "C:\AFFECT MAT\Feuil5.xlsm" 'définit le nom NCR du classeur de recherche
NCR = "C:\AFFECT MAT\Feuil5.xlsm"
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
Set CR = Workbooks("AFFECT MAT.xlsm") 'définit le classeur de recherche CR (génére une erreur si ce classeur n'est pas ouvert)
If Err <> 0 Then 'condition : si une erreur a été générée
Err = 0 'annule l'erreur
Set CR = ActiveWorkbook 'définit la classeur CR
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
Set OCR = CR.Sheets("Feuil5") 'définit l'onglet OCR du classeur de recherche
TC = OCR.Range("A3").CurrentRegion 'définit le tableau de cellule TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
NC = UBound(TC, 2) 'définit le nombre de colonnes NC du tableau de cellules TC
Test = False
For i = 1 To NL 'boucle 1 : sur toutes les lignes de TC
For J = 1 To NC 'boucle 2 sur toutes les colonnes de TC
If UCase(TC(i, J)) Like "*" & UCase(Me.ComboBox1.Value) & "*" Then 'condition : si la valeur en ligne I, colonne J de TC est égale à la valeur de la TextBox1
OCR.Cells(i + 2, 1).Resize(, NC).EntireRow.Copy 'copie la cellule ligne I+2 colonne J de l'onglet OCR
client = Me.CPbox1
Workbooks("LISTE DU MATERIEL").Worksheets(client).Activate
Windows("LISTE DU MATERIEL").Activate
Range("A65000").End(xlUp).Activate_
.Paste xlPasteValues
Application.CutCopyMode = False
Test = True
Exit For 'sort de la boucle 2
End If 'fin de la condition
Next J 'prochaine colonne de la boucle 2
Next i 'prochaine ligne de la boucle 1
Range("I7").End(xlDown) = Me.TextBox2
Me.CPbox1 = ""
Me.TextBox2 = ""
Application.Visible = True
Dim WB As Workbook
Dim Flg As Boolean
For Each WB In Workbooks
If WB.Name = "LISTE DU MATERIEL.xlsm" Then
Flg = True
Exit For
End If
Next WB
If Flg Then WB.Save
If Flg Then WB.Close
Application.Visible = False
End Sub -
Re,
A part les eux .xlsm manquant et un activesheet qui s'est perdu en chamin, rien d'anormal !!!!!!!
Private Sub ATTRIBUTION() Dim NCR As String 'déclare la variable NCR (Nom du Classeur de Recherche) Dim CR As Workbook 'déclare la variable CR (Classeur de Recherche) Dim OCR As Worksheet 'déclare la variable OCR (Onglet du Classeur de Recherche) Dim TC As Variant 'déclare la variable TC (Tableau de Cellules) Dim NL As Integer 'déclare la variable NL (Nombre de Lignes) Dim NC As Byte 'déclare la variable NC (Nombre de Colonnes) Dim i As Integer 'déclare la variable I (Incrément de ligne) Dim J As Byte 'déclare la variable J (incrément de colonne) Dim test As Boolean 'déclare la variable TEST Dim client As Variant 'NCR = "C:\AFFECT MAT\Feuil5.xlsm" 'définit le nom NCR du classeur de recherche NCR = "C:\AFFECT MAT\Feuil5.xlsm" On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante) Set CR = Workbooks("AFFECT MAT.xlsm") 'définit le classeur de recherche CR (génére une erreur si ce classeur n'est pas ouvert) If Err <> 0 Then 'condition : si une erreur a été générée Err = 0 'annule l'erreur Set CR = ActiveWorkbook 'définit la classeur CR End If 'fin de la condition On Error GoTo 0 'annule la gestion des erreurs Set OCR = CR.Sheets("Feuil5") 'définit l'onglet OCR du classeur de recherche TC = OCR.Range("A3").CurrentRegion 'définit le tableau de cellule TC NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC NC = UBound(TC, 2) 'définit le nombre de colonnes NC du tableau de cellules TC test = False For i = 1 To NL 'boucle 1 : sur toutes les lignes de TC For J = 1 To NC 'boucle 2 sur toutes les colonnes de TC If UCase(TC(i, J)) Like "*" & UCase(Me.ComboBox1.Value) & "*" Then 'condition : si la valeur en ligne I, colonne J de TC est égale à la valeur de la TextBox1 OCR.Cells(i + 2, 1).Resize(, NC).EntireRow.Copy 'copie la cellule ligne I+2 colonne J de l'onglet OCR client = CPbox1 Windows("LISTE DU MATERIEL.xlsm").Activate Workbooks("LISTE DU MATERIEL.xlsm").Worksheets(client).Activate Range("A65536").End(xlUp).Offset(1, 0).Activate ActiveSheet.Paste Application.CutCopyMode = False test = True Exit For 'sort de la boucle 2 End If 'fin de la condition Next J 'prochaine colonne de la boucle 2 Next i 'prochaine ligne de la boucle 1 Range("I7").End(xlDown) = Me.TextBox2 Me.CPbox1 = "" Me.TextBox2 = "" Application.Visible = True Dim WB As Workbook Dim Flg As Boolean For Each WB In Workbooks If WB.Name = "LISTE DU MATERIEL.xlsm" Then Flg = True Exit For End If Next WB If Flg Then WB.Save If Flg Then WB.Close Application.Visible = False End Sub -
-
-
Re,
chez moi ca marche avec "mes" modif. -
Re,
Ai trouve, un +2 mal-t-a propos. Ai modifie le debut comptage boucle i=1 to NL en i=3 to NL. Par contre, comprends pas la deuxieme boucle, soit vous avez fait un copier/coller d'une autre partie de code sans chercher plus loin ou vous aimez la difficultee
https://www.cjoint.com/c/EEriKYmtlNz
A+ -
Re,
une combobox a remplir avec les ref dispo et ce code qui ecrit dans des cellules (a adapter):
Private Sub ComboBox1_Change() Dim TTech(), x, Point, wsh As Worksheet Dim RefCherch If Not IsEmpty(ComboBox1) Then RefCherch = ComboBox1 Workbooks.Open ("D:\Affectation materiel\LISTE DU MATERIEL.xlsm") Point = -1 For Each wsh In Worksheets If wsh.Name <> "PRESENTATION" And wsh.Name <> "LISTE MAT" Then If Application.CountIf(Range("A:A"), RefCherch) > 0 Then Point = Point + 1 ReDim Preserve TTech(Point) TTech(Point) = wsh.Name End If End If Next wsh Workbooks("LISTE DU MATERIEL.xlsm").Close False If Point > -1 Then Worksheets("feuil1").Range("B1").Resize(Point) = Application.Transpose(TTech) Else MsgBox "Pas de Tech pour cette Ref: " & RefRech End If End If End Sub-
Re,
Mon fichier en pièce jointe : https://www.cjoint.com/?EEtqsu7wUb9
Alors dans l'USF démarrage tu as un bouton qui exécute la macro. Cependant elle m'affiche en feuille 1 d'AFFECT MAT tout les onglet différent de présentation et liste matériel.
Dans le principe c'est pour choisir une référence d'un matériel et me dire qui possède ce matériel, voir la quantité
peux tu y jeter un oeil.
Cdt, -
-
-
-
-
-
-
-
Bonjour,
mon fichier modifié : https://www.cjoint.com/c/EEviRDWmsL7
Juste une deux dernière remarque :
1) Peux t-on y ajouter la quantité si le matériel existe bien pour le technicien?
2) Quand je ferme le fichier liste MAT, excel reste "ouvert" avec une page vide avec le bandeau simplement...
Cdt,
-
-
-
Re,
voila:
-
-
-
Bonjour,
Je t'envoi mon fichier MàJ : https://www.cjoint.com/c/EEzmdD4NCDU
Dans le .zip tu trouveras AFFECT MAT et un fichier Word expliquant le petit souci de la semaine derniere.
Deux petites chose:
La première j'ai inséré dans l'USF DEMARRAGE deux textboxs avec la fonction GETOPENFILENAME. J'aurais aimé que au lieu que ce soit des textboxs mais plutôt une liste box afin de pouvoir stocke plusieurs fichier a ouvrir a des instants différent.
Je sais que c'est possible, mais je n'ai pas su mettre la formule en place.
La deuxième justement concernant ces deux textboxs, l'un permet d'ouvrir des fichiers PDF et l'autre d'ouvrir des fichier Excel. Pourrais t'on pas en faire une seul qui ouvre tout type de fichier...
Merci d'avance.
cdt, -
-
-
