Format N°

[maval]

Bonjour,

Voila j'ai un USF "Base de donnée" j'aimerais lui apporté une petite modification.

A l'enregistrement j'aimerais que dans la colonne "A" ou se trouve les numéros d'adhérent lui ajouter devant le le chiffre "N°" pour avoir: N°12 par exemple.

Je vous remercie d'avance

Cordialement

Maval

 

[ralph45]

Re : Format N°

Bonjour maval,

Dans le code de ton CommandButton3, au lieu de :

      .Range("A" & Ligne) = Application.Max(.Range("A3:A" & Ligne)) + 1

Mets :

      .Range("A" & Ligne) = "N°" & Application.Max(.Range("A3:A" & Ligne)) + 1

A+

 

[JBARBE]

Re : Format N°

Bonjour,
Dans > Nombre > Personnalisé >>>>> mettre "N°"# ##0

A+

 

[maval]

Re : Format N°

Bonjour Jbarbe, Ralph45

Je vous remercie beaucoup Nickel....

Bonne journée

Maval

 

[maval]

Re : Format N°

Re,

Suite a l'aide de Ralph que je remercie au passage je viens de voir que j'ai un petit souci. J'ai bien modifier la ligne comme si dessous et j'ai bien" N° 1" comme j'avais demandé jusque la tous va bien.

.Range("A" & Ligne) = "N°" & Application.Max(.Range("A3:A" & Ligne)) + 1

Mon souci est a chaque enregistrement il me donne toujours "N°1" alors qu'il devrais y avoir N°2, N°3 ect..

Je vous remercie de votre aide

Cordialement

Maval

 

[youky(BJ)]

Re : Format N°

Bonjour maval,
Exact en cellule tu as........ N°1 ce n'est pas un nombre, donc application.Max ne peut plus fonctionner et si tu recherches par la suite ce N° tu vas au devant des soucis.
Utilise plutot la solution poste #3 de JBARBE qui sera sans doute plus simple
Bruno

 

[maval]

Re : Format N°

Bonsoir Bruno

Oui mais je ne voit pas comment mettre mon code ?

Maval

 

[JCGL]

Re : Format N°

Bonjour à tous,

Tu le laisses tel qu'il était à l'origine...
Et tu appliques le format personnalisé du #3

A + à tous

Edition : salut Bruno

 

[youky(BJ)]

Re : Format N°

BonsoirJCGL et tous
rajoute la ligne en rouge dans ton code et ne fait rien d'autre.
Bruno
If Ligne = 0 Then
Ligne = .Range("C" & Rows.Count).End(xlUp).Row + 1
.Range("A" & Ligne) = Application.Max(.Range("A3:A" & Ligne)) + 1
.Range("A" & Ligne).NumberFormat = """N° ""####"
End If

 

[maval]

Re : Format N°

Bonsoir Bruno

Nickel je te remercie beaucoup

@+

Maval