Tuto:Créer automatiquement case à cocher liée cellule en-dessous Fermé

Question

Bonjour,

Je me suis penché sur le problème suivant : comment créer, sous Excel, des cases à cocher liées automatiquement à la cellule sur la laquelle on a placé la dite case à cocher. 

En effet, il n'est pas possible sans VBA (langage de programmation sur Excel), de créer plusieurs cases à cocher en même temps. Vous pouvez faire des copié-collés mais si vous voulez lier votre case à une cellule, vois devrez procéder manuellement : il vous faudra pour chacune de vos copies sélectionner la cellule à lui lier.

Je me permets en conséquence d'étayer mes conclusions :

Afin de réaliser tout cela j'ai créer un script VBA :

Sub CreateACheckboxLinkedToACellJustAboveIt()

Dim range As range
Dim cell As range

Set range = Selection

For Each cell In range

If cell.MergeArea.Cells.Resize(1, 1).Address = cell.Address Then
    ActiveSheet.CheckBoxes.Add(cell.MergeArea.Cells.Left, cell.MergeArea.Cells.Top, cell.MergeArea.Cells.Width, cell.MergeArea.Cells.Height).Select
    Selection.Characters.Text = ""
    cell.MergeArea.Cells.NumberFormat = ";;;" 'Keep it only if you want a cell which looks like an empty cell but with a value which is invisible but usable
    With Selection
        .Value = xlOff
        .LinkedCell = cell.MergeArea.Cells.Address
        .Display3DShading = False
    End With
End If

Next cell

End Sub


Il vous suffit de copier-coller ce dernier dans un fichier texte dont vous allez modifier l'extension. Par exemple si vous avez appelé votre fichier "monfichier.txt" renommez le "monfichier.bas". Il ne s'agit pas juste du nom du fichier mais de son type c'est pourquoi il faut modifier l'extension et ne pas juste ajouter ".bas" à la fin du nom.

Enfin sur Excel, allez dans Options puis dans Personnaliser le ruban puis sur la liste déroulante de droite nommée également Personnaliser le ruban, ds Onglets Principaux, cochez la case Développeur. Vous avez maintenant accès à un nouvel onglet. Allez donc dans l'onglet Développeur, puis à gauche cliquez sur Visual Basic. Une nouvelle fenêtre s'ouvre alors. Poursuivez en allant, en haut à gauche, dans Fichier puis Importer un fichier... ou plus simplement en faisant Ctrl+M. Ouvrez alors votre fichier ("monfichier.bas" pas exemple) via le menu qui vient de s'ouvrir.

Quittez la fenêtre, vous revenez ainsi à votre document Excel. Maintenant vous n'avez plus qu'à sélectionner les cellules où vous voulez avoir des cases à cocher et aller sur Macros (dans l'onglet Développeur) puis à exécuter CreateACheckboxLinkedToACellJustAboveIt. Vous allez voir apparaître des cases à cocher sur chaque case sélectionnée. De plus, ce script fonctionne aussi sur les cases fusionnées.

J'ai également créer un autre script qui permet de créer des cases à cocher non liées à des cellules mais étant là aussi créer automatiquement au-dessus des cellules sélectionner. Le voici :

Sub CreateACheckboxAboveACell()

Dim range As range
Dim cell As range

Set range = Selection

For Each cell In range

If cell.MergeArea.Cells.Resize(1, 1).Address = cell.Address Then
    ActiveSheet.CheckBoxes.Add(cell.MergeArea.Cells.Left, cell.MergeArea.Cells.Top, cell.MergeArea.Cells.Width, cell.MergeArea.Cells.Height).Select
    Selection.Characters.Text = ""
    With Selection
        .Value = xlOff
        .Display3DShading = False
    End With
End If

Next cell

End Sub

Pour l'exécuter, procédez de la même façon mais évidemment en cliquant sur CreateACheckboxAboveACell au lieu de CreateACheckboxLinkedToACellJustAboveIt.

Ps : vous n'êtes pas obligé de créer un fichier vous pouvez aussi copier-coller le script depuis Visual Basic sur un nouveau Module (à créer donc). Et j'ai tout écrit en anglais pour plus de cohérence et d'ouverture linguistique.

Le Pingou · Answer

Bonjour, 
Autre possibilité avec une fausse case à cocher, voir exemple : https://www.cjoint.com/?3IBxjJKzyAo

pijaku · Answer

Bonjour,

@Vendreur Jack : J'interviens ici suite à ton interpellation via MP. 

Comme je te l'ai dit en MP, je peux, (tout comme Le Pingou le peux), faire de cette discussion un tutoriel.
Cependant, il faut étudier la problématique sous tous les angles.

1- Pour ton tuto, il serait de bon ton d'étudier la proposition de Le Pingou.
Comment la développer pour en arriver aux mêmes fins que toi, c'est à dire comment se servir de la valeur de la cellule pour faire des calculs? Ainsi le tuto proposerait deux pistes aux internautes.

2- As tu envisagé la piste Module de classe? En voilà une troisième.

3- Il convient également de préciser que cette solution VBA n'est valable que dans les cas de nombreuses cases à cocher. texte du tutoriel à revoir.

4- Lorsque l'on a une réponse ici ou ailleurs, les commentaires du style : Pour conclure, c'est plus du bricolage qu'une vraie solution. Mais ça peut être pratique même si c'est plutôt limité.  ne poussent pas vraiment à obtenir une continuité dans la discussion. Ne pas oublier qu'à la lecture nous ne savons pas sur quel ton c'est dit, d'autant plus que l'on ne se connait pas...

@ Le Pingou : 
Salut,
Comment va?
Acceptes tu de poursuivre ce sujet?

eriiic · Answer

Bonjour à tous,

Pour participer un peu... :-)

