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

Macros et VBA Excel Discussion :

liaison checkbox et cellule [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    442
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 442
    Par défaut liaison checkbox et cellule
    Bonjour,

    j'ai un usf pour mise à jour d'un tableau
    plusieurs chekbox qui si elles sont cochées vont mettre un "X" dans les cellules.
    Cela fonctionne sans pb

    Je ne trouve pas la méthode pour faire l'inverse : si une colonne contient "X" comment faire pour que la checkbox soit à true dans l'usf ?
    je patauge
    Cordialement

  2. #2
    Membre éclairé
    Homme Profil pro
    Formateur & Dévrloppeur en Bureautique
    Inscrit en
    Février 2007
    Messages
    47
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Formateur & Dévrloppeur en Bureautique

    Informations forums :
    Inscription : Février 2007
    Messages : 47
    Par défaut
    Bonjour,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If Range("A3").Value= "X" Then
    Userform1.CheckBox1.Value=True
    Else
    Userform1.CheckBox1.Value=False
    end if
    bon courage

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    442
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 442
    Par défaut
    mes "X" dans colonnes 9 à 16 de la feuille excel
    mes checkbox varient de 1 à 8 (chk1 chk2 ....) dans l'usf

    c'est là que pour moi cela se corse

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim i As Byte
    For i = 1 To 8
        Me.Controls("Chk" & i).Value = Cells(2, 8 + i) = "X"  'reprends les cellules de la ligne 2
    Next i

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    442
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 442
    Par défaut
    trop cool
    trop rapide
    excellent
    @+ et encore merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Création automatique de Checkbox si cellule non vide
    Par titou87 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/12/2012, 19h08
  2. [XL-2007] liaison CheckBox et OptionButton
    Par pol1234 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 11/06/2010, 16h31
  3. [OpenOffice][Tableur] Checkbox et cellule
    Par mamantins dans le forum OpenOffice & LibreOffice
    Réponses: 2
    Dernier message: 24/04/2009, 10h38
  4. liaison d'une cellule Excel avec un Textbox
    Par enretard dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 22/07/2008, 15h31
  5. checkbox et cellules excel
    Par smartclip dans le forum Windows Forms
    Réponses: 1
    Dernier message: 03/04/2008, 18h45

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