Modifier / supprimer

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2010

• #2

Re : Modifier / supprimer

Bonjour


Pour ton bouton Supprimer

Code:

Private Sub CommandButton3_Click()
Feuil1.Range(Feuil1.Cells(x, 2), Feuil1.Cells(x, 5)).ClearContents
End Sub

Au préalable, dans un Module standard, insérer : Public x as Long

et cet ajout :x=c.row
dans les procédures suivantes: Private Sub ListBox1_Click() et Private Sub ComboBox1_Change()
à cet endroit:

Code:

Set c = ActiveSheet.Columns(4).Find(nom, LookIn:=xlValues, lookat:=xlWhole)
x = c.Row

PS; une variante pour ton bouton Supprimer

Code:

Feuil1.Cells(x, 2).Resize(, 4) = ""

 

Dernière édition: 16 Décembre 2010

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Décembre 2010

• #3

Re : Modifier / supprimer

Bonjour JM,et merci beaucoup d'avoir répondu.

Tu ais énervé 🙂
Je n'ais pas la connaissance que tu as en VBA, j'ai bien essayer mais rien veut marcher.
Pour toi sa parais évident mais moi !!!!!

Si tu peut m'arranger sa! je serais bien content.

Merci d'avance et passe une bonne journée
Cordialement

Max

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2010

• #4

Re : Modifier / supprimer

Bonjour


Non pas énervé du tout.
Pourquoi dis-tu cela ?

Mais je retourne au boulot

D'autres passseront ici t'aider
Sinon je repasserai dans ton fil ce soir

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Décembre 2010

• #5

Re : Modifier / supprimer

Re Jm,

Non je dit sa pour plaisanter, je suis vraiment novice dans VBA c'est pour cela que post.
Heureusement qu'il y a des internautes comme toi qui peuvent donnés un peut de leurs temps, pour que l'on puisse avancé nous les novice. Si ce soir après ton boulot tu peut passé par la sa m'arrangerais beaucoup.
Je te souhaite une bonne après-midi avec ce temps pourri.

Cordialement

Max

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Décembre 2010

• #6

Re : Modifier / supprimer

oui
Cordialement

Max

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2010

• #7

Re : Modifier / supprimer

Re

Sorti du boulot à 19h15
Me revoilou.

Donc j'ai pris le temps de tester(et il reste des problèmes que je te laisse découvrir)
Dans le code de l'userform

Code:

Public x As Long
Private Sub CommandButton1_Click()
Unload Me
End Sub

Code:

Private Sub CommandButton3_Click()
Feuil1.Cells(x, 2).Resize(, 4) = ""
'Peut s'écrire aussi
'Sheets ("Feuil1").Cells(x, 2).Resize(, 4) = ""
'Mais c'est l'un ou l'autre pas les deux ;-)
End Sub

1) j'ai supprimé ton combobox car il me semble qu'il fait doublon avec ta ListBox
(et par conséquent supprimer la procédure relative au Combo)
2) Mettre en commentaire la ligne concernant la Combo que j'ai supprimé

Code:

ListBox1.List = tablo
'ComboBox1.List = tablo
End Sub

Mon premier message t'aiguillait sur une mauvaise piste. Oublies-le

 

Dernière édition: 16 Décembre 2010

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Décembre 2010

• #8

Re : Modifier / supprimer

Re,

Et merci d'être revenu sur le fil.

J'ai fait exactement comme tu me la d'écris et sa plante au niveau du CommandButton3;
Je pense qu'il serais préférable que tu me renvoie mon fichier avec les modifs

@+

Max

 

Vote positif 0 Vote négatif