Ouverture d'une fenêtre et stockage des informatio
Fermé
Bech
-
20 juin 2018 à 17:54
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 22 juin 2018 à 10:46
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 22 juin 2018 à 10:46
A voir également:
- Ouverture d'une fenêtre et stockage des informatio
- Stockage google - Guide
- Espace de stockage gmail plein - Guide
- Stockage du téléphone - Guide
- Page d'ouverture google - Guide
- Raccourci agrandir fenetre - Guide
2 réponses
Chris 94
Messages postés
50978
Date d'inscription
mardi 8 janvier 2008
Statut
Modérateur
Dernière intervention
17 février 2023
7 325
20 juin 2018 à 18:01
20 juin 2018 à 18:01
Bonjour,
Indique ce que tu as déjà fait toi-même et quelqu'un pourra peut-être t'aider.
Indique ce que tu as déjà fait toi-même et quelqu'un pourra peut-être t'aider.
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
Modifié le 22 juin 2018 à 10:49
Modifié le 22 juin 2018 à 10:49
Bonjour Bech, Chris, bonjour le forum,
C'est vrai que tu en dis peu... J'imagine que ta UserForm doit comporter un bouton de validation (disons CommandButton1) et que ta TextBox se nomme TextBox1. Alors le code (à adapter) de ce bouton serait :
Le Me fait référence à l'UserForm en cours, il n'est pas obligatoire.
C'est vrai que tu en dis peu... J'imagine que ta UserForm doit comporter un bouton de validation (disons CommandButton1) et que ta TextBox se nomme TextBox1. Alors le code (à adapter) de ce bouton serait :
Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
Set DEST = O.Range("A1") 'définit la cellule de destination DEST (à adapter à ton cas)
DEST.Value = Me.textbox1.Value 'renvoie dans DEST la valeur de la TextBox1
End Sub
Le Me fait référence à l'UserForm en cours, il n'est pas obligatoire.
