Userform de Transfert de matrielles
sata27
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
bonjour le forum je suis en train de développer une interface qui effectue l'échange du matériel entre les chantiers par exemple on fait la sélection de chantier expéditeur qui est réellement une feille d'où on va avoir les informations, après la sélection des autres combo-box vont être chargé avec marque - nom d'outils - Model - Numéro de série sans oublier qu'on peut avoirs des résultats multiples par exemple une seule marque peut avoir des différents outils et chaque outil peut avoir des different modèles et chaque modèle peut avoirs des multiples numéros de série et finalement on fait la sélection du chantier récepteur et on effectue le transfert de ses informations a travers une bouton
A voir également:
- Userform de Transfert de matrielles
- Transfert de mail - Guide
- Whatsapp transfert discussion - Accueil - WhatsApp
- Transfert de fichier entre 2 pc par wifi - Guide
- Transfert d'appel ooredoo - Forum Samsung
- We transfert - Guide
3 réponses
Private Sub ComboBox4_Change()
Sheet = ComboBox4.Value
Set ws = Worksheets(Sheet)
ws.Select
Dim cell As Range
ComboBox6.Clear
For Each cell In Sheets(Sheet).Range("A2:A100")
If cell.Value <> "" Then
ComboBox6.AddItem cell.Value
End If
Next
End Sub
Private Sub ComboBox5_Change()
End Sub
Private Sub ComboBox6_Change()
End Sub
Private Sub ComboBox7_Change()
End Sub
Private Sub ComboBox8_Change()
End Sub
Private Sub CommandButton4_Click()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub TextBox7_Change()
End Sub
Private Sub TextBox8_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim wksht As Worksheet
For Each wksht In Worksheets
Me.ComboBox4.AddItem wksht.Name
Next
End Sub
Sheet = ComboBox4.Value
Set ws = Worksheets(Sheet)
ws.Select
Dim cell As Range
ComboBox6.Clear
For Each cell In Sheets(Sheet).Range("A2:A100")
If cell.Value <> "" Then
ComboBox6.AddItem cell.Value
End If
Next
End Sub
Private Sub ComboBox5_Change()
End Sub
Private Sub ComboBox6_Change()
End Sub
Private Sub ComboBox7_Change()
End Sub
Private Sub ComboBox8_Change()
End Sub
Private Sub CommandButton4_Click()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub TextBox7_Change()
End Sub
Private Sub TextBox8_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim wksht As Worksheet
For Each wksht In Worksheets
Me.ComboBox4.AddItem wksht.Name
Next
End Sub
Re,
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
ou
'mon partage
https://mon-partage.fr/
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
ou
'mon partage
https://mon-partage.fr/
Voilà une idée qu'elle est bonne !...