Format textbox " An"

[apdf1]

Bonjour,

Comment peut on rajouter au code ci-dessous pour le textbox "T3" le format "Ans".
ex: 58 ans

Private Sub BtnValide_Click()
 Dim Ctrl As Control
   
           With Sheets("feuil1")
           L = .Range("A65000").End(xlUp).Row + 1
                    
            'Cells(L, 2) = LabelID ' Réf
            Cells(L, 1) = T1.Value 'nom
            Cells(L, 2) = T2.Value 'Date
            Cells(L, 3) = T3.Value  'AN
  
End With

Je vous remercie d'avance et vous souhaite bonne journée

Cordialement

Max

 

[mécano41]

Re : Format textbox " An"

Bonjour,

Cells(L, 3) = T3.Value & " ans"

Il faut tester avant si T3.value >1 pour mettre ou non un s à an

Cordialement

 

[Robert]

Re : Format textbox " An"

Bonjour Max, bonjour le forum,

essaie comme ça :

Cells(L, 3) = T3.Value & IIf(T3.Value > 1, " ans", " an") 'AN

Bonjour Mécano on s'est croisé

 

[apdf1]

Re : Format textbox " An"

Bonjour Mecano, Robert,

Je vous remercie beaucoup "Nickel"

Bonne journée

@+ Max