Menu

Insérer un numéro d'ordre dans un tableau par vba [Résolu]

noe2008 96 Messages postés vendredi 18 juillet 2008Date d'inscription 22 février 2018 Dernière intervention - 5 févr. 2018 à 23:50 - Dernière réponse : noe2008 96 Messages postés vendredi 18 juillet 2008Date d'inscription 22 février 2018 Dernière intervention
- 6 févr. 2018 à 15:29
Bonjour,

Je viens de créer avec succès un classeur qui pour but d'importer d'un classeur global des élevés qui auront besoin d'un soutien lors du deuxième semestre il me reste à insérer un numéro d'ordre : 1 2 3 ..... dans les tableaux des feuilles PD et AS
j'ai essayé avec une macro mais elle fonctionne uniquement dans le premier tableau de chaque feuille
je cherche un code pour que la macro fonctionne sur les autres tableaux aussi
voici le classeur en fichier joint et merci d'avance.

https://www.cjoint.com/c/HBfwJ2BdeBq
Afficher la suite 

Votre réponse

6 réponses

julia Namor 391 Messages postés jeudi 27 mars 2014Date d'inscription 18 mai 2018 Dernière intervention - 6 févr. 2018 à 10:10
0
Utile
Bonjour
ceci devrait faire l'affaire
Sub num_ordre()
Dim i As Long
N = 1
For i = 10 To [B1000].End(xlUp).Row
Cells(i, 1) = N
N = N + 1
Next i


Dim ii As Long
N = 1
For ii = 10 To [F1000].End(xlUp).Row
Cells(ii, 5) = N
N = N + 1
Next ii


Dim iii As Long
N = 1
For iii = 10 To [J1000].End(xlUp).Row
Cells(iii, 9) = N
N = N + 1
Next iii


cordialement
Commenter la réponse de julia Namor
f894009 13046 Messages postés dimanche 25 novembre 2007Date d'inscription 24 mai 2018 Dernière intervention - 6 févr. 2018 à 10:22
0
Utile
Bonjour a vous deux,

julia Namor: seulement feuille AS si active, pas les deux!!!!

noe2008
Fichier modifie pour le deux feuilles et colonnes fonction feuille: https://mon-partage.fr/f/5NbFkNi6/
noe2008 96 Messages postés vendredi 18 juillet 2008Date d'inscription 22 février 2018 Dernière intervention - 6 févr. 2018 à 10:42
Merci les amis grâce à vos effort c'est résolu.
Commenter la réponse de f894009
julia Namor 391 Messages postés jeudi 27 mars 2014Date d'inscription 18 mai 2018 Dernière intervention - 6 févr. 2018 à 10:44
0
Utile
Excellent!!!!!
f894009 13046 Messages postés dimanche 25 novembre 2007Date d'inscription 24 mai 2018 Dernière intervention - 6 févr. 2018 à 11:42
Re,

Disons que ca marche.....
noe2008 96 Messages postés vendredi 18 juillet 2008Date d'inscription 22 février 2018 Dernière intervention - 6 févr. 2018 à 15:29
oui merci
Commenter la réponse de julia Namor