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 :

Bouton modifier sur la 2ème ligne de mon tableau


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club Avatar de blazou
    Homme Profil pro
    employé secteur privé
    Inscrit en
    Novembre 2016
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : employé secteur privé

    Informations forums :
    Inscription : Novembre 2016
    Messages : 5
    Par défaut Bouton modifier sur la 2ème ligne de mon tableau
    Bonjour à tous je suis nouveau sur ce forum et nouveau dans le langage Macros et VBA Excel.

    Ma question: j'ai créer un bouton modifier pour modifier mes cellules mais mon problème c'est que la modification commence par la 1er ligne et je voudrais commencer par la 2ème ligne ?

    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
    Private Sub Modifier_Click()
    Dim no_ligne As Integer
    Sheets("Données").Select
    no_ligne = ComboBox1.ListIndex + 2
    If ComboBox1.Value = "" Then
    MsgBox ("Veuillez remplir le champs de la recherche!")
    Else
        Cells(no_ligne, 1) = TextBox1.Value
        Cells(no_ligne, 2) = TextBox2.Value
        Cells(no_ligne, 3) = TextBox3.Value
        Cells(no_ligne, 4) = TextBox4.Value
        Cells(no_ligne, 5) = TextBox5.Value
        Cells(no_ligne, 6) = TextBox6.Value
        Cells(no_ligne, 7) = TextBox7.Value
        End If
     
    End Sub
    Images attachées Images attachées   

  2. #2
    Expert confirmé
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Billets dans le blog
    7
    Par défaut Combobox
    Bonjour et bienvenu,
    Bonjour le Forum.

    Peux-tu inclure cette ligne de code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    no_ligne = ComboBox1.ListIndex + 2
    Debug.Print "N° de la ligne choisie : " &  no_ligne
    et retourner le résultat figurant dans la fenêtre exécution de l'éditeur VBE
    Pour l'afficher : Ctrl + G

    A plus

  3. #3
    Futur Membre du Club Avatar de blazou
    Homme Profil pro
    employé secteur privé
    Inscrit en
    Novembre 2016
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : employé secteur privé

    Informations forums :
    Inscription : Novembre 2016
    Messages : 5
    Par défaut
    Bojour et merci

    comme ça:

    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
    Private Sub Modifier_Click()
    Dim no_ligne As Integer
    Sheets("Données").Select
    no_ligne = ComboBox1.ListIndex + 2
    Debug.Print "N° de la ligne choisie : " & no_ligne
    If ComboBox1.Value = "" Then
    MsgBox ("Veuillez remplir le champs de la recherche!")
    Else
        Cells(no_ligne, 1) = TextBox1.Value
        Cells(no_ligne, 2) = TextBox2.Value
        Cells(no_ligne, 3) = TextBox3.Value
        Cells(no_ligne, 4) = TextBox4.Value
        Cells(no_ligne, 5) = TextBox5.Value
        Cells(no_ligne, 6) = TextBox6.Value
        Cells(no_ligne, 7) = TextBox7.Value
        End If
     
    End Sub

  4. #4
    Expert confirmé
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Billets dans le blog
    7
    Par défaut
    Oui, et alors ?

  5. #5
    Futur Membre du Club Avatar de blazou
    Homme Profil pro
    employé secteur privé
    Inscrit en
    Novembre 2016
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : employé secteur privé

    Informations forums :
    Inscription : Novembre 2016
    Messages : 5
    Par défaut
    ça marche mais un problème avec la date
    et je voudrais bloqué la 1er ligne.
    Nom : excel3.jpg
Affichages : 280
Taille : 370,1 Ko

  6. #6
    Expert confirmé
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Billets dans le blog
    7
    Par défaut
    ça marche mais un problème avec la date
    et je voudrais bloqué la 1er ligne
    Je ne comprends pas ce que tu veux faire au juste.
    C'est quoi
    un problème avec la date
    ?
    Qu'entends-tu par
    bloqué la 1er ligne
    ?

    Ouh là!
    Je viens de comprendre.

    Mettre une date série en zone de liste modifiable n'est pas très rigoureux.

    Je te conseillerais plutôt ce processus.

    Dans ta feuille de calcul,

    1 - formuler ou saisir tes dates - où tu effectueras ta recherche - sous la forme j/m/a
    Présentation : celle que tu veux (mmm-aa, mm aa, .....)
    Nommer ce champ "champ_dates"

    2 - Avoir 2 champs nommés
    "liste_mois" et "liste_années"

    Dans ton formulaire
    2 Combobox ayant respectivement comme source "liste_mois" et "liste_années"
    Traduire les valeurs retournées en 1 date que tu chercheras dans le champ nommé "champ_dates"
    Les informations saisies éventuelles seraient reportées sur la cellule date trouvée décalée de 1, 2, 3 colonne(s) (méthode .offset)


    Exemple simplifié à appliquer

    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
    Option Explicit
     
    Private Sub Btn_cherche_Click()
     
    Dim ladate As Date
    ladate = DateSerial(Cbx_année, Cbx_mois, 1)
     
    Dim r As Range
     
    Set r = Worksheets(1).Range("champ_dates").Find(ladate, LookIn:=xlValues)
     
    If Not r Is Nothing Then
            MsgBox r.Address
    Else
            MsgBox "Pas trouvé"
    End If
     
    Set r = Nothing
     
    End Sub
    Applique ce processus et reviens.
    Quelques remarques supplémentaires sur ton développement.

Discussions similaires

  1. Afficher nombre de lignes de mon tableau basé sur un json
    Par CocoFlouq dans le forum Général JavaScript
    Réponses: 11
    Dernier message: 27/03/2015, 17h21
  2. Comment mettre des inputs radio (modifiés) sur une seule ligne
    Par algerino77 dans le forum Mise en page CSS
    Réponses: 5
    Dernier message: 13/11/2014, 17h54
  3. bouton-radio sur une seule ligne
    Par Vanessa48 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 5
    Dernier message: 30/10/2013, 13h40
  4. Mettre le label avec deux bouton radio sur la même ligne
    Par Invité dans le forum Mise en page CSS
    Réponses: 3
    Dernier message: 20/06/2011, 01h46
  5. Bouton paypal sur la même ligne qu'une image ?
    Par gege53 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 04/12/2010, 00h57

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