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

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Responsable de compte
    Inscrit en
    janvier 2019
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Responsable de compte
    Secteur : Transports

    Informations forums :
    Inscription : janvier 2019
    Messages : 7
    Points : 6
    Points
    6

    Par défaut supprimer et modifier des lignes dans une base de données à partir d'un userform

    Bonjour à tous,

    je suis un débutant en VBA
    Cela fait plusieurs semaines que je tente de créer un Userform permettant de gérer une base de donnée client.
    je me suis aidé de toutes les documentations présent sur le web dont l'excellent site de boisgontierjacques

    Malheureusement je suis dans l'impasse pour la fonction supprimer la ligne et modifier la fiche.

    Je sais que le problème a été abordé mille fois mais je vous promets que je m'arrache les cheveux.

    je me permets de vous mettre le code :
    "choix société" étant le nom de ma combobox de recherche pour remplir le userform

    mais il y a une erreur sur "enreg" f.Cells(Enreg, 1).Resize(, Nbcol).Delete Shift:=xlUp
    J'ai bien compris que la partie initialize était importante mais je ne sais pas comment l'exploiter...


    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
     
     
    Private Sub UserForm_Initialize()
      Set f = Sheets("BD")
      Set ws = Sheets("FT")
      Set Rng = f.Range("A2:CL" & f.[A65000].End(xlUp).Row)
        Nbcol = Rng.Columns.Count
        Nbcol = Rng.Columns.Count - 1
      Me.ChoixSociete.ColumnCount = 3
      Me.ChoixSociete.ColumnWidths = "90;90;60"
      Me.ChoixSociete.List = Rng.Value
     
    End Sub
     
    Private Sub supprimer_Click()
    Set f = Sheets("BD")
      Set Rng = f.Range("A2:CL" & f.[A65000].End(xlUp).Row)
    Nbcol = Rng.Columns.Count
    Enreg = Me.ChoixSociete.Column
     
    If Me.ChoixSociete <> "" Then
      If MsgBox("Etes vous sûr de suppimer " & Me.ChoixSociete & "?", vbYesNo) = vbYes Then
      f.Cells(Enreg, 1).Resize(, Nbcol).Delete Shift:=xlUp
     
        Me.ChoixSociete = ""
     
        UserForm_Initialize
    End If
     End If
     End Sub
     
    Private Sub enregistrermodif_Click()
     
    End Sub
    Merci d'avance si quelqu’un pouvait bien gentiment m'aider.

  2. #2
    Membre chevronné
    Homme Profil pro
    Inscrit en
    septembre 2013
    Messages
    1 145
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : septembre 2013
    Messages : 1 145
    Points : 1 990
    Points
    1 990

    Par défaut

    Bonjour,

    Exemple simple en PJ

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    Option Compare Text
    Private Sub UserForm_Initialize()
      Me.enreg = [client].Rows.Count + 1
      Me.Id = Application.Max([client[id]]) + 1
      Me.ListBox1.ColumnCount = [client].Columns.Count
      Me.ListBox1.ColumnWidths = "20;50;70;50;0;0;0;0;0"
      Me.ListBox1.List = [client].Value
    End Sub
     
    Private Sub B_sup_Click()
      If MsgBox("Etes vous sûr de supprimer " & Me.Nom & "?", vbYesNo) = vbYes Then
         [client].Rows(Me.enreg).Delete
         Me.ListBox1.List = [client].Value
      End If
    End Sub
     
    Private Sub B_ajout_Click()
      raz
      Me.Id = Application.Max([client[id]]) + 1
      Me.enreg = [client].Rows.Count + 1
    End Sub
     
    Sub raz()
      Me.Nom = ""
      Me.Rue = ""
      Me.Ville = ""
      Me.CodePostal = ""
      Me.Tph = ""
      Me.Portable = ""
      Me.Email = ""
      Me.Remarques = ""
    End Sub
     
    Private Sub ListBox1_Click()
      Me.enreg = Me.ListBox1.ListIndex + 1
      Me.Id = [client].Item(enreg, 1)
      Me.Nom = [client].Item(enreg, 2)
      Me.Rue = [client].Item(enreg, 3)
      Me.Ville = [client].Item(enreg, 4)
      Me.CodePostal = [client].Item(enreg, 5)
      Me.Tph = [client].Item(enreg, 6)
      Me.Portable = [client].Item(enreg, 7)
      Me.Email = [client].Item(enreg, 8)
      Me.Remarques = [client].Item(enreg, 9)
    End Sub
    Boisgontier
    Fichiers attachés Fichiers attachés

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Responsable de compte
    Inscrit en
    janvier 2019
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Responsable de compte
    Secteur : Transports

    Informations forums :
    Inscription : janvier 2019
    Messages : 7
    Points : 6
    Points
    6

    Par défaut

    merci beaucoup pour l'aide

    la forme est beaucoup plus simple à comprendre. je pense que j'ai tout compris. je vais essayer de le mettre en place.

    J'ai passé des heures sur votre site et j'ai fait plusieurs formulaires en me basant sur les exemples de votre site.


    vous êtes un peu une star dans votre domaine !

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

Discussions similaires

  1. [XL-2007] Aide VBA Ajouter/Supprimer des lignes d'une base de données
    Par 31alex31 dans le forum Excel
    Réponses: 3
    Dernier message: 09/03/2016, 11h48
  2. supprimer des donnees dans une base de données via des checkbox dans un tableau
    Par nourchéne dans le forum PHP & Base de données
    Réponses: 11
    Dernier message: 03/04/2013, 18h01
  3. modifier des lignes dans une bdd qui est la meme
    Par flash22 dans le forum Développement de jobs
    Réponses: 1
    Dernier message: 29/03/2011, 14h14
  4. [Débutant] Modifier des données dans une base
    Par Amallric dans le forum Débuter
    Réponses: 2
    Dernier message: 12/06/2006, 08h51

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