Format personnalisee en vba

Ilino

XLDnaute Barbatruc
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
 

DoubleZero

XLDnaute Barbatruc
Re : Format personnalisee en vba

Bonjour, Ilino, camarchepas, le Forum,

Peut-être ainsi :

Code:
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 :)
 

DoubleZero

XLDnaute Barbatruc
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.

Code:
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 :)
 

JCGL

XLDnaute Barbatruc
Re : Format personnalisee en vba

Bonjour à tous,
Salut 00,

Une autre possibilité :

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 727
Membres
105 799
dernier inscrit
lahrech_hassan