Remplissage ligne à partir de textbox

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,

La solution fonctionne plutôt bien. merci.

comment fonctionne le isnumeric?

• cdt,

Merci

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,

attention à la gestion du stock

exemple si une référence à 50 EN QUANTITE, et que j'en attribue 25 il faut que le stock de la liste du matériel varie en fonction de l'affectation

re,

non nous ne sommes pas 100 lol.

bonjour,

Vous avez eût le temps de regarder?

Car moi franchement je bloque...

Merci d'avance.

cdt,,

Merci

Bonjour,

Je t'envois ce que j'ai déjà fait.

il y'a juste un bug avec la fonction paste (à voir).

Cdt,

http://cjoint.com/?EDCurgYA1Jc

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,

Effectivement quand tu ouvres AFFECTATION VEHICULE tu vois un USF affect mat, mais ce derrnier etait un USF de tests pour AFFECT VEHICULE il y'en pas.

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,

Ok merci.

Ok merci

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,

je viens d'essayer pour moi quand N4 vide la formule me met VRAI. Cependant cela ne fonctionne toujours pas pour l'affectation d'un véhicule.

J'ai fait les tests suivant :

les deux véhicule non affecter compteur a 0 et USF NA s'affiche sans rien dedans.

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,

tu confirme que dans le classeur LISTE DU MATERIEL, feuille au nom du technien le materiel copié en A7...?

Si oui envoi le fichier que tu as...
Merci d'avance/

Re,

La LIGNE copier dans le technicien de LA LISTE DU MATERIEL n'est pas la même que celle de la Feuiil5 d'AFFECT MAT. En l'effaçant et recommençant tu verras rien ne se fait...

Bonjour,

Une question, est il a t'on avis possible en rentrant la référence d'un matériel dans un textbox de connaître les techniciens qui le possède?
Si oui aurait tu une piste, car moi je cherche sans succès.

je t'enverrais le fichier AFFECT mat ok dès que le serveur re-fonctionnera....

cdt,

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,

Re,

je pense que le fichier est dispo.
cdt,

Re,

Et pour le problème que tout les onglet s'affiche ..Tu as trouvé quelque chose

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,

Ok pour la quantité, cependant le problème Excel est toujours le même car quand dans un premier temps tu recherche la liste matériel d'un technicien ok, mais derrière quand tu va pour rechercher qui possède le matériel il y'a une erreur

Tu peux y jeter un coup d'oeil stp?

Cdt,

Quand tu appuis sur le bouton qui possède tu va ouvrir l'USF qui_possede et la le bug . ... Ceci ce produit après avoir une recherche d'une liste matériel d'un technicien dans démarrage bouton 18.

Re,

Quand tu ouvre l'application tu arrives sur USF DÉMARRAGE. ensuite tu appuies sur le bouton tout en bas pour faire apparaître le FRAME11 tu fait une recherche. Ensuite tu ferme liste matériel. Après tu ouvre L'USF qui possède et la l'erreur. ...

Re,

Effectivement cette flèche n'est pas a sa place je vais m'en occuper.

Par contre as tu pu voir pour 2) Quand je ferme le fichier liste MAT, excel reste "ouvert" avec une page vide avec le bandeau simplement...

cdt,

Bonjour,

J'ai utilisé Excel, car je n'ai jamais travaillé avec Acces... Mais c'est prévu.

Cdt,