Help userforms en folie

[nicole]

Salut à tous et à toutes,

j'ai un dossier de 3 feuilles sur excel.

- sur la 1ère un bouton qui donne accès à des userform qui orientent la recherche
- sur la 2ème les infos que l'on souhaite avoir
- sur la 3ème une feuille dont on extrait quelques infos

mes pbs?

*comment faire disparaitre chaque userform après son utilisation? ou écrire ce code?

* comment introduire dans le textbox1 de l'USF3 un texte qui se retrouvera dans la feuile 2 en g10? ( j'ai essayé un code mais sans succès)

*comment par exemple en cliquant sur le bouton adresse de la feuille 2, avoir le numéro inscrit en g10 dans les infos relatives à l'adresse?

merci d'avance
n'ai pas pu envoyer de fichier car fait 100 K

 

[GClaire]

Nicole, le forum

1) Pour faire disparaitre un UserForm

Un bouton par exemple : Quitter

Sub cmdQuitter()
Unload Me
End sub

2) Récuperer une valeur d'une celulle d'une feuille dans un textbox :

Private Sub UserForm_Initialize()

TextBox1= Worksheets("Feuil2").Range("G10")

End Sub

et 3) Je n'ai pas tout bien compris,lol

Salut et bon Week-End, G'Claire

 

[nicole]

merci claire pour ta réponse

pour le 1) je vais l'essayer de suite. Par contre en ce qui concerne le 2) je l'ai fais mais ça ne semble pas marcher chez moi.je ne veux pas récupérer la valeur de G10 mais envoyer la valeur de textbox1 sur G10

je vais envoyer une feuille word donnant les codes utilisés.

Merci encore
Vous souhaitez Obtenir des infos ? chexbox1Renseigner la base ? chexbox2Ok Annuler
Userform2












Code :

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
CheckBox2.Enabled = False

End If

End Sub



Private Sub CheckBox2_Click()
If CheckBox2.Value Then
CheckBox1.Enabled = False
'si l'on sélectionne la première alternative ce n'est pas possible de sélectionner la deuxième
End If
End Sub

Private Sub CommandButton1_Click()
If CheckBox1.Value Then
UserForm3.Show

End If
If CheckBox2.Value Then
UserForm4.Show

End If
Unload UserForm2
End Sub


Private Sub CommandButton2_Click()
CheckBox1.Enabled = True
CheckBox2.Enabled = True
'le bouton annuler permet que l'on puisse sélectionner à nouveau l'une ou l'autre des alternatives

End Sub


Private Sub UserForm_Click()

If UserForm3.Show Then Unload UserForm2
If UserForm4.Show Then Unload UserForm2


End Sub

Private Sub UserForm_Initialize()
Worksheets("feuil1").Activate

End Sub
Si l’on fait le choix de chercher des informations

Userform3

Vous rechercher parUn numéro ? textbox1Un nom ? chexbox1Ok Annuler










Code:
Private Sub CommandButton1_Click()
If CheckBox1.Value Then
UserForm4.Show
Unload UserForm3
End If
If TextBox1.Value Then
Worksheets("feuil2").Activate
Unload UserForm3
End If
End Sub

Private Sub CommandButton2_Click()
CheckBox1.Enabled = True
TextBox1.Enabled = True

End Sub

Private Sub TextBox1_Change()

UserForm3.TextBox1.Value = Sheets("Feuil2").Range("G10").Value

Si l’on fait la recherché par le nom

Zone de liste Ok Annuler
Userform4












Code : Private Sub CommandButton1_Click()
Dim element_select As Boolean
Dim nb_elements, i As Integer
element_select = False
nb_element = UserForm4.ListBox1.ListCount

'vérifie si l'élément est sélectionné
'le premeier élément est indexé à zéro, raison pour laquelle la boucle for démarre à zéro
For i = 0 To nb_element - 1
If UserForm4.ListBox1.Selected(i) = True Then
element_select = True
Exit For
End If
Next

'si aucun élément n'a été sélectionné pas la peine d'aller plus loin
If element_select = False Then
MsgBox "vous n'avez rien sélectionné"
Exit Sub
End If

If UserForm4.ListBox1.Selected(i) = True Then
Worksheets("feuil2").Activate
Range("G10").Select


'écriture des valeurs sélectionnées dans la feuille excel

For i = 0 To nb_element - 1
'affecte à la cellule active la valeur sélectionnée de la colonne 1 de la liste box
'l'index commencant à zéro, on utilise la valeur 0
ActiveCell.Value = ListBox1.List(i, 0,)
Next
End If
Unload UserForm4
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Click()

End Sub


Modules :

Sub OuvertureProgramme_QuandClic()

UserForm2.Show


End Sub



Sub QuitterProgramme_QuandClic()
Sub Quitterficheclient_QuandClic()
Worksheets("feuil2").Range("G10").ClearContents

Sheets("Feuil").Select
Workbooks("classeurnouvelleficheclient.xls").Close
ActiveWorkbook.Save

End Sub

End Sub

 

[Robert]

Salut Nicole, GClaire, le forum,

C'est vraiment dommage que tu n'aies pas pu joindre ton fichier car j'ai galéré à comprendre ce que tu voulais exactement.
En pièce jointe un exemple qui malheureusement s'arrête à l'UserForm4 car je n'ai aucune idée de la source de ta ListBox.

Pour éviter les modules j'ai créé un bouton en Feuil1 qui lance l'UserForm2.

Désolé mais sans plus de données c'est tout ce que j'ai pu faire.

À plus,

Robert