Supprimé une ligne USF

S

Softmama

XLDnaute Accro

• 7 Novembre 2010

• #2

Re : Supprimé une ligne USF

Bonsoir,

Remplace ton code de Commandbutton1 comme ceci ;

Code:

Private Sub CommandButton1_Click()
Ligne = ComboBox1[B].Value[/B]
Rows(Ligne).Delete
End Sub

En effet tu avais mis :

Code:

Ligne = ComboBox1.Listrows

qui correspond au nombre d'entrées que compte ta combobox.

 

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 7 Novembre 2010

• #3

Re : Supprimé une ligne USF

bonjour Softmama merci pour ton aide mais ta solution ne résoud pas mon probleme car il prend la valeur de combobox1 pour supprimer la ligne de la même valeur exemple si le numero de ma colonne en A est 25 en (A3) il va me supprimer la ligne 25 et non la ligne 3

me comprend tu


mais merci tout de meme

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 7 Novembre 2010

• #4

Re : Supprimé une ligne USF

Bonsoir,

Oui maintenant je te comprends, mais j'ai bien fait ce que j'avais compris de ton 1er post. A toi d'être plus clair dans tes explications.

Voici donc ce qu'il fallait écrire :

Code:

Private Sub CommandButton1_Click()
Ligne = [B]Columns(1).Find(ComboBox1.Value)[/B]
Rows(Ligne).Delete
End Sub

 

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 7 Novembre 2010

• #5

Re : Supprimé une ligne USF

Re Softmama je pense etre clair dans mes explication le dernier code que tu ma proposer j'ai la même chose que le précedent.

pour etre encore plus clair j'ai fais une autre piece jointe avec ton code dans la colonne A je veut supprimer la ligne entiere corespondant au numero de référence 20 que j'ai peint ici en rouge.

résultat rien ne se passe.

a savoir que mes numeros de référence ne se suis pas obligatoirement

en esperant avoir été plus clair que mes anciens post

je souhaiterais recherché le numero de la ligne en colonne A dans ma combobox1 sa c'est fais et supprimé la ligne entiere correspondant à ce numéro référence.

Cliquez pour agrandir...

 

Pièces jointes

• sup_ligne(1).xls

  32 KB · Affichages: 66
• sup_ligne(1).xls

  32 KB · Affichages: 73
• sup_ligne(1).xls

  32 KB · Affichages: 73

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 7 Novembre 2010

• #6

Re : Supprimé une ligne USF

Re,

Ha oui dsl, je me suis trompé,

La bonne syntaxe :

Code:

Private Sub CommandButton1_Click()
[B]Columns(1).Find(ComboBox1.Value).EntireRow.Delete
[/B]End Sub

 

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 7 Novembre 2010

• #7

Re : Supprimé une ligne USF

re Softmama bien jouer sa marche super bien je te remercie pour ton aide et ta Perseverance je te souhaite une trés bonne soirée et à bientot

 

Vote positif 0 Vote négatif