Discussion :

[Pompaero]

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.

[Pompaero]

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...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
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
32
Private 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

Cordialement.