XL 2010 Attribution numéro PV

Appo1985 · 7 Juillet 2023

Bonjour. Je voudrais attribuer des numéros PV automatiquement dans la première colonne après avoir trier la colonne,"Non" par ordre alphabétique.
Pour cela j'ai fait un Msgbox pour indiquer le premier numéro mais je ne sais pas comment faire pour que les autres suivent le premier par macro(le premier ne commence pas forcément par 1).
Je voudrais de l'aide pour la suite du code ou une autre manière de faire si il yen a.
Merci d'avance.
Ci joint le fichier

sylvanu · 7 Juillet 2023

Bonjour Appo,
Par exemple en rajoutant :

VB:

Numéro = Val(nom) ' Car "nom" est une chaine de caractères
DL = [B65500].End(xlUp).Row
For L = 4 To DL
    Cells(L, "A") = Numéro + L - 4
Next L
End Sub

sylvanu · 7 Juillet 2023

Bonjour Appo,
Par exemple en rajoutant :

VB:

Numéro = Val(nom) ' Car "nom" est une chaine de caractères
DL = [B65500].End(xlUp).Row
For L = 4 To DL
    Cells(L, "A") = Numéro + L - 4
Next L
End Sub

fanfan38 · 7 Juillet 2023

Bonjour
Salut Sylvanu
Ayant un tableau structuré....
Ci joint ma solution

A+ François

Appo1985 · 7 Juillet 2023

Merci @sylvanu , merci @fanfan38
Même résultat impeccable pour les deux solutions

XL 2010 Attribution numéro PV

Appo1985

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

Discussions similaires