Menu

Bouton suppression et tri combobox

Messages postés
6
Date d'inscription
samedi 27 février 2016
Dernière intervention
3 novembre 2018
- 2 nov. 2018 à 12:48 - Dernière réponse :
Messages postés
13722
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
17 novembre 2018
- 3 nov. 2018 à 09:56
Bonjour à tous
je dois finaliser un formulaire pour la saisie dans une base de données. Je bloque sur deux points le bouton suppression ne fonctionne pas et le tri dans la conbobox1 ne se fait. Je suis novice dans VBA si quelqu'un peut m'aider svp pour finaliser ce formulaire. Merci par avance pour votre aide


Private Sub BT_SUP_Click()
Sheets("BD").Unprotect Password:="u1wxr6"
Dim J As Long
If MsgBox("Confirmez-vous la suppression de ce contact ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
    Rows([B2:B65536].Find(ComboBox1.Value).Row).EntireRow.Delete        (erreur à ce niveau)
    ComboBox1.Clear
    Set Ws = Sheets("BD")
    With Me.ComboBox1
    For J = 2 To Ws.Range("B" & Rows.Count).End(xlUp).Row
    .AddItem Ws.Range("B" & J)
Next J
End With
End If
        Sheets("BD").Protect "u1wxr6", AllowFiltering:=True
End Sub
__________________________________________________
Private Sub Combobox1_Change()            (pour ajouter un tri par ordre alphabétique)
Dim Ligne As Long
Dim i As Integer, J As Integer
Dim TB
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox1.ListIndex + 2
    For i = 1 To 17
        Me.Controls("TB" & i) = Ws.Cells(Ligne, i + 0)
    Next i
    J = 18
    For i = 1 To 3
        If Ws.Cells(Ligne, J) = True Then
            Me.Controls("CheckBox" & i).Value = True
        Else
            Me.Controls("CheckBox" & i).Value = False
        End If
        J = J + 1
    Next i
 
End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

5 réponses

Messages postés
13722
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
17 novembre 2018
- 3 nov. 2018 à 09:17
0
Merci
Bo jour,

le tri dans la conbobox1 ne se fait
Bowie, y en a pas!!!!

Je regarde la chose
Commenter la réponse de f894009
Messages postés
6
Date d'inscription
samedi 27 février 2016
Dernière intervention
3 novembre 2018
- 3 nov. 2018 à 09:22
0
Merci
Oui je ne sais pas comment le faire..Merci et merci pour votre aide
Messages postés
13722
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
17 novembre 2018
- 3 nov. 2018 à 09:24
Re,
Pourquoi faire le tri dans :
Private Sub Combobox1_Change() (pour ajouter un tri par ordre alphabétique)
quel est l'interet?????
Commenter la réponse de makbob82
Messages postés
6
Date d'inscription
samedi 27 février 2016
Dernière intervention
3 novembre 2018
- 3 nov. 2018 à 09:41
0
Merci
Re,
Toute la saisie de la base de donnée se fait par le biais d'un formulaire et le but c'est juste que dans la combobox1 qui correspond à la case RECHERCHE du dossier à modifier le tri se fasse pour une recherche plus facile et plus rapide...
Messages postés
13722
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
17 novembre 2018
- 3 nov. 2018 à 09:56
Re,
RECHERCHE du dossier à modifier le tri
Le tri de quoi???????????????????????????????????????? Et ou ??????????????
Commenter la réponse de makbob82