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
 

Fichiers joints

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
 

Fichiers joints

cathodique

XLDnaute Accro
Bonjour,
Il manquait les points avant Range, car tu utilises with. En effet, pour vba il faut préciser quelle feuille.
VB:
        .Range("B11:E" & Derlig).Sort Key1:=.Range("B11"), Order1:=xlAscending, Header:=xlYes
 

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


Haut Bas