• Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

maval

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

Pièces jointes

Re : Format N°

Bonjour maval,

Dans le code de ton CommandButton3, au lieu de :
Code:
      .Range("A" & Ligne) = Application.Max(.Range("A3:A" & Ligne)) + 1
Mets :
Code:
      .Range("A" & Ligne) = "N°" & Application.Max(.Range("A3:A" & Ligne)) + 1

A+
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Autres excel
Réponses
8
Affichages
892
Réponses
22
Affichages
2 K
Réponses
11
Affichages
857
Retour