Discussion :

[skorpio]

Bonjour à tous...

Je souhaiterai savoir comment réaliser un compteur, mais je n'en veut pas un comme ça

Code :

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

1
2
3
Sub Incremente()
   Range("A1").Value=Range("A1").Value + 1
End Sub

En fait je souhaiterai que la valeur incrémenté s'inscrite dans la cellule d'en dessous..

ex:

A j'ai décalé le compteur par rapport au numéro des lignes
1 pour vous montrer que le numéro de la ligne ne dépend
2 pas de l'incémentation.
3 1
4 2
5 3
6 4
.
.

[skorpio]

je n'ai pas était clair peut-être...
voici l'exemple que je souhaite

A
1
2
3 1
4 2
5 3
6 4
7 .
.

[caloumaya]

Je ne suis pas sûr que ça corresponde à ce que tu cherches

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub incremente()
'tu déclares tes variables ça peut servir
Dim ligne_active As Integer
Dim compteur As Integer
'là tu sélectionnes la dernière case non vide de ta feuille
Range("A1").Select
Selection.End(xlDown).Select
'ici tu mémorise le numéro de ligne de la case en question
ligne_active = ActiveCell.Row
'enfin tu ajoutes ou tu enlèves ce que tu veux pour avoir le bon numéro
compteur = ligne_active + ou - ce que tu veux

[LeForestier]

bonjour,
Si j'ai bien compris ce que tu veux faire !! (c'est pas claire du tout)

Code :

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

1
2
3
4
5
6
7
8
sub Incrémente (LigneDéb as integer, LigneFin as integer, Colonne as integer)
dim i as integer, e as integer
      e=1
      for i=LigneDéb to LigneFin
          cells(i,Colonne).value = e
          e=e+1
      next i
end sub