vba probleme de condition

[omlove88]

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 quelqu'un a l'inspiration qu'il m'ent fasse part merci d'avance.🙂

 

[Kobaya]

Re : vba probleme de condition

bonjour omlove88,

Tout d'abord, je te propose de prendre une bonne résolution pour 2008 : toujours commencer tes posts par "bonjour". Ca coûte pas grand chose, c'est très agréable à lire, et ça incite plus à répondre. ;-)

Bonne Année 2008 !!!

Quand tu écris par exemple

Range("F4") = FAUX

ça ne fonctionnera que si FAUX est une constante à laquelle tu affectes la valeur False. Sinon, il faut plutôt écrire Range("F4") = True, ou Range("F4") = False. Vrai et Faux ne sont pas des mots réservés de VB, contrairement à True et False.

 

[omlove88]

Re : vba probleme de condition

excuse pour le bonjour

ben merci bien pour ton aide

et bonne année et bonne santé pour 2008

 

[Kobaya]

Re : vba probleme de condition

pas grave ;-)