Code pour supprimer/modifier

JNP

XLDnaute Barbatruc

• 30 Janvier 2011

• #2

Re : Code pour supprimer/modifier

Salut Apdf1 🙂,
Comme ceci peut-être

Code:

' supprimer
Private Sub CommandButton3_Click()
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox2.Text, LookIn:=xlValues, lookat:=xlWhole)
C.EntireRow.Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox10 = ""
UserForm_Initialize
End Sub

Bon dimanche 😎

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 30 Janvier 2011

• #3

Re : Code pour supprimer/modifier

Bonjour JNP

Merci d'avoir répondu.

Pour la partie supprime impeccable.
Si je peut abuser comment faire pour la partie modifier?

Bon Dimanche

Max

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 30 Janvier 2011

• #4

Re : Code pour supprimer/modifier

Re 🙂,

apdf1 à dit:

Si je peut abuser comment faire pour la partie modifier?

Cliquez pour agrandir...

Abusons, abusons 😉...

Code:

Private Sub CommandButton1_Click()
'Modifier
Dim C As Range
Set C = Cells.Find(what:=Me.TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
Cells(C.Row, 3) = TextBox2.Value  'nom
Cells(C.Row, 4) = TextBox3.Value  'date
Cells(C.Row, 5) = TextBox4.Value  'N° Facture
Cells(C.Row, 6) = TextBox5.Value  'adresse
Cells(C.Row, 7) = TextBox6.Value  'cp
Cells(C.Row, 8) = TextBox7.Value  'ville
Cells(C.Row, 9) = TextBox8.Value 'Tel
Cells(C.Row, 10) = TextBox9.Value  'Fax
Cells(C.Row, 11) = TextBox10.Value  'Mobile
UserForm_Initialize
End Sub

Bon dimanche 😎

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 30 Janvier 2011

• #5

Re : Code pour supprimer/modifier

Re

Je te remercie beaucoup c'est super

Bon Dimanche

Max

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 1 Février 2011

• #6

Re : Code pour supprimer/modifier

Bonjour,
je recherche exactement çà, donc j'ai créé mon userform sur le même modèle que le tient.
Comme c'est mes débuts en Userform, je n'arrive pas à le lancer depuis un bouton.
quand je le lance, il m'ouvre la page Visualbasic et non l'useform seul.
Cà vient d'où?

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Février 2011

• #7

Re : Code pour supprimer/modifier

Bonjour,

Tu creer un bouton sur ta feuille et tu lui donne UserForm1.Show et tu ne devrais pas avoir de probleme si non tu me donne ton exemple et je te le ferais

Max

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 1 Février 2011

• #8

Re : Code pour supprimer/modifier

Bonjour, en fait j'étais resté en mode création.
Mais maintenant dès le lancement J'ai une erreur d'exécution.
Je mets un exemple dans quelques minutes.

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 1 Février 2011

• #9

Re : Code pour supprimer/modifier

Voilà j'ai mis mon fichier en pièce jointe.
Merci de votre aide et votre indulgence car c'est mon premier Userform, et j'avoue ne pas avoir tout compris...
Merci d'avance

 

Pièces jointes

• Modèle_VRS.zip

  35.8 KB · Affichages: 35
• Modèle_VRS.zip

  35.8 KB · Affichages: 36
• Modèle_VRS.zip

  35.8 KB · Affichages: 32

Dernière édition: 1 Février 2011

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Février 2011

• #10

Re : Code pour supprimer/modifier

Re

Voila ton fichier réparé

@+

Max

 

Pièces jointes

• Modèle_VRS.zip

  46.4 KB · Affichages: 48
• Modèle_VRS.zip

  46.4 KB · Affichages: 45
• Modèle_VRS.zip

  46.4 KB · Affichages: 45

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 1 Février 2011

• #11

Re : Code pour supprimer/modifier

Merci,
peux tu me dire ce que tu as changé pour que je puisse l'appliquer sur mon fichier originel.
Merci d'avance

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Février 2011

• #12

Re : Code pour supprimer/modifier

Re,

Tu vas dans Private Sub UserForm_Initialize()

Avant

Code:

Dim aa As Variant
    aa = Feuil1.Range("b4:l" & database.Range("B65536").End(xlUp).Row)
    ComboBox1.List = aa

Aprés

Code:

t = Range("b4", Cells(Rows.Count, "e").End(xlUp)): ComboBox1.List = t

Bonne journée

Max

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 1 Février 2011

• #13

Re : Code pour supprimer/modifier

Encore merci pour la réactivité.
J'ai juste un problème, quand je fais modifier il me modifie bien le personnel mais remplace le premier et crée un doublon.
Une dernière solution??

 

Pièces jointes

• Modèle_VRS2.zip

  37.3 KB · Affichages: 40
• Modèle_VRS2.zip

  37.3 KB · Affichages: 33
• Modèle_VRS2.zip

  37.3 KB · Affichages: 35

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Février 2011

• #14

Re : Code pour supprimer/modifier

Re

Je vois sa et je t'envoie sa dans la soirée

Max

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 1 Février 2011

• #15

Re : Code pour supprimer/modifier

Re

Voila ton fichier réparé et avec quelques supléments

Tiens moi au courant si a probléme.

Bonne soirée

Max

 

Pièces jointes

• Pour HYPO78.zip

  42.8 KB · Affichages: 46

Vote positif 0 Vote négatif