Numerotation de ligne visible

Version imprimable

20/10/2009, 09h23
zoumzoum59

Numerotation de ligne visible

bonjour,

Je sais numéroter des lignes de 1 à ... en partant d'une ligne donné avec la commande

Code:

ligne()

, mais je voudrais pouvoir numeroter que les lignes visible et non pas les lignes qui sont masqué qui me provoque un trou dans la numérotation, qui me fait sauter la numerotation de deux crans si je masque deux lignes.
Je pense qu'il serai faisable de faire ça avec une foncfion vba mais je vois pas comment, si quelqu'un peut m'aider.

Merci d'avance, en esperant que je suis comprehensible.

Code:

1
2
3
4
5
6
7
Dim i As Integer
Dim Cel As Range
 
For Each Cel In Range("A1:A30").Cells  'A Adpater
If Not Cel.EntireRow.Hidden Then i = i + 1
Cel.Value = i
Next Cel

20/10/2009, 09h48
zoumzoum59

Merci mercatog

Ton code fonctionne parfaitement dans une procedure vba mais il me le faudrait dans une fonction que je puisse l'utiliser dans une cellule de mon classeur, qui s'incrementerait lors d'une copie de cellule et quand je masque une partie des cellules copier que la numerotation se reactualise et inversement quand je reaffiche les lignes.

J'espere que tu me suis

mettre la mise à jour

Bonjour,

Mercatog t'as donné la réponse il suffit de l'adapter : --> un exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Numerotation(ByVal Target As Range)
 
Dim nLig As Integer, nCol As Integer
 
nLig = Target.Row
nCol = Target.Column
 
Application.Calculation = xlCalculationManual
 
For Each Cel In Range(Cells(2, nCol), Cells(nLig, nCol)).Cells 'A Adpater
If Not Cel.EntireRow.Hidden Then i = i + 1
Next Cel
 
Numerotation = i
 
Application.Calculation = xlCalculationAutomatic
End Function

20/10/2009, 11h20
zoumzoum59

bonjour et merci casavba

j'avais essayer mais pas reussi.:?

Parcontre si je masque une parti des cellules copié, le recalcul ne se fait pas automatiquement, il faut que je recopie la formule vers le bas pour que ce soit recalculé.

oui, essaie maintenant le code que j'ai modifié:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Numerotation(ByVal Target As Range)
 
Dim nLig As Integer, nCol As Integer
 
nLig = Target.Row
nCol = Target.Column
 
Application.Volatile
Application.Calculation = xlCalculationManual
 
For Each Cel In Range(Cells(2, nCol), Cells(nLig, nCol)).Cells 'A Adpater
If Not Cel.EntireRow.Hidden Then i = i + 1
Next Cel
 
Numerotation = i
 
Application.Calculation = xlCalculationAutomatic
End Function

20/10/2009, 11h30
zoumzoum59

j'ai refais un essai avec le nouveau code, le recalcul se fait mais seulement apres avoir fait une action sur la feuille et non pas directement apres avoir fait le masquage ou le reaffichache des lignes
20/10/2009, 11h33
casavba

T'as mis

Code:

application.volatile

Parce que chez moi ça marche très bien
20/10/2009, 12h34
zoumzoum59

Meme avec

Code:

Application.Volatile

j'ai toujour la meme chose, je suis en excel 2002, ce ne serai pas une difference de version?

J'ai repris la fonction proposé par Casavba,
je l'ai mise dans un module public
avec ce code, la fonction réagit comme tu le souhaite

en B1 j'ai mis =Numerotation(A1)
j'ai tiré vers le bas
je masque et affiche les lignes, la fonction re numérote bien
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Option Explicit Public Function Numerotation(ByVal Target As Range) Dim Cel As Range Dim nLig As Integer, nCol As Integer, i As Integer nLig = Target.Row nCol = Target.Column Application.Volatile Application.Calculation = xlCalculationManual For Each Cel In Range(Cells(1, nCol), Cells(nLig, nCol)).Cells 'A Adpater If Not Cel.EntireRow.Hidden Then i = i + 1 Next Cel Numerotation = i Application.Calculation = xlCalculationAutomatic End Function

20/10/2009, 13h44
zoumzoum59

Merci encore a vous deux, mais meme avec le dernier code de mercatog rien y fait je dois avoir un petit parametrage quelque part qui fout la pagaille, je ne vois plus que ça ou la version d'excel car sur les 3 pc que j'ai a dispo avec tous excel 2002 le resultat est identique.
20/10/2009, 14h01
mercatog

Sans gros mots s'il vous plait; :nono:
Édite ton message
tu peux joindre ton fichier? (ou une partie)

Edit, je te joint un fichier exemple
20/10/2009, 14h14
zoumzoum59

1 pièce(s) jointe(s)

Ok pas de soucis message corrigé.

Je joint donc le fichier
20/10/2009, 14h17
zoumzoum59

J'ai testé avec ton fichier c'est pareil qu'avec le mien !!:(
20/10/2009, 14h34
mercatog

Et ton fichier fonctionne chez moi
si tu enlève cette ligne

Code:

'Application.Calculation = xlCalculationManual

qu'st ce que ça donnerait
20/10/2009, 14h42
zoumzoum59

Toujour pareil, aucun changement.
20/10/2009, 15h45
mercatog

Bon, regarde du côté Outils>Option de ton fichier excel
onglet Calcul
Coche Automatique
et refais le test
20/10/2009, 16h34
zoumzoum59

Non desolé j'avais deja vérifier et il est bien coché le soucis ne vient pas de là.
20/10/2009, 17h11
aalex_38
bonjour,

Je viens de tester sur Excel 2003, pas de problème chez moi, fonctionne parfaitement.

Pour partir de 1 (j'ai une ligne de titre) j'ai juste remplacé :
Code:

1 2 ' nLig = Target.Row nLig = Target.Row - 1
Nb : Sympa ce code, j'aime bien :ccool:
20/10/2009, 21h15
zoumzoum59

La derniére chose que je puisse en deduire c'est que c'est bien un probleme de version.
Donc si quelqu'un voit comment contourner le probléme !