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
- Formule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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.