Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub supprimerL_QuandClic()
    Dim n As Integer
    'Dim compte As Integer
        n = 4
        If Range("F4") = FAUX And Range("F5") = FAUX And Range("F6") = FAUX And Range("F7") = FAUX And Range("F8") = FAUX And Range("F9") = FAUX And Range("F10") = FAUX And Range("F11") = FAUX And Range("F12") = FAUX Then
            MsgBox "Sélectionner au moins un élément"
            Else
            Do
                'MsgBox (Cells(4, 6))
                If Cells(n, 6) = VRAI Then
                    For compteur = 2 To 5
                        Cells(n, compteur) = ""
                    Next compteur
                End If
                n = n + 1
            Loop Until n = 12
        End If
 
End Sub
actuellement sur excel, je rentre des utilisateur et j'ai crée des checkbox avec des cellule lié pour les supprimé (en cochant ceux que l'on supprimé), en cliquant sur supprimé cela doit mettre a vide les cellule sélexctionné mais Cells(n,6) cela me met automatiquement vrai je ne voit pa pourquoi.

Si ce n'est pas très clair demandé des présicions!!!

Si quelqu'un a l'inspiration qu'il m'ent fasse part merci d'avance.