Aide à completer ma macro

[INFINITY100]

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

 

[Lone-wolf]

Bonsoir INFINITY 🙂, le Forum 🙂

Juste une petite rectification. Le dernier numéro enregistré est le 5 et non le 6.

 

[INFINITY100]

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

 

[cathodique]

Bonjour,
Il manquait les points avant Range, car tu utilises with. En effet, pour vba il faut préciser quelle feuille.

        .Range("B11:E" & Derlig).Sort Key1:=.Range("B11"), Order1:=xlAscending, Header:=xlYes

 

[JCGL]

Bonjour à tous,

Pour reprendre ton code. Il te suffit de préciser la feuille :

'Afficher le dernier ID enregistré à l'ouverture de l'UserForm
    dernierID = WorksheetFunction.Max(Feuil1.Range("A:A"))

A+ à tous

 

[INFINITY100]

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

 

[INFINITY100]

merci ICGL c'est tres gentil

 

[Lone-wolf]

Bonsoir Jean Claude 🙂, Cath 🙂