simplification de code

[jcdelorient]

Bonsoir le Forum,
Après une longue absence je reviens vers vous. Inutile de vous le dire j'ai besoin d'aide

Serait il possible de simplifier ces deux procédures?
En effet j'ai plus de 40 textbox suceptibles d'avoir une modifications et un double click. Que faire afin d'éviter de me taper les 40 procédures a ecrire?

Mille mercis

JC

Private Sub TextBox2_AfterUpdate()
Dim donnée
If TextBox2 = "" Then Exit Sub
donnée = TextBox2 '.Value
With Sheets("BDDCostume")
.Activate
Set c = Range(Range("A3"), Range("A3").End(xlToRight)).Find(donnée)
End With
If Not c Is Nothing Then
If c.Offset(1, 0) = "" Then
c.Offset(1, 0) = Me.TB_Nom & " " & Me.TB_Prénom: Sheets("Costume").Select: Exit Sub
Else: MsgBox "Cet article semble avoir déjà été attribué", vbOKOnly, "ATTENTION": Sheets("Costume").Select: TextBox2 = "": Exit Sub
End If
End If
MsgBox "Il n'existe pas d'article sous cette référence", vbOKOnly, "Erreur": Sheets("Costume").Select: TextBox2 = ""
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
donnée = TextBox2
With Sheets("BDDCostume")
.Activate
Set c = Range(Range("A3"), Range("A3").End(xlToRight)).Find(donnée)
End With
c.Offset(1, 0) = ""
TextBox2 = ""
Sheets("Costume").Select
End Sub

 

[DIGGERJACK]

Re : simplification de code

Bonsoir jcdelorient

Heureux de te revoir sur le forum depuis tout ce temps

Bonne soirée

 

[Brigitte]

Re : simplification de code

Bonsoir,

Et bien comme Diggerjack, je ne propose pas d'aide (vu mes capacités en maquereaux), mais je viens saluer l'ami Jean Charles qui s'est fait plus que rare ici ou ailleurs.

J'espère JC que tu vas bien. Je te fais de grosses bises (à Digger aussi pour pas faire de jaloux).

Mais alors, où est passé ton joli costume du festival ?

 

[jcdelorient]

Re : simplification de code

Salut a vous deux
comme c'est gentil de m'acceuillir comme ça !
Et Brigitte qui n'a pas oublié mon costume !!!!!!!!

Je vous ce lien si vous voulez me voir :
Cercle Celtique Armor Argoat

 

[Brigitte]

Re : simplification de code

Re,

Pour te voir, pour te voir, t'en as de bonnes... Et où qu't'es donc ?

 

[jcdelorient]

Re : simplification de code

Je l'attendais celle là !!!!!
2ème danse, 1er plan de dos, vareuse rose-rouge ....

 

[Brigitte]

Re : simplification de code

Bon je trouve pas... je vois pas de 2ème danse... mais tant pis, là n'est pas le propos, je vais pas te faire perdre tout ton temps... et tous tes posts, car après, tu auras pas de solution...

A bientôt.

 

[jp14]

Re : simplification de code

Bonjour le fil

Bonsoir le Forum,
Après une longue absence je reviens vers vous. Inutile de vous le dire j'ai besoin d'aide

Serait il possible de simplifier ces deux procédures?
En effet j'ai plus de 40 textbox suceptibles d'avoir une modifications et un double click. Que faire afin d'éviter de me taper les 40 procédures a ecrire?

Mille mercis

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
donnée = TextBox2
With Sheets("BDDCostume")
.Activate
Set c = Range(Range("A3"), Range("A3").End(xlToRight)).Find(donnée)
End With
c.Offset(1, 0) = ""
TextBox2 = ""
Sheets("Costume").Select
End Sub

Concernant cette deuxième procédure il est possible d'utiliser un module de classe, à condition que le code soit relativement identique.
Il est possible de faire passer des paramètres spécifiques aux textbox( colonne, type de donnée,... en utilisant la proprièté Tag.

JP

 

[jcdelorient]

Re : simplification de code

Merci a vous !
G réussi a m"n sortir tant bien que mal sans passer par un mudule de classe

Bonne soirée