Combobox de selection d'une entrée dans base de donnée et suppression de la lign
zurkinden
Messages postés
1
Date d'inscription
mercredi 25 février 2009
Statut
Membre
Dernière intervention
14 juillet 2009
-
14 juil. 2009 à 09:33
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 14 juil. 2009 à 20:34
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 14 juil. 2009 à 20:34
A voir également:
- Combobox de selection d'une entrée dans base de donnée et suppression de la lign
- Base de données javascript - Conseils pratiques -Javascript
- Connexion base de données - Conseils pratiques -PHP
- Exemple base de donnée gestion de stock - Forum SQL
- Gestion de stock - Forum PHP
- La conversion d'un type de données varchar en type de données datetime a créé une valeur hors limites - Forum C# / .NET
2 réponses
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
14 juil. 2009 à 12:51
14 juil. 2009 à 12:51
Bonjour ,
Utilise "find" pour trouver la ligne suivant ta selection
dans le combobox. Par exemple:
Dim c
Dim LigneTrouvée as integer
With Worksheets(1).Range("A1:A500")
Set c = .Find(8, LookIn:=xlValues)
If Not c Is Nothing Then
LigneTrouvée = c.Row
End If
End With
Puis utilise pour éffacer la ligne:
Rows(ligneTrouvée).delete
Et Remet a jour ton Combobox
Dedenet2
Utilise "find" pour trouver la ligne suivant ta selection
dans le combobox. Par exemple:
Dim c
Dim LigneTrouvée as integer
With Worksheets(1).Range("A1:A500")
Set c = .Find(8, LookIn:=xlValues)
If Not c Is Nothing Then
LigneTrouvée = c.Row
End If
End With
Puis utilise pour éffacer la ligne:
Rows(ligneTrouvée).delete
Et Remet a jour ton Combobox
Dedenet2
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
14 juil. 2009 à 20:34
14 juil. 2009 à 20:34
Bonjour ,
Petit modif
Dim c
Dim LigneTrouvée as integer
With Worksheets(1).Range("A1:A500")
Set c = .Find(Userform1.Combobox.value, LookIn:=xlValues)
If Not c Is Nothing Then
LigneTrouvée = c.Row
End If
End With
Puis utilise pour éffacer la ligne:
Rows(ligneTrouvée).delete
Et Remet a jour ton Combobox
Dedenet2
Petit modif
Dim c
Dim LigneTrouvée as integer
With Worksheets(1).Range("A1:A500")
Set c = .Find(Userform1.Combobox.value, LookIn:=xlValues)
If Not c Is Nothing Then
LigneTrouvée = c.Row
End If
End With
Puis utilise pour éffacer la ligne:
Rows(ligneTrouvée).delete
Et Remet a jour ton Combobox
Dedenet2
