Userform de Transfert de matrielles
Fermé
sata27
Messages postés
4
Date d'inscription
dimanche 30 juillet 2017
Statut
Membre
Dernière intervention
30 juillet 2017
-
30 juil. 2017 à 10:08
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 30 juil. 2017 à 18:09
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 30 juil. 2017 à 18:09
A voir également:
- Userform de Transfert de matrielles
- We transfert - Guide
- Web transfert - Télécharger - Téléchargement & Transfert
- Transfert de mail - Guide
- Android file transfert - Télécharger - Bureautique
- Transfert photo android vers pc - Guide
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
30 juil. 2017 à 11:32
30 juil. 2017 à 11:32
Bonjour,
Oui, et vous voulez quoi au juste ?
Oui, et vous voulez quoi au juste ?
sata27
Messages postés
4
Date d'inscription
dimanche 30 juillet 2017
Statut
Membre
Dernière intervention
30 juillet 2017
30 juil. 2017 à 12:26
30 juil. 2017 à 12:26
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
30 juil. 2017 à 18:09
30 juil. 2017 à 18:09
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/
Modifié le 30 juil. 2017 à 11:46
30 juil. 2017 à 11:56
Voilà une idée qu'elle est bonne !...
30 juil. 2017 à 12:24