Problème de case à cocher

[emmadrienlaes]

Bonjour,

Je souhaite faire un copier/coller de deux colonnes ... la première contenant des cases à cocher et la seconde contenant le résultat en fonction de la coche (vrai ou faux)

Quand je copie/colle sur d'autres colonne, les nouvelles cases à cocher mettent à jours les deux premières colonnes copier au départ.

Comment les desolidariser ? Comment créer une case à cocher activant la cellule à sa droite automatiquement sans avoir à rentrer dans la configuration case par case ?

Merci pour votre aide !

Christophe

 

[emmadrienlaes]

Re : Problème de case à cocher

Je ne suis peut être pas clair ???

N'hésitez pas à me solliciter ?

Merci d'avance ...

 

[tototiti2008]

Re : Problème de case à cocher

Bonjour emmadrienlaes,

si, si, c'est trés clair... mais je ne connais aucune option des cases à cocher pour faire ce que tu veux.

à la limite, ce qui est envisageable :
tu copie tes cases à cocher, tu les colles, tu les sélectionne toutes (celles collées), et tu lance une macro.

cette solution pourrait te convenir ?

 

[emmadrienlaes]

Re : Problème de case à cocher

Quel type de macro ?

 

[tototiti2008]

Re : Problème de case à cocher

Re,

une macro qui liera chaque case à cocher à la cellule se trouvant à sa droite... mais il faut encore que je la fasse 😉

 

[tototiti2008]

Re : Problème de case à cocher

Re,

un truc comme ça par exemple :

Sub CelluleDeDroite()
Dim CC As CheckBox
    For Each CC In Selection
        If TypeName(CC) = "CheckBox" Then
            CC.LinkedCell = CC.TopLeftCell.Offset(1, 1).Address
        End If
    Next CC
End Sub

en fait, il repère dans quelle cellule se trouve le coin supérieur gauche de ta case à cocher (dans ton exemple, c'est la cellule du dessus parce que la case à cocher dépasse de la hauteur de la ligne)
Puis sur les cases sélectionnées, il les lie à la cellule une ligne en dessous et une colonne à droite

 

[emmadrienlaes]

Re : Problème de case à cocher

Merci beaucoup !!

Excellente fin de journée

 

[emmadrienlaes]

Re : Problème de case à cocher

Tototiti2008,

Comment faire pour selectionner plusieurs case (certaines cochées, certaines non cochées) et remettre toutes les cases en non cochées ?

J'ai essayé d'adapter ta macro ... mais je suis trop nul !

Merci pour ton aide

 

[tototiti2008]

Re : Problème de case à cocher

Re,

un truc comme ça :

Sub DecocheTout()
Dim CC As Object
    For Each CC In Selection
        If TypeName(CC) = "CheckBox" Then
            CC.Value = False
        End If
    Next CC
End Sub

Dans l'autre code tu pourra aussi remplacer

Dim CC As CheckBox

par

Dim CC As Object

 

[emmadrienlaes]

Re : Problème de case à cocher

Merci !

Formidable

Bonne journée