Compteur dans une collone

[Clausen]

J'ai un tableau(1) comme exemple si-dessous ou j'ai la première collone avec un numéroteur. Je peu insérer une nouvelle ligne et je click n'importe ou et la numérotation se met à jour en tenant compte uniquement des lignes utilisées.
Pour cela j'ai une macro. (vois ci-dessous). Bien entendu j'y comprends que dalle.

J'aimerai savoir si il est possible de faire une macro identique pour le tableau (2) sur plusieurs collones.

Merci d'avance

j'AI MIS LE FICHIER SUR LEQUEL J'AIMERAI INTEGRER CETTE MACRO.


TBALEAU 1

2 Abbé Ulysse Emile St Ginier 18 Sierre
3 Abbé Jules Emile Ch. Vallon 14 Sierre
4 Abbé André-Georges Jules St Ginier 18 Sierre
5 Abbé Fabienne André-Georges ' ' Sierre
6 Abbé Nicolas Jules Plantassage 8 Noës
7 Abbé Michel Jules Plantassage 22 Noës
8 Abbé Ursula Michel Plantassage 22 Noës

9 Abbé Irène Maurice Mayoux
10 Abbé Serge Maurice Vissoie
11 Abbé Renée Serge Vissoie
12 Abbé Nadine Serge
13 Abbé Sabine Serge
14 Abbé Voutaz Marie-Thérèse Maurice Vissoie

TABLEAU 2
Nom Prénom Nom Prénom
1 Abbé Alain 59 Salamin J.Pierre 117
2 Antonier Cécile 60 Salamin Jérôme 118
3 Antonier Delphine 61 Salamin Julie 119
4 Antonier Edith 62 Salamin Karine 120
5 Antonier Marie 63 Salamin Marc
6 Antonier Martine 64 Salamin Margueritte
7 Antonier Norbert 65 Salamin Marie
8 Antonier Pierre 66 Salamin M.Thérèse
9 Chérifi Lionel 67 Salamin Mélanie
10 Chérifi Ludivine 68 Salamin Michel
11 Chérifi Rita 69 Salamin Nicolas
12 Epiney Berthe 70 Salamin Nicole
13 Genoud Anne 71 Salamin Pascal
14 Genoud Brigitte 72 Salamin Patricia
15 Loye J.Marc 73 Salamin Raymond
16 Loye Julie 74 Salamin Rica
17 Loye Maurice 75 Salamin Roger
18 Massy Angèle 76 Salamin Romain
19 Massy Germaine 77 Salamin Sandrine
20 Rion Madeleine 78 Salamin Sarah
21 Rouvinet Pascal 79 Salamin Serge
22 Rouvinet Yvonne 80 Salamin Sophie

MACRO

Sub COMPTE_LIGNE_NVIDE()
Dim xlsheet As Worksheet
Dim i, x, y, z, myValue
Dim myCell
x = 1
z = 5
Set xlsheet = Worksheets(1)
For i = 1 To 1000
xlsheet.Range('A' & i).Value = ''
Next i

For i = 5 To 1000
myCell = 'B' & i
myValue = Len(xlsheet.Range(myCell).Value)
If myValue > 0 Then

xlsheet.Range('A' & z).Value = x
x = x + 1
End If
z = z + 1
Next
' MsgBox 'Nombre de Bourgeois = ' & x

End Sub

 

[Hervé]

Bonjour clausen, le forum

pas sur d'avoir compris, une tentative en pièce jointe.

salut


[file name=Classeur2_20051110092200.zip size=7646]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051110092200.zip[/file]

 

[Clausen]

Merci mille fois ca marche
une seul chose encore

Quand j'insert une ligne pour ajouter un nom
j'aimerai ne pas avoir dans les collones 2 ou 3 un vide et qu'elles remonte tout seul.
Autre chose

Est ce possible qu'au lieu du bouton que l'on puisse faire un click ou double clique dans la table



Mais sinon c'est le pieds

 

[Hervé]

re clausen

J'ai pas tout compris, tu dis :

Quand j'insert une ligne pour ajouter un nom
j'aimerai ne pas avoir dans les collones 2 ou 3 un vide et qu'elles remonte tout seul.

Si tu parles des colonnes 1 et 3, il suffit de relancer la macro.

Si tu parles des autres colonnes, tu ne devrais pas avoir de ligne vide, puisque tu la remplie avec ton nouveau nom

Merci de préciser ta pensé.

salut