Discussion :

[manuseverine]

Bonjour,

J'ai toute une colonne de case à cocher et j'aimerais savoir quel code il faut utiliser pour que si je coche une case bien précise je me retrouve sur une cellule bien particulière.

Exemple, si je coche une case à cocher je me retrouve en P5

Vous allez peut-etre trouver ça ridicule, car je commence le VBA mais, j'ai essayé ça

Code :

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

1
2
3
Private Sub CheckBox1_Click()
If Target.CheckBox1 = True Then Range (P4)
End Sub

ça ne marche pas. Pouvez-vous m'aider ?

Et j'aurais une autre question :

quand on redimensionne les lignes, les cases à cocher ne suivent pas et ne se retrouvent plus sur la ligne ou on les a mise. N'y a t-il pas une solution pour qu'une case à cocher appartienne à une cellule en particulier ?

Merci encore

[manuseverine]

J'ai réussis à trouver une solution pour la moitié de mon problème, je vous le donne. Un jour un membre du forum m'avait aidé sur un autre problème, je m'en suis servi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Not Intersect(Target, Range("O2:O10")) Is Nothing Then
        'Chr$(&HFE) -> case cochée
        'Chr$(&HA8) -> case vide
        'Chr$(&HFD) -> case annulée
        If Target.Value = Chr$(&HFE) Then
            Target.Value = Chr$(&HA8)
        Else
            Target.Value = Chr$(&HFE)
        End If
        Cancel = True
    End If
End Sub

avec les wingdingd on arrive donc à faire des cases à cocher qui dépende d'une cellule mais je ne sais pas comment répondre à ma prmière question :
si je coche ma cellule O4 par exemple, je voudrais que le curseur aille en P4

Merci

[mayekeul]

bonjour,

tu peux faire comme ceci :

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
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Not Intersect(Target, Range("O2:O10")) Is Nothing Then
        'Chr$(&HFE) -> case cochée
        'Chr$(&HA8) -> case vide
        'Chr$(&HFD) -> case annulée
        If Target.Value = Chr$(&HFE) Then
            Target.Value = Chr$(&HA8)
            Target.Offset(0, 1).Select
        Else
            Target.Value = Chr$(&HFE)
        End If
        Cancel = True
    End If
End Sub

[manuseverine]

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Not Intersect(Target, Range("O2:O10")) Is Nothing Then
        'Chr$(&HFE) -> case cochée
        'Chr$(&H72) -> case vide
        'Chr$(&H72) -> case annulée
        If Target.Value = Chr$(&HFE) Then
         Target.Value = Chr$(&H72)
            Target.Offset(0, 1).Select
        Else
            Target.Value = Chr$(&HFE)
        End If
        Cancel = True
    End If
End Sub

je te renvoie mon code complet car ça ne marche pas, j'ai juste remplacé A8 par H72 pour que les cases décoché est le même aspect que les cases non coché, ce qui change un peu. Est-ce que ça agit sur ton code ?

[mayekeul]

pas vraiment

mais j'avais inversé l'ordre surtout
il suffit de lui dire de passer la selection une case à gauche de la case à cocher

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Not Intersect(Target, Range("O2:O10")) Is Nothing Then
        'Chr$(&HFE) -> case cochée
        'Chr$(&H72) -> case vide
        'Chr$(&H72) -> case annulée
        If Target.Value = Chr$(&HFE) Then
         Target.Value = Chr$(&H72)
        Else
            Target.Value = Chr$(&HFE)
            Target.Offset(0, 1).Select
        End If
        Cancel = True
    End If
End Sub

[manuseverine]

merci beaucoup, ça marche.

Par contre j'aurais deux questions : J'ai mis mon code de O2 à O10 pour faire le test mais comment fait on pour dire de O2 à O......... c'est à dire à l'infini pour que je puisse continuer à saisir. Est-ce que tu me suis ?

Ensuite, comment on aurait fait si la colonne de destination n'avait pas été juste à côté, à droite mais plus loin, on peut mettre un nombre de case à droite ou bien un n° de colonne ? En fait j'essaie de comprendre ta ligne de code : c'est quoi (0,1)