Aide à completer ma macro

Lone-wolf

XLDnaute Barbatruc

• 22 Avril 2017

• #2

Bonsoir INFINITY , le Forum

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

 

Pièces jointes

• Numérotation.xlsm

  26.8 KB · Affichages: 26

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 22 Avril 2017

• #3

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

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 22 Avril 2017

• #4

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Avril 2017

• #5

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

 

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 22 Avril 2017

• #6

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

 

Vote positif 0 Vote négatif

I

INFINITY100

XLDnaute Occasionnel

• 22 Avril 2017

• #7

merci ICGL c'est tres gentil

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Avril 2017

• #8

Bonsoir Jean Claude , Cath

 

Vote positif 0 Vote négatif