1. #1
    Futur Membre du Club
    Homme Profil pro
    Technicien en Electronique
    Inscrit en
    mars 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien en Electronique
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : mars 2018
    Messages : 4
    Points : 5
    Points
    5

    Par défaut Recherche dans une liste d'une valeur issue d'une Comboboxpour supprimer une ligne

    Bonjour,

    j'ai réussi à extraire une valeur à partir de ma ComboBox (un numéro de série)
    et je voudrais rechercher cette valeur dans ma colonne numero serie pour récuperer la cellule et ensuite supprimer la ligne de ma BDD
    j'ai essayé avec des boucles mais excel se met à tourner dans le vide et je n'arrive pas à utiliser la fonction "find" (qui méfface automatiquement la premiére ligne de valeur de mon tableau)

    Voici le code (bcp de lignes sont commentées pour montrer les différents tests que j'ai essayé)
    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
    Private Sub Confirmez_Click()
        'Stocke le numéro de série dans la variable N_serie
        N_serie = UsrFRM_1_2_Supp_Rack.CB_Numero_Serie.Value
        MsgBox ("le rack choisi a le numéro de série : " & N_serie)
        'message d'avertissement
        If MsgBox("Voulez-vous vraiment supprimer ce rack ? toutes les données associées seront également éffacées !!", 308) = vbYes Then
        'cherche la cellule correspondant au numéro de série
            'déclarations de variables pour la recherche
    '        Dim Recherche As Range
    '        Dim Debut As Range
    '        Dim Cellule As Range
            Dim Trouve As Range
            'se positionner sur la feuille et déprotège la feuille BDD
            Feuil_3_BDD.Select
            Feuil_3_BDD.Unprotect
            'définit la plage de recherche
    '        Set Cellule = Range("Numero_Serie").Offset(1, 0)
    '        Debut.Select
    '        Set Recherche = Range(ActiveCell, ActiveCell.End(xlDown))
    '        Recherche.Select
            'test
     
            Set Trouve = Cells.Find(N_serie)
    '        Do While Cellule.Value <> N_serie
    '            Cellule = Cellule.Offset(1, 0)
    '        Loop
                Trouve.Select
                ActiveCell.EntireRow.Delete 'supprime la ligne correspondant au numéro de série du rack
        Else
            Exit Sub
        End If
     
    End Sub

  2. #2
    Expert éminent

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    2 989
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 2 989
    Points : 7 762
    Points
    7 762
    Billets dans le blog
    19

    Par défaut

    Citation Envoyé par luke38 Voir le message
    Bonjour,

    Regardez dans ce message supprimer-ligne-fonction-plusieurs-variables, si la méthode utilisée peut vous convenir.
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Technicien en Electronique
    Inscrit en
    mars 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien en Electronique
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : mars 2018
    Messages : 4
    Points : 5
    Points
    5

    Par défaut

    Bonjour,

    merci beaucoup Eric, votre exemple m'a permis de résoudre mon problème, j'ai adapté le code pour mon fichier et c'etait bon

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

Discussions similaires

  1. [XL-2010] Macro pour rechercher valeur dans une liste et copier valeur associée d'une autre colonne
    Par DeathCrow83 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 13/05/2017, 16h58
  2. Créer une barre de recherche pour rechercher dans un List<>
    Par iVarlix dans le forum Visual Studio
    Réponses: 5
    Dernier message: 08/04/2016, 19h15
  3. [XL-2010] Recherche valeur "1" dans une liste et trouve valeur "10" ?
    Par Sabinette dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 13/02/2015, 16h20
  4. Réponses: 4
    Dernier message: 20/11/2013, 03h19
  5. Réponses: 5
    Dernier message: 28/08/2006, 18h11

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