Discussion :

[zoumzoum59]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[casavba]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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é.

[casavba]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[casavba]

T'as mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.volatile

Parce que chez moi ça marche très bien

[zoumzoum59]

Meme avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Volatile

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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[mercatog]

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

Edit, je te joint un fichier exemple

[zoumzoum59]

Ok pas de soucis message corrigé.

Je joint donc le fichier

[zoumzoum59]

J'ai testé avec ton fichier c'est pareil qu'avec le mien !!

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'Application.Calculation = xlCalculationManual

qu'st ce que ça donnerait

[zoumzoum59]

Toujour pareil, aucun changement.

[mercatog]

Bon, regarde du côté Outils>Option de ton fichier excel
onglet Calcul
Coche Automatique
et refais le test

[zoumzoum59]

Non desolé j'avais deja vérifier et il est bien coché le soucis ne vient pas de là.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
' nLig = Target.Row
nLig = Target.Row - 1

Nb : Sympa ce code, j'aime bien

[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 !