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 :

Envoyer vers les collones en fonction des OptionButton [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut Envoyer vers les collones en fonction des OptionButton
    Bonsoir,

    J'ai USF avec des OptionButton et une textbox J'aimerais ajouter un produit par mon textbox en fonction de la catégorie sélectionner a l'aide des OptionBoutton dans les colonnes respectives à la suite de la liste existante.

    Je joint mon fichier qui seras plus parlant

    Cordialement

    Max
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour

    Analyse le code ci dessous et revient vers nous si difficultés
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub CommandButton2_Click()
    Dim Sh As Worksheet
    Dim Col As Integer
     
    Set Sh = Worksheets("Feuil1")
     
    If OptionButton1.Value = True Then Col = 2
    If OptionButton2.Value = True Then Col = 3
    If OptionButton3.Value = True Then Col = 4
    If OptionButton4.Value = True Then Col = 5
     
    Sh.Cells(Sh.Cells(Rows.Count, Col).End(xlUp).Row + 1, Col).Value = TextBox2.Text
     
    End Sub

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 343
    Par défaut
    Bonsoir jfontaine,

    Je te remercie beaucoup sa marche Nickel

    Bonne Soirée

    Max

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

Discussions similaires

  1. [AC-2003] positionner les focus en fonction des événements ?
    Par lil404 dans le forum IHM
    Réponses: 10
    Dernier message: 21/04/2009, 16h44
  2. Gérer les accès en fonction des rôles
    Par Mike888 dans le forum VB.NET
    Réponses: 13
    Dernier message: 04/12/2008, 20h32
  3. comment lister les fichiers en fonction des droits ?
    Par Ekimasu dans le forum Administration système
    Réponses: 7
    Dernier message: 19/04/2008, 17h12
  4. Modifier les menus en fonction des choix utilisateur
    Par ekremyilmaz dans le forum AWT/Swing
    Réponses: 15
    Dernier message: 21/01/2008, 00h46
  5. [XSL] Trier les données en fonctions des parametres?
    Par titoff85 dans le forum XSL/XSLT/XPATH
    Réponses: 6
    Dernier message: 11/08/2007, 08h49

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