Discussion :

[Pompaero]

Bonjour à tous

Je souhaiterai avoir un peu d'aide pour poursuivre mon projet au mieux mais voilà je bloque pour mes cases à cocher.

Mon soucis est que j'ai commencé ma formule et aimerai savoir s'il est possible de la poursuivre (je suppose que oui) pour enregistrer mes cases à cocher ??

Donc voilà, j'ai des cases à cocher sur la feuil 1 et aimerai les enregistrer sur la feuil 3..

Mon code :

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
33
34
  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).EntireRow.Font.ColorIndex = 3
Feuil2.Range("A" & ville).Value = ComboBox2.ListIndex + 1
Feuil2.Range("B" & ville & ":J" & ville).Interior.ColorIndex = 19
Feuil2.Range("B" & ville).Value = TextBox1.Value
Feuil2.Range("C" & ville).Value = TextBox3.Value

Feuil4.Range("A" & ville).EntireRow.Insert
Feuil4.Range("A" & ville).EntireRow.Font.ColorIndex = 3
Feuil4.Range("A" & ville).Value = ComboBox2.ListIndex + 1
Feuil4.Range("B" & ville & ":R" & ville).Interior.ColorIndex = 19
Feuil4.Range("B" & ville).Value = TextBox1.Value
Feuil4.Range("C" & ville).Value = TextBox3.Value

'(c'est la que je bloque, j'ai essayé cela mais ne marche pas :( )
'Feuil4.Range("D" & ville).Value = CheckBox1.Value
'ect...

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

Merci d'avance pour votre aide

cordialement

[gFZT82]

Bonjour,

c'est la que je bloque, j'ai essayé mais cela ne marche pas

Pourquoi dis-tu que cela ne marche pas ?
Le contrôle CheckBox permet de renvoyer la valeur Vrai lorsque la case est cochée et la valeur Faux lorsque la case est décochée. Avec ton code, tu devrais donc retrouver une de ces 2 valeurs dans la cellule correspondant à Feuil4.Range("D" & ville).

Cordialement.

[Pompaero]

bonsoir gFZT82

D'abord merci d'avoir répondu à mon aide.

Concernant le VRAI et FAUX c'est exact ça marche, mais je voudrais quand la checkbox est coché que ça affiche un 1 et non coché que ça affiche une cellule vide.
Je suppose que c'est possible mais pour moi, là ça me dépasse un peu.

j'espère etre clair dans mes expliquations, sinon je peux te joindre le fichier si tu veux.

A+
Cordialement

[gFZT82]

Tu peux placer le test suivant dans ton code

Code :

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

1
2
3
4
5
If CheckBox1.Value = True Then
    Feuil4.Range("D" & ville).Value = 1
Else
    Feuil4.Range("D" & ville).Value = ""
End If

Cordialement.

[Pompaero]

Bonjour gFZT82

Et encore merçi pour ton aide c'est génial j'ai pu avancer ton mon projet, .

Excuse moi encore, je voudrai pas exagérer de toi mais juste un petit conseil sur une autre formule ??
voilà j'ai un bouton pour modifier et la dessus j'ai tenté la formule suivante mais ça marque vrai ou faux alors que je souhaite 1 ou rien.
Je suppose qu'il faux partir sur
If ................. then......
else ..........
End if

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
33
34
35
36
37
38
 Private Sub CommandButton2_Click() 'modifier
    Dim Lig As Integer
'recherche et supprime l'ancienne ligne
    With Feuil2.Range("B:B")
        Set c = .Find(ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Lig = c.Row
    End With
    Feuil2.Cells(Lig, 1).EntireRow.Delete
 
'cherche la ville ou ajouter la ligne
    With Feuil2.Range("B:B")
        Set c = .Find(TextBox2, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Lig = c.Row + 1
    End With
 
    Feuil2.Cells(Lig, 1).EntireRow.Insert
    Feuil2.Range("B" & Lig & ":J" & Lig).Font.ColorIndex = 3
    Feuil2.Range("B" & Lig & ":J" & Lig).Interior.ColorIndex = 19
'renvoi la valeur des textbox dans le tableau1
    Feuil2.Cells(Lig, 2).Value = Feuil1.ComboBox1.Value
    Feuil2.Cells(Lig, 3).Value = Feuil1.ComboBox1.Value


Feuil4.Cells(Lig, 2).Value = Feuil1.ComboBox1.Value
Feuil4.Cells(Lig, 3).Value = Feuil1.TextBox3.Value

'la formule suivante marque vrai ou faux mais souhaiterai 1 ou rien !!!
Feuil4.Cells(Lig, 4).Value = Feuil1.CheckBox1.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

Merçi
Cordialement

[gFZT82]

Bonjour,

Il me semble qu'il s'agit de la même question à peu de chose près, non ?

Code :

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

1
2
3
4
5
If Feuil1.CheckBox1.Value = True Then
    Feuil4.Cells(Lig, 4).Value = 1
Else
    Feuil4.Cells(Lig, 4).Value = ""
End If

Cordialement.