Partie fixe d'un format personnalisé

[mat7775]

Salut le forum,

Dans ma feuille, je souhaite créer un format personnalisé qui serait constituer de la manière qui suit :
- le début, de manière fixe, c'est le contenu d'une cellule de ma feuille (type un code "M1" calculé à partir du nom de l'onglet
- un tiret de séparation
- un incrément de 1 en 1.

Le but est que dans ma cellule, je vais tapé 1, et il va m'afficher "M1-001".
La partie compliqué de ma question est de récupérer dans le format le code du début qui est dans une cellule (je pourrais le mettre en dur dans le format, mais j'ai beaucoup de feuilles dans mon classeur, et je voudrais automatiser...)

Merci pour votre aide
Mat

 

[ballmaster]

Re : Partie fixe d'un format personnalisé

Bjr,

Copie ce bout de code dans un module

Sub Macro1()
'
Dim nf As String
Dim nbf As Integer

nbf = Worksheets.Count

    For i = 1 To nbf
    
        Sheets(i).Select
        nf = ActiveSheet.Name
        Range("A:A").Select  'selectionne ici la colonne que tu veux formater
        Selection.NumberFormat = nf & "-" & " 000"
        
    Next


End Sub

A+

 

[hoerwind]

Re : Partie fixe d'un format personnalisé

Bonjour,

Essaie ce format : "M1-"000

En saisissant un nombre de maximum trois chiffres cela devrait fonctionner.

 

[ballmaster]

Re : Partie fixe d'un format personnalisé

Slt hoerwind,

Coquin !!! tu ne lis pas l'énoncé du problème.
Ca me rappelle moi à l'école. 😀

Il ne veut rentrer en dur le nom de la feuille dans les formats personnalisés, car trop de feuille.

Polission va ! 😛

je cite :

(je pourrais le mettre en dur dans le format, mais j'ai beaucoup de feuilles dans mon classeur, et je voudrais automatiser...)

 

[James007]

Re : Partie fixe d'un format personnalisé

Bonjour mat,

Parmi plusieurs possibilités ...

A +

 

[natorp]

Re : Partie fixe d'un format personnalisé

Bjr à tous

James : est-ce que tu pourrais mettre le code dans la réponse (mon réseau d'entreprise bloque le VBA) ?

merci, cordialement, Gérard

 

[ballmaster]

Re : Partie fixe d'un format personnalisé

De la part de James (qui ne m'en voudra pas, j'en suis sur)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Not IsEmpty(Target) Then Target.Value = Range("A1") & "-00" & Target
Application.EnableEvents = True
End Sub

 

[James007]

Re : Partie fixe d'un format personnalisé

Bonjour natorp,

A ta demande ... le code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 Or Target.Row < 4 Then Exit Sub
Application.EnableEvents = False
    If Not IsEmpty(Target) Then Target.Value = Range("A1") & "-00" & Target
Application.EnableEvents = True
End Sub

Edit : merci ballmaster ...

A +

 

[kjin]

Re : Partie fixe d'un format personnalisé

Bonjour,

Dans ma feuille, je souhaite créer un format personnalisé...
- un incrément de 1 en 1.
...
Le but est que dans ma cellule, je vais tapé 1, et il va m'afficher "M1-001"

C'est un incrément automatique en mode manuel !?
Ne serait-ce pas plus simple avec une formule en colonne B qui renvoie un N° dès lors qu'une valeur est saisie en colonne C, D ou...
@ballmaster : s'il y a 250 feuilles....!
A+
kjin

 

[natorp]

Re : Partie fixe d'un format personnalisé

Super, merci beaucoup James

et je pense que cela correspond exactement à la demande de Mat

cordialement, Gérard

 

[natorp]

Re : Partie fixe d'un format personnalisé

Re:

Pour affiner le traitement, serait-il possible de tester la présence dans la colonne d'une série déjà présente ? et éviter les doublons :

on tape "2", si M1-002 existe : vidage de la cellule et message d'erreur

merci, Gérard

 

[Softmama]

Re : Partie fixe d'un format personnalisé

Bonjour,

à partir du code de James, tu peux tester :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 Or Target.Row < 4 Then Exit Sub
Application.EnableEvents = False
    If Not IsEmpty(Target) Then 
        if not Columns(2).find(what:=Target, lookin:=xlvalues, lookat:=xlwhole) is Nothing then
             Target.Value = Range("A1") & "-" & format(Target, "000")
        else 
             Target.value = ""
        end if
    end If
Application.EnableEvents = True
End Sub

 

[C@thy]

Re : Partie fixe d'un format personnalisé

pas sûre d'avoir bien compris,
un essai de code :

Sub Macro1()
Dim nbf As Integer
nbf = Worksheets.Count
For i = 1 To nbf
Sheets(i).Select
Range("A1").Select
Selection.Value = i
Selection.NumberFormat = """MI _ ""000"
Next

End Sub

 

[natorp]

Re : Partie fixe d'un format personnalisé

Re,

Softmama : ça change rien par rapport à mon souhait...🙁

cordialement, Gérard

 

[mat7775]

Re : Partie fixe d'un format personnalisé

Bonjour,

C'est un incrément automatique en mode manuel !?
Ne serait-ce pas plus simple avec une formule en colonne B qui renvoie un N° dès lors qu'une valeur est saisie en colonne C, D ou...
@ballmaster : s'il y a 250 feuilles....!
A+
kjin

Salut Kjin, je n'ai jamais parlé d'incrément automatique!
et quand bien même, le faire automatiquement est réalisable par plein de moyen, et même sans formule ni macro!
Mais merci de l'aide dans tous les cas.