Format TextBox + effacer données

[thespeedy20]

Bonjour à tous,

J'ai plusieurs textbox, et j'aimerais leur ajouter un format:
ex Age= an; taille en M; Poids en kg.

La 2ème chose, j'aimerais effacer toutes les données à l'aide d'une macro

Merci d'avance pour la marche à suivre.

Ci-joint le fichier

Oli

 

[Dull]

Re : Format TextBox + effacer données

Salut thespeedy20, le Forum

Un essai en Pièce Jointe avec ce que j'ai compris

[COLOR=BLUE]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=BLUE]Dim[/COLOR] i [COLOR=BLUE]As Byte[/COLOR], Derlig [COLOR=BLUE]As Long[/COLOR]
    [COLOR=BLUE]With[/COLOR] Sheets("données")
    Derlig = .Range("C65536").End(xlUp).Row + 1
        .Range("C" & Derlig) = IIf(TextBox3.Value >= 2, TextBox3.Value & " ans", TextBox3.Value & " an")
        .Range("D" & Derlig) = TextBox4.Value & " m"
        .Range("E" & Derlig) = TextBox5.Value & " Kg"
        .Range("F" & Derlig) = TextBox6.Value
    [COLOR=BLUE]End With[/COLOR]
[COLOR=BLUE]For[/COLOR] i = 3 [COLOR=BLUE]To[/COLOR] 6
    OLEObjects("TextBox" & i).Object.Value = ""
[COLOR=BLUE]Next[/COLOR] i
[COLOR=BLUE]End Sub[/COLOR]

Bonne Journée

 

[thespeedy20]

Re : Format TextBox + effacer données

Bonjour,

Merci à toi Dull pour cette aide si rapide.

J'ai encore une petite question : je désire passer d'un textbox à l'autre avec la tabulation, peux-tu me dire comment faire

En te remerciant par avance


Oli

 

[Pierrot93]

Re : Format TextBox + effacer données

Bonjour Oli, Dull🙂

pour modifier l'orde de tabulation des objets d'un usf, dans l'éditeur vba => click droit dans l'usf => ordre de tabulation...

bonne journée
@+

 

[Dull]

Re : Format TextBox + effacer données

Salut Oli, Re Pierrot🙂, le Forum

CasseG... les TextBoxes sur la Feuille c'est pas trop ma tasse de thé et la seule solution que j'ai pu trouver c'est en Appuyant sur la touche Echap.

teste le Fichier ci-Joint. Mais je te conseil de passer Par un UserForm C'est beaucoup plus pratique😉.

Bonne Journée

 

[Pierrot93]

Re : Format TextBox + effacer données

Re,

Aarf ,

les TextBoxes sur la Feuille

j'avais pensé usf....

 

[Pierrot93]

Re : Format TextBox + effacer données

Re,

on peut également utiliser l'événement "KeyUp" :

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then If Shift Then TextBox2.Activate Else TextBox4.Activate
End Sub

@+

 

[thespeedy20]

Re : Format TextBox + effacer données

Bonsoir à tous

Encore merci pour toutes vos solutions, j'ai trouvé mon bonheur

@+

oli