Copier / Coller de cases à cocher

[alb05]

Bonjour
comment incrémenter la référence de la cellule liée d'une case à cocher qu'on voudrait copier/coller sur plusieurs lignes ?
Détail :
1/ Je crée une case à cocher (CaC) en A1.
La cellule liée à cette Cac est $B1
2/ Je réalise un copier/coller des A1:B1 jusqu'en A9:B9
3/ Et je constaté que pour les 9 Cac, la cellule liée reste $B1
Y a t'il une astuce pour permettre cette incrément et éviter d'avoir à modifier manuellement chaque Cac ?
merci

 

[13GIBE59]

Re : Copier / Coller de cases à cocher

Bonjour alb05. 🙂

Pourquoi pas des fausses checkbox ?
Vois le fichier joint.

Au plaisir.

 

[alb05]

Re : Copier / Coller de cases à cocher

c'est quoi ces fausses check box ?

 

[13GIBE59]

Re : Copier / Coller de cases à cocher

Dans la feuille éponyme, tu cliques dans la colonne A. Les valeurs deviennent "cochées" ou non.

 

[job75]

Re : Copier / Coller de cases à cocher

Bonjour alb05, salut Jean-Bernard,

Pour "tirer" la Case à cocher (créée par Formulaires) vers le bas, cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Shape
On Error Resume Next
For Each s In Me.Shapes
s.ControlFormat.LinkedCell = s.TopLeftCell.Offset(, 1).Address
Next
End Sub

Elle est à placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code).

A+

 

[alb05]

Re : Copier / Coller de cases à cocher

Merci Job75, cette macro donne le résultat attendu.
J'en déduit donc qu'il n'existe pas de technique de copier/coller pour arriver au même résultat.

 

[job75]

Re : Copier / Coller de cases à cocher

Re,

J'en déduit donc qu'il n'existe pas de technique de copier/coller pour arriver au même résultat.

Bonne déduction 🙂

A+

 

[EL ABED Mohamed]

Re : Copier / Coller de cases à cocher

Bonjour alb05, salut Jean-Bernard,

Pour "tirer" la Case à cocher (créée par Formulaires) vers le bas, cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Shape
On Error Resume Next
For Each s In Me.Shapes
s.ControlFormat.LinkedCell = s.TopLeftCell.Offset(, 1).Address
Next
End Sub

Elle est à placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code).

A+

Bonjour :

j'ai essayé ce code pour incrémenter vers la droite et le bas une case à cocher lié dans A1 et lié aussi à A1
mais j'arrive pas au résultat attendu.

 

[job75]

Bonjour EL ABED Mohamed,

Au post #1 la cellule liée de la case à cocher en A1 est B1.

Si l'on veut que la cellule liée soit A1 supprimer .Offset(, 1) dans la macro.

A+

 

[EL ABED Mohamed]

Bonjour EL ABED Mohamed,

Au post #1 la cellule liée de la case à cocher en A1 est B1.

Si l'on veut que la cellule liée soit A1 supprimer .Offset(, 1) dans la macro.

A+

ça marche comme attendu.

merci beaucoup 🙂

 

[EL ABED Mohamed]

peut-on avoir un macro pour décocher toutes les cases ?

 

[job75]

Bonjour Mohamed,

peut-on avoir un macro pour décocher toutes les cases ?

A placer où vous voulez :

Sub RAZ()
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
  s.ControlFormat.Value = 0 '0 ou 1 ou 2
Next
End Sub

A+

 

[job75]

Re,

Cela dit dès le moment où les cases à cocher sont dotées de leurs cellules liées il suffit d'effacer leur plage.

Par exemple avec les cellules liées en A1:A10 :

Sub RAZ()
[A1:A10] = ""
End Sub

A+