Case à cocher

[Ida]

Bonjour,

J'ai crée des cases à cocher avec la barre de formulaire mais je rencontre 2 problèmes:

1°- quand j'ajuste la taille de ma cellule la case à cocher ne se déplace pas avec cette cellule (l'option " déplacer sans dimmentonner avec la cellule" est cocher car je ne peux pas cocher l'autre option "déplacer et dimmentonner avec la cellule )

2°- Je voudrais intégrer un genre de MFC qui fasse que quand la cellule B1 est vide il n'y ait rien en A1 et si il y a une donnée en B1 qu'il y ait une case à cocher en A1.

Ci joint un exemple

Merci d'avance à tous ceux qui se pencherons sur mon problème!

 

[phlaurent55]

Re : Case à cocher

Bonjour Ida,

un essai en pièce jointe
il est nécessaire d'activer les macros à l'ouverture du fichier

à+
Philippe

 

[Ida]

Re : Case à cocher

Merci ca m'a l'air d'être tout à fait ce qu'il me fallait!!!!!

Je vais qd même m'y plonger un peu plus précisément pour comprendre

Mais merci beaucoup!!!

 

[Ida]

Re : Case à cocher

Je me disait bien que j'avais parlé un peu vite!!!

J'ai adapter le doc joint à mon doc mais le pb est que quand je double clique les cases ne se coches plus...???

 

[phlaurent55]

Re : Case à cocher

Re,


ce n'est sans doute à cause d'une mauvaise définition de la zone sur laquelle pourra se faire le double-clic
mais sans voir le fichier il me sera difficile d'être plus précis dans ma réponse

à+
Philippe

 

[Ida]

Re : Case à cocher

Et comment définit on la zone ou le double clic est possible???

Je vous mets mon fichier réel en pièce jointe la colonne à cocher est AA

Merci

 

[phlaurent55]

Re : Case à cocher

Re bonjour,

avec ce code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("AA2:AA" & Range("AA65535").End(xlUp).Row)) Is Nothing Then
Target.Value = IIf(Target.Value = "¨", "þ", "¨")
[AA2].Select
End If
End Sub

à+
Philippe

 

[Ida]

Re : Case à cocher

Merci beaucoup beaucoup....