A voir également:
- Remplissage ligne à partir de textbox
- Partage de photos en ligne - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Comment faire une recherche à partir d'une photo - Guide
18 réponses
Bonjour,
Dans l'UF kilometrage: precisez la fonction du bouton "donnees debut semaine" et du bouton ajouter car le code ne correspond pas
Dans l'UF kilometrage: precisez la fonction du bouton "donnees debut semaine" et du bouton ajouter car le code ne correspond pas
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+
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/
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,
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,
fichier modifie: https://www.cjoint.com/c/EDxksid1PtB
ai ajoute compteur de depart
A+
fichier modifie: https://www.cjoint.com/c/EDxksid1PtB
ai ajoute compteur de depart
A+
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,
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+
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
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,
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 ????
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
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,
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,
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,
Re,
fichier modifie: https://www.cjoint.com/c/EDEqnrtTmFc
fichier modifie: https://www.cjoint.com/c/EDEqnrtTmFc
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,
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
Quel magnifique jeux de piste!!!!!!! Je pense que votre probleme vient de l'actualisation de la feuil6 de affect_mat. Je continuerai demain
Bonjour,
Tester si OK: https://www.cjoint.com/c/EEeqJqbEh2n
Tester si OK: https://www.cjoint.com/c/EEeqJqbEh2n
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
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.
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
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
Re,
Tester ce fichier: https://www.cjoint.com/c/EEii5tz4zQi
Tester ce fichier: https://www.cjoint.com/c/EEii5tz4zQi
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.
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
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 !!!!!!!
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,
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+
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):
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,
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,
Re,
avec une listbox lockee: https://www.cjoint.com/c/EEur25p4ZLD
avec une listbox lockee: https://www.cjoint.com/c/EEur25p4ZLD
Re,
Ai trouve: https://www.cjoint.com/c/EEutesMlfnK
Ai trouve: https://www.cjoint.com/c/EEutesMlfnK
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,
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,
fichier modifie: https://www.cjoint.com/c/EEvjpZcW318
fichier modifie: https://www.cjoint.com/c/EEvjpZcW318
Re,
voila:
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,
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,
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.
Ok, c'est l'idee que je m'en faisais. Je continue
A+