textBox à initialiser

[billysteph]

Bonjour le forum,

J'aimerai savoir si il y a un moyen en passant par le VBA d'initialiser ma "TEXTBOX",
c'est a dire ne plus rien avoir comme texte a l'interieur, une fois que ma valeur a ete copier dans la bonne cellule ( Voir fichier si joint).

Merci

 

[@+Thierry]

Bonjour BillySteph, le Forum

Je ne peux pas télécharger de fichier, mais la réponse est simple il me semble.

Une fois les données récupérées, pour vider une TextBox , il suffit de faire un truc comme ceci :
Texbox1 = ""

Bon Aprèm
@+Thierry

 

[billysteph]

Bonjour @+Thierry,

Merci pour la reponse tres rapide.
Mais malheureusement, ca ne prends pas... ou alors je me debrouille un peu mal......
En fait, j'ai une serie de "IF" dans le VBA, puis mon "End IF", je place ton code entre mon END IF est le END SUB? Si c'est cela, ca marche pas.
Merci encore,

 

[Pascal76]

Tiens je te joins ton fichier légèrement modifié

Pascal

 

[@+Thierry]

Re Bonjour BillySteph

Je viens de regarder ton fichier, ah oui, je pensais à un UserForm avec un CommandButton de Validation. Là c'est tout à fait différent...

Essaie comme ceci :
Private Sub TextBox1_Change()

a = "Séverine123"
b = "Sonia456"
c = "Christophe789"
d = "Christian159"

If TextBox1.Value = ("Séverine") Then
Range("E4").Value = a
Range("E4").Font.Color = _
RGB(250, 150, 10)
TextBox1 = ""
ElseIf TextBox1.Value = ("Sonia") Then
Range("E4").Value = b
Range("E4").Font.Color = _
RGB(250, 50, 10)
TextBox1 = ""
ElseIf TextBox1.Value = ("Christian") Then
Range("E5").Value = d
Range("E5").Font.Color = _
RGB(0, 250, 180)
TextBox1 = ""

ElseIf TextBox1.Value = ("Christophe") Then
Range("E6").Value = c
Range("E6").Font.Color = _
RGB(250, 250, 10)
TextBox1 = ""

End If

End Sub

Bon Aprèm
@+Thierry

 

[billysteph]

Rebonjour,

Bon ben euh, que dire.................
A part un grand merci, je vois pas trop....
Vraiment trop fort.
Salutation a tous, et a bientot.
Stephane,

 

[@+Thierry]

Décidément Pascal on se croise aujourd'hui !

Je vois qu'on a la même proposition !

Sinon on pourrait aussi faire plus léger avec un Select Case...
Option Explicit
Option Compare Text 'si on veut pas de surprise MAJ/min

Private Sub TextBox1_Change()
Dim A As String, B As String, C As String, D As String
A = "Séverine123"
B = "Sonia456"
C = "Christophe789"
D = "Christian159"


Select Case Me.TextBox1
Case "Séverine"
PlacingValue A, 250, 150, 10, "E4"
Case "Sonia"
PlacingValue B, 250, 50, 10, "E4"
Case "Christophe"
PlacingValue C, 0, 250, 180, "E5"
Case "Christian"
PlacingValue D, 250, 250, 10, "E5"
End Select

End Sub

Sub PlacingValue(Nom As String, Red As Byte, Green As Byte, Blue As Byte, Cell As String)

With Me.Range(Cell)
.Value = Nom
.Font.Color = RGB(Red, Green, Blue)
End With
Me.TextBox1 = ""
End Sub

Bonne Fin d'Aprèm
@+Thierry