IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Pouvoir que cocher les checkbox les unes à la suite des autres


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Profil pro
    Inscrit en
    Décembre 2009
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2009
    Messages : 33
    Par défaut Pouvoir que cocher les checkbox les unes à la suite des autres
    Bonjour,
    Je suis en Projet ou je dois réaliser un projet pour une entreprise, j'ai quasiment tous codé excepter cela :
    J'ai dans une datagridview des checkboxs
    Je voudrai que lorsque l'utilisateur en coche une il puissent cocher que celle qui est un haut et celle qui est en bas de celle qui vient de cocher.
    Mon idée était qu'une fois qu'il en a coché une, elles se verrouillent toutes excepter celle a côte de celle qu'il vient de cocher .

    Pour les verrouiller toutes :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    For i = 0 To Me.dgv_1.Rows.Count - 1    'Compte toutes les lignes de la dgv
        If Me.dgv_1.Rows(i).Cells("check").Value = False And Me.bool_compte_check = True Then   'la variable bool_compte_check est false qu'une seule fois lors du démarrage pour que l'utilisateur puissent cocher au moins la premiere case
            Me.checkbox_true = Me.checkbox_true + 1     'Cette variable prend 22 quand toutes les cellules sont false
            If Me.dgv_1.Rows(i).Cells("check").Value = False Then
                Me.dgv_1.Rows(i).Cells("check").ReadOnly = True     'On vérouille toutes les cellules
            End If
        End If
    Next
    Pour déverrouiller les cellules à coté j'avais pensé à :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    If Me.checkbox_true <> 21 Then 'Si il y a une cellules active on peut alors désactiver les deux à coter
        Me.index = Me.dgv_1.CurrentRow.Index
     
        index_derriere = Me.index + 1   'Pour avoir l'index de la cellule d'avant
        Me.dgv_1.Rows(index_derriere).Cells("check").ReadOnly = True
     
        index_devant = Me.index - 1     'Pour avoir l'index de la cellule de devant
        Me.dgv_1.Rows(index_devant).Cells("check").ReadOnly = True
    End If
    Mais cela ne fonctionne pas pouvez vous m'indiquer une autres idée ou m'aider à compléter mon code ?

  2. #2
    Membre Expert Avatar de hunteshiva
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Février 2010
    Messages
    1 069
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Chef de projet en SSII
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2010
    Messages : 1 069
    Par défaut
    il faudrait un événement ...
    comment son crées tes CheckBox dans le dataGridView ?

  3. #3
    Membre actif
    Profil pro
    Inscrit en
    Décembre 2009
    Messages
    33
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2009
    Messages : 33
    Par défaut
    Je suis d'accord pour l'événement mais je ne sais pas lequel prendre que me conseillez vous ?
    Voici comment sont crées mes checkboxs :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim check_matin As New DataGridViewCheckBoxColumn
    Me.dgv_1.Columns.Add(check_matin)
    Me.dgv_1.Rows.Add(row0)

Discussions similaires

  1. Réponses: 0
    Dernier message: 22/06/2014, 01h16
  2. [XL-2007] Copier les valeurs d'une feuille sur des autres automatiquement
    Par Wenth dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 11/06/2013, 01h36
  3. [XL-2003] Enchainer les macros les unes à la suite des autres
    Par Vincent32 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 29/09/2011, 14h55
  4. Réponses: 2
    Dernier message: 23/09/2009, 15h40
  5. Réponses: 1
    Dernier message: 12/04/2007, 23h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo