Copier / Coller de cases à cocher

alb05 · 13 Avril 2010

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 · 13 Avril 2010

Re : Copier / Coller de cases à cocher

Bonjour alb05.

Pourquoi pas des fausses checkbox ?
Vois le fichier joint.

Au plaisir.

alb05 · 13 Avril 2010

Re : Copier / Coller de cases à cocher

c'est quoi ces fausses check box ?

13GIBE59 · 13 Avril 2010

Re : Copier / Coller de cases à cocher

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

job75 · 13 Avril 2010

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 :

Code:

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 · 13 Avril 2010

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 · 13 Avril 2010

Re : Copier / Coller de cases à cocher

Re,

alb05 à dit:
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 · 8 Octobre 2017

job75 à dit:
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 :

Code:

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 · 8 Octobre 2017

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 · 9 Octobre 2017

job75 à dit:
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 · 9 Octobre 2017

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

job75 · 9 Octobre 2017

Bonjour Mohamed,

EL ABED Mohamed à dit:
peut-on avoir un macro pour décocher toutes les cases ?

A placer où vous voulez :

Code:

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 · 10 Octobre 2017

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 :

Code:

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

A+

Copier / Coller de cases à cocher

alb05

XLDnaute Occasionnel

Pièces jointes

13GIBE59

XLDnaute Accro

Pièces jointes

alb05

XLDnaute Occasionnel

13GIBE59

XLDnaute Accro

job75

XLDnaute Barbatruc

alb05

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

EL ABED Mohamed

XLDnaute Nouveau

job75

XLDnaute Barbatruc

EL ABED Mohamed

XLDnaute Nouveau

EL ABED Mohamed

XLDnaute Nouveau

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires