Microsoft 365 Décalage cases à cocher

  • Initiateur de la discussion Initiateur de la discussion cecenico
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cecenico

XLDnaute Nouveau
Bonjour tout le monde,
J'avance sur mon fichier et le problème de liens vers les onglets créés fonctionne correctement.
Sauf que j'ai un autre problème maintenant, c'est que lorsque je trie les machines, les cases à cocher ne suive pas malgré que j'ai bien coché l'option pour qu'elles suivent dans las paramètres.

Comme un exemple vaut mieux que 1000 mots, j'ai mit une partie de mon fichier en pièce jointe.

Son fonctionnement est le suivant:
Rentrez le nom d'une machine dans la case "Entrer ici le nom de la machine à ajouter et cliquer sur "ajouter une machine"" puis cliquez sur "Ajouter une machine"
En gros, le nom inscrit est copié et collé dans la cellule A69 (c'est un hasard promis) de la, je récupère son nom pour créer et lier l'onglet créé puis je trie mes machines par ordre alphabétique.
Le soucie est que les cases à cocher ne suivent pas sur le tableau de gauche alors qu'elles le font sur le tableau de droite alors que la même méthode de trie est utilisée.


J'ai pensé supprimer les cases à cocher qui alourdissent mon fichier mais je n'ai pas trouvé d'autre moyen pour afficher 2 infos dans une cellule (périodicité de la maintenance (une lettre qui donne une couleur) et réalisé ou non).

Comme vous allez le voir, je ne suis pas un grand programmeur VB, je pique des bouts de codes que j'adapte. Vous trouverez probablement que je me suis compliqué la vie mais mes maigres connaissances font que je fais ce que je peux
 

Pièces jointes

Dernière édition:
Solution
Bonjour Cecenico,
Tout d'abord chapeau pour cette patience infinie avec autant de cases à cocher.
je ne sais pas pourquoi vous avez ce phénomène, et encore moins comment le résoudre.

Je vous propose une autre approche. Supprimer toutes ces cases à cocher et les remplacer par ce petit module qui quand on clique sur une cellule dans les deux plages utiles, on l'efface si elle contient quelque chose, sinon on met "une sorte de case à cocher" faite avec un "T" en police "Wingdings 2" :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub                               ' Si plusieurs cellules cliquées, on sort
    DL1 = [A65500].End(xlUp).Row: DL2 = [BX65500].End(xlUp).Row     '...
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
122
Réponses
1
Affichages
73
Réponses
18
Affichages
771
Retour