Version imprimable
Bonjour a tous, le forum.
La programmation me plait fortement, mais la je bloque :(
Voilà j'ai 15 checkbox sur la feuil1 et je souhaiterai qu'ils viennent s'inscrire sur la feuil3 dans un tableau sur la meme ligne d'un non et prénom déjà enregistré.
Je reste à dispositon pour de plus amples renseignements
Merci d'avance
Cordialement.
Bonsoir a tous
Si quelqu'un peu m'aider ça serai sympa car LA je bloque!!!!
j'ai bien essayé de commencer ce code, ensuite pour moi ?????????
Je cherche a faire quand je click sur une ou plusieurs checkbox quelles s'enregistre sur la feuille4 dans les colonnes D, E, F, ect... tout en correspondant à la ligne du textbox1.
J'espère avoir été assez clair sinon demandé moi...
Cordialement.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32Private Sub CommandButton1_Click() 'bouton créer 'cherche la ville With Feuil2.Range("B:B") Set c = .Find(TextBox2, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then ville = c.Row + 1 End With 'ajoute une ligne et colle les données Feuil2.Range("A" & ville).EntireRow.Insert Feuil2.Range("A" & ville).Value = ComboBox2.ListIndex + 1 Feuil2.Range("B" & ville).Value = TextBox1.Value Feuil2.Range("C" & ville).Value = TextBox3.Value Feuil4.Range("A" & ville).EntireRow.Insert Feuil4.Range("A" & ville).Value = ComboBox2.ListIndex + 1 Feuil4.Range("B" & ville).Value = TextBox1.Value Feuil4.Range("C" & ville).Value = TextBox3.Value 'C'est là que je bloque j'arrive pas a inserrer les checkbox dans feuil4 'Feuil4.Range("D" & ville).Value = CheckBox1.Value 'Feuil4.Range("E" & ville).Value = CheckBox2.Value 'Feuil4.Range("F" & ville).Value = CheckBox3.Value 'Feuil4.Range("G" & ville).Value = CheckBox4.Value Dim Ctrl As OLEObject For Each Ctrl In ActiveSheet.OLEObjects If TypeOf Ctrl.Object Is MSForms.TextBox Then Ctrl.Object.Text = vbNullString Next Sheets("Tableau1").Select End Sub