Discussion :

[omlov88]

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.

[Singular]

Commence par emplacer tous tes FAUX par False et tous tes VRAI par True dans ton code et ça devrait ressembler un peu plus à du VBA...

[omlov88]

ben merci bien pour ton aide, l'erreur était toute bête

et bonne année et bonne santé pour 2008