Format personnalisee en vba

[Ilino]

Bonjour à tous,

Je souhaite appliquer le format suivant dans une plage de cellules(D7 D32) en code VBA :
Une valeur / ILINO/année courante
ilino et année courante devant s'afficher automatiquement lorsque j'entre "une_Valeur" dans une cellule.
merci

 

[camarchepas]

Re : Format personnalisee en vba

Bonjour ,

Avec un petit fichier exemple , tu aurais surement plus de réponses ...

 

[DoubleZero]

Re : Format personnalisee en vba

Bonjour, Ilino, camarchepas, le Forum,

Peut-être ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("D7:D32")
If c.Value Like "*ILINO*" Then GoTo suite
If c.Value <> "" Then c.Value = c.Value & " ILINO " & Year(Date)
suite:
Next
End Sub

A bientôt

 

[Ilino]

Re : Format personnalisee en vba

Bonjour
merci pour la remarque ci joint un fichier exemple.

 

[DoubleZero]

Re : Format personnalisee en vba

Re-bonjour,

Ci-après, le code modifié pour l'insertion d'une barre de fraction entre les données.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("D8:D32")
If c.Value Like "*ILINO*" Then GoTo suite
If c.Value <> "" Then c.Value = c.Value & "/ILINO/" & Year(Date)
suite:
Next
End Sub

A bientôt

 

[Ilino]

Re : Format personnalisee en vba

Bonjour DOUBLE 00, camarchepas
merci pour le code ça marche .
gracie

 

[JCGL]

Re : Format personnalisee en vba

Bonjour à tous,
Salut 00,

Une autre possibilité :

Option Explicit


Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If Not Intersect(Target, Range("D7:D32")) Is Nothing Then
If Target = "" Or Len(Target) > 14 Then Exit Sub
Cells(Target.Row, 4) = Target.Value & Format(Date, " / ILINO / yyyy")
End If
End Sub

Bises ++ à 00
A + à tous