Pour ce qui est des 'moins' de la proposition à le pingou :
Par exemple tu ne peux pas te servir de la valeur de la cellule pour faire des calculs ou alors tu te les compliques. 
Rien n'empêches de mettre 0/1 dans les cellules, et si on préfère par esthétisme voir le caractère case à cocher le faire par format personnalisé.
Par contre dans la solution 'case à cocher', si elles ne sont pas liées à des cellules comme actuellement je ne vois pas trop quels calculs on pourrait faire.

En effet tu es chaque fois obligé d'y associer du code VBA, ce qui n'est pas le cas avec mon script
On peut aussi nommer la plage concernée et la macro travaille dessus. En cas d'évol seule la plage du nom est à modifier/compléter.

De plus, avec ces fausses cases à cocher, il faut chaque fois adapter le script VBA pour avoir la bonne plage de cellule. 
Pas bien vu la différence, même réponse qu'au dessus.

Rien d'insurmontable pour l'instant.

Pour la solution 'cases à cocher' je dirai que je me méfie des feuilles avec trop d'objets dessus. Excel ne gère pas toujours très bien et souvent on se retrouve avec un affichage tout pourri.
Donc ça aide si on est amené à en créer régulièrement. Mais au-delà de qq petites dizaines, perso je me méfierai et choisirai une autre solution pour ne pas risquer d'instabilités. 

Donc comme toujours le choix dépend des conditions.
Et si tu as un fichier qui n'est pas figé et qui s'enrichi de lignes au fil du temps, il va falloir songer au bricolage  ;-)

Petite remarque: il me semble que le If ne sert à rien.
eric

Vendreur Jack · Answer

Désolé, j'avais pas vu vos messages : j'étais en train d'écrire ma réponse à pijaku ^^

Je regarde tout ça maintenant


EDIT :

Et oui, j'ai mis des smileys partout ^^ Mais là au moins, vous savez sur quel ton je le dis x)

pijaku · Answer

Bonjour,

Je regarde ça ce matin et reviens, tout à l'heure, avec un classeur exemple...

pijaku · Answer

Voici donc un classeur exemple ou j'ai exploité vos deux possibilités...

https://www.cjoint.com/c/DJbls3E9Zs6

Pour la méthode de Le Pingou, me reste à voir les "propriétés"...

pijaku · Answer

Classeur modifié suite à la remarque (en MP) d'Eriiic :
Et si on veut 0 ou 1 pour simplifier les formules après :
With Target    'cellule "liée"
  .Value = Abs(.Range("A1").Value - 1)
  .NumberFormat = """þ"";General;""o"";@"
  Application.EnableEvents = False
  .Range("A1").Offset(, 1).Select
  Application.EnableEvents = True
End With
J'ai mis cellule liée =target et .EnableEvents = False aussi... 

https://www.cjoint.com/c/DJbmWSUbu4k

Donc : 1 macro par méthode
 
&#127932; Cordialement,
Franck &#127926;

pijaku · Answer

Bonjour,

Pas de réponse de Vendreur Jack...
Abandon du suivi de ce sujet?

Vendreur Jack · Answer

Bonjour pijaku,

J'ai été pas mal occupé et ça m'est sorti de la tête :/  Dsl

Du coup là j'ai pu jeter un coup d'oeil à ton classeur : les deux solutions sont très bien mises en scène. C'est beaucoup plus pratique même s'il faut toujours définir une plage : est-il possible de l'appliquer à tout le document, la police spéciale servant "d'activateur" ?

Sinon les deux solutions m'ont l'air désormais complètes : on pourrait en faire un tuto officiel ? :D

Et encore merci pour votre sollicitude.

Vendreur Jack

Vendreur Jack · Answer

Salut,

J'ai pu voir le tuto : il est vraiment parfait !  :D

Juste une petite suggestion (pour la méthode de Le Pingou) :

On pourrait peut-être mettre dans "Note" ou en commentaire, directement dans le code, qu'il est possible de modifier la position (à gauche, au milieu, en bas ...) de la case à cocher dans la cellule avec cette méthode, et seulement avec celle-ci.

Sinon j'ai pu tester le classeur : quand tu fais une somme d'une plage où il y a des cellules avec des "fausses" cases à cocher, le résultat sera toujours "þ" tant qu'il y a une case cochée et au contraire si ce n'est pas le cas la valeur sera "o".

Il faudrait pouvoir compter le nombre de case à cocher active directement même si au pire il suffit de faire : =NB.SI(G3:G14;1) pour la plage G3:G14 par exemple.

Et MERCI ça fait vraiment plaisir :)

Le Pingou · Answer

Bonjour pijaku,
Félicitation pour la publication : Création automatique de cases à cocher liées aux cellules en-dessous.
Excellente fin de semaine.
Amicales salutations.