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