Modifier / supprimer

[apdf1]

Bonjour,

Voila j'ai un userform avec textbox, listbox et j'aimerais via les boutons modifier les valeurs de ma feuille Excel ou tous simplement les supprimer.
Voilà, si quelqu'un a une idée je l'en remercie d'avance et vous souhaite une bonne journée à tous

Ci joint mon fichier

Cordialement

Max

 

[Staple1600]

Re : Modifier / supprimer

Bonjour


Pour ton bouton Supprimer

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:

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

PS; une variante pour ton bouton Supprimer

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

 

[apdf1]

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

 

[Staple1600]

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

 

[apdf1]

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

 

[apdf1]

Re : Modifier / supprimer

oui
Cordialement

Max

 

[Staple1600]

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

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

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é

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

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

 

[apdf1]

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