Microsoft 365 Décalage cases à cocher

sylvanu à dit:

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     ' Dernières lignes de Matériel (A et BX)
    If Not Intersect(Target, Range("B9:M" & DL1)) Is Nothing Or _
       Not Intersect(Target, Range("CA4:CA" & DL2)) Is Nothing Then ' Si clic dans une des deux plages
        If Target = "T" Then
            Target = ""                                             ' Si cellule non vide, on l'efface
        Else
            With Target                                             ' Sinon on met le petit symbole.
                .Value = "T"
                .HorizontalAlignment = xlCenter                     ' Centrage horizontal
                .VerticalAlignment = xlBottom                       ' et vertical
                .Font.Name = "Wingdings 2"                          ' Bonne police
                .Font.Size = 12                                     ' Bonne taille
                .Font.Bold = True                                   ' En gras
                .Font.Color = vbBlue                                ' Couleur bleu
            End With
        End If
        Cells(Target.Row, "A").Select
    End If
Fin:
End Sub

J'ai mis en PJ un fichier exemple. Je n'ai pas utilisé votre PJ car il aurait fallu que je supprime toutes les cases à cocher.
Mais vous pouvez mettre cette macro in extenso dans votre feuille, sans la modifier car elle ne prend en compte que la feuille où la macro est instanciée.

Cliquez pour agrandir...

Deadpool_CC à dit:

Bonjour,
en effet ton fichier est lourd ( j'ai un sacré latence à l'affichage des cases à cochér, sans parler de tes macro qui parfois mette pas mal de temps pour des opération au final assez simple.
Et j'avoue que la gestion d'un déplacement de cases à cocher sera plus compliquer (codé la référence de chaque case et associer ce code à chaque machine/colonne et ensuite repositionner chaque case à cocher dans la bonne cellule ... un calvaire et j'ose pas imaginer le temps de traitement.

Une piste :
Au lieu de mettre juste la lettre de la périodicité, met un codage de 2 caractères ex: A:0 ou T:1 ou M:0
1ere lettre périodicité + séparateur ":" + "0" ou "1" si non fait / fait.

Tu aura juste à revoir un peu ton code VBA : une fonction pour lire la périodicité que tu appellera en + dans ton code et une pour lire le Fait/Non fait. Et le fait /non fait peut être associé un motif de remplissage pour le coté visuel.

sinon mettre 2 colonnes par mois pour séparés périodicité et Fait/nonFait ... mais cela va décaler toutes tes références celulles dans ton code VBA (un peu plus long à corriger donc)

Cliquez pour agrandir...