Une boucle en VBA ?

Il y avait une coquille à la procédure publiée...
Le "offset" était absent à ces lignes de code :

V = .Offset(, 1).Value
.Offset(, 1).Value = V


Voici la procédure avec la modification apportée :
'--------------------------------
Sub test()
Dim V As Variant
With Range("A2:A" & Range("A65536").End(xlUp).Row)
With .SpecialCells(xlCellTypeConstants, 23).Cells
.Offset(, 1).Formula = "=CountA($A$2:A" & .Row & " )"
End With
V = .Offset(, 1).Value
.Offset(, 1).Value = V
End With
End Sub
'--------------------------------




"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23$EvRZjLJHA.5568@TK2MSFTNGP06.phx.gbl...
En VBA sans boucle ...

Sub test()
Dim Rg As Range, V
With Range("A1:A" & Range("A65536").End(xlUp).Row)
Set Rg = .SpecialCells(xlCellTypeConstants, 23).Cells
Rg.Offset(, 1).Formula = "=CountA($A$1:A" & Rg.Row & " )"
V = .Value
.Value = V
End With
End Sub




"alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le message
de
news: 48f4db38$0$7932$7a628cd7@news.club-internet.fr...
Bonsoir,
J'ai un tableau avec des valeurs de A2 à A..., je souhaite avoir de B2 à
B... des chiffres de 1 à ... suivant ce qu'il y a dans la colonne A2 à
A...
en non vide

Je vous remercie beaucoup
Alain