Aide à completer ma macro

INFINITY100

XLDnaute Occasionnel
Bonjour

Voila je suis face à un problème que j'arrive pas à résoudre dans mon fichier joint j'ai une macro qui fonctionne bien mais pour qu'elle soit fini totalement il me manque deux détails que

Voila je joins le fichier pour être plus claire

Merci par avance

Cordialement
 

Pièces jointes

  • Numérotation.xlsm
    28.4 KB · Affichages: 31

INFINITY100

XLDnaute Occasionnel
Merci infiniment Lone-Wolf

pour le premier problème c nickel mais il reste le deuxième

j'ai ajouter au code une ligne qui tri par ordre alphabétique mais sa bug

Dim Derlig As Long
'Tri par ordre alphabétique
Derlig = [B1000].End(xlUp).Row
Range("B11:E" & Derlig).Sort Key1:=Range("B11"), Order1:=xlAscending, Header:=xlYes

Voir le fichier

Et merci encore
 

Pièces jointes

  • Numérotation.xlsm
    25.9 KB · Affichages: 29

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Pour reprendre ton code. Il te suffit de préciser la feuille :
VB:
'Afficher le dernier ID enregistré à l'ouverture de l'UserForm
    dernierID = WorksheetFunction.Max(Feuil1.Range("A:A"))

A+ à tous
 

INFINITY100

XLDnaute Occasionnel
Merci Cathodique

la je peux dire que mes deux probleme sont résolus finalement il fallait ajouter ceci

'Tri par ordre alphabétique
Derlig = Sheets("Feuil1").[B1000].End(xlUp).Row
.Range("B11:E" & Derlig).Sort Key1:=.Range("B11"), Order1:=xlAscending, Header:=xlYes

ça marche très bien
 

Discussions similaires

Réponses
3
Affichages
274

Statistiques des forums

Discussions
311 707
Messages
2 081 734
Membres
101 809
dernier inscrit
HADER2024