Lier cellules sur cases à cocher
Résolu/Fermé
Heikro
Messages postés
40
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
5 mars 2019
-
31 mai 2013 à 11:56
Heikro Messages postés 40 Date d'inscription mardi 28 mai 2013 Statut Membre Dernière intervention 5 mars 2019 - 3 juin 2013 à 10:06
Heikro Messages postés 40 Date d'inscription mardi 28 mai 2013 Statut Membre Dernière intervention 5 mars 2019 - 3 juin 2013 à 10:06
A voir également:
- Excel case à cocher cellule liée
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Formule excel - Guide
2 réponses
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
31 mai 2013 à 14:19
31 mai 2013 à 14:19
Bonjour,
valable si les checkboxs sont dans l'ordre des cellules sur feuil1
a voir
valable si les checkboxs sont dans l'ordre des cellules sur feuil1
Sub Macro1() ' ' Macro1 Macro excel2007 ' Dim nom_check As String 'boucle: 'a parametrer nb_check = 1 For x = 1 To nb_check nom_check = "Check Box " & x ActiveSheet.Shapes("Check Box " & x).Select With Selection .LinkedCell = "Feuil2!$B" & x + 1 End With Next x End Sub
Sub Macro1() ' ' Macro1 Macro excel 2010 et plus ' Dim nom_check As String 'boucle: 'a parametrer nb_check = 1 For x = 1 To nb_check nom_check = "Check Box " & x ActiveSheet.Shapes.Range(Array("Check Box " & x)).Select With Selection .LinkedCell = "Feuil2!$B" & x + 1 End With Next x End Sub
a voir
Heikro
Messages postés
40
Date d'inscription
mardi 28 mai 2013
Statut
Membre
Dernière intervention
5 mars 2019
8
3 juin 2013 à 10:06
3 juin 2013 à 10:06
Il y a un message d'erreur à la fin mais ça a marché, du coup c'est bon merci.