Case a cocher multi chiffres
Résolu/Fermé
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
-
Modifié le 24 juin 2018 à 16:32
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 25 juin 2018 à 17:40
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 25 juin 2018 à 17:40
A voir également:
- Case a cocher multi chiffres
- Supprimer case à cocher excel ✓ - Forum Excel
- Combinaison de 3 chiffres de 0 à 9 ✓ - Forum Programmation
- Aller à la ligne dans une case excel - Guide
- Case à cocher open office - Forum LibreOffice / OpenOffice
- Comment cocher une case sur word ✓ - Forum Word
4 réponses
yg_be
Messages postés
23235
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
30 septembre 2024
Ambassadeur
1 538
24 juin 2018 à 19:49
24 juin 2018 à 19:49
bonjour, je pense que cela ne fonctionne que chaque fois que tu changes de cellule.
Mike-31
Messages postés
18337
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 septembre 2024
5 099
24 juin 2018 à 21:19
24 juin 2018 à 21:19
Bonjour,
je ne sais pas si j'ai bien compris, en ajoutant une colonne peut être
colle ce code dans les propriétés de ta feuille (clic droit sur l'onglet de ta feuille/visualiser le code) et colle ce code
teste le entre les cellules A1 et A10 voir
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target(1, 2) = 3 Then Target.Value = Target.Value - 1
If Target.Value = 0 Then Range(Target(1, 1), Target(1, 2)) = ""
If Target.Value <= 3 And Target(1, 2) = "" Then Target.Value = Target.Value + 1
If Target.Value = 3 Then Range(Target(1, 1), Target(1, 2)) = 3
End If
End Sub
je ne sais pas si j'ai bien compris, en ajoutant une colonne peut être
colle ce code dans les propriétés de ta feuille (clic droit sur l'onglet de ta feuille/visualiser le code) et colle ce code
teste le entre les cellules A1 et A10 voir
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target(1, 2) = 3 Then Target.Value = Target.Value - 1
If Target.Value = 0 Then Range(Target(1, 1), Target(1, 2)) = ""
If Target.Value <= 3 And Target(1, 2) = "" Then Target.Value = Target.Value + 1
If Target.Value = 3 Then Range(Target(1, 1), Target(1, 2)) = 3
End If
End Sub
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
1
Modifié le 25 juin 2018 à 08:15
Modifié le 25 juin 2018 à 08:15
Bonjour Mike-31
Super c'est çà qu'il me faut, mais n'y aurait-il pas un moyen de cliquer plusieurs fois sur la même cellule pour changer le nombre, car il faut a chaque fois changer de cellule et revenir dessus et modifier?
Serait-il possible, plutôt sur la ligne 1 au lieu de la colonne A?
Merci pour ce code
Cordialement
Super c'est çà qu'il me faut, mais n'y aurait-il pas un moyen de cliquer plusieurs fois sur la même cellule pour changer le nombre, car il faut a chaque fois changer de cellule et revenir dessus et modifier?
Serait-il possible, plutôt sur la ligne 1 au lieu de la colonne A?
Merci pour ce code
Cordialement
Mike-31
Messages postés
18337
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 septembre 2024
5 099
25 juin 2018 à 14:28
25 juin 2018 à 14:28
Re,
si bien sur avec un double clic par exemple
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target(1, 2) = 3 Then Target.Value = Target.Value - 1
If Target.Value = 0 Then Range(Target(1, 1), Target(1, 2)) = ""
If Target.Value <= 3 And Target(1, 2) = "" Then Target.Value = Target.Value + 1
If Target.Value = 3 Then Range(Target(1, 1), Target(1, 2)) = 3
End If
End Sub
ou avec un clic droit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
si bien sur avec un double clic par exemple
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target(1, 2) = 3 Then Target.Value = Target.Value - 1
If Target.Value = 0 Then Range(Target(1, 1), Target(1, 2)) = ""
If Target.Value <= 3 And Target(1, 2) = "" Then Target.Value = Target.Value + 1
If Target.Value = 3 Then Range(Target(1, 1), Target(1, 2)) = 3
End If
End Sub
ou avec un clic droit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 25 juin 2018 à 11:48
Modifié le 25 juin 2018 à 11:48
Bonjour,
Comme ceci:
ou comme cela:
Comme ceci:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Value > 2 Then Exit Sub
Range(Target.Address) = Range(Target.Address) + 1
Range("B1").Select
End If
End Sub
ou comme cela:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Value > 2 Then
Target.Value = ""
Else
Range(Target.Address) = Range(Target.Address) + 1
End If
End If
Range("B1").Select
End Sub
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
1
25 juin 2018 à 17:40
25 juin 2018 à 17:40
Super+
Merci beaucoup a vous 2 je savais que je pouvais compter su vous
Cordialement
Merci beaucoup a vous 2 je savais que je pouvais compter su vous
Cordialement
