If Not TextBox2 = "" Then If IsNumeric(TextBox1) Then TextBox1 = CDbl(TextBox1) + 1
je serais tenté de répondre (par une bêtise)Si TextBox2 NON VIDE alors incrémenter TextBox1
TextBox1 = Val(TextBox1) - (TextBox2 <> "")
Bonsoir ForumBonjour Ilino,
Après 677 messages, tu ne sais pas encore que lorsque la question est accompagnée d'un fichier, les réponses viennent plus aisément
Re;Bonjour,
sans plus de détails...
bon après midi
@+
Bonjour
je relance ma demande
Bonsoir Forum
je suis sorry
ci joint le fichier
Mi scuso
Bonjour ForumRe- bonjour
voici:
à+
Philippe
Edit: J'ai accepté ta demande sur Facebook
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("A11:A2013")
If c.Value Like "*KDT-E*" Then GoTo suite
If c.Value <> "" Then c.Value = c.Value & " /KDT-E/ " & Year(Date)
suite:
Next
End Sub