completer cases vides

[pas fortiche]

encore moi


encore une histoire de remplissage de cases vides !!!!!!!!!!!!!!!!!!!!


je voudrais que mes cases vides n'est pas les memes donnees apres remplissage

cad : par exemple ma premiere case vide remplie par '1000000' la deuxieme +1 soit '1000001' etc.... sur toute la feuille

merci pour tout à tout le monde

 

[mutzik]

Re

début de réponse ici

 

[Toutou]

Bonjour à tous,
Comment allez-vous depuis tout ce temps...?
Il y a longtemps que je ne suis pas passé, dsl...

Bonjour pas fortiche, ici une idée:

Sub_incrémentation()
Dim a As Integer
Dim y As cell

If y.value=''
then y=10000
For each y in worksheet('NomDeTaFeuille')
if y.Offset(a,1)='' then
y.Offset(a,1)=y.value+1
en if
next y
a=a+1
en if


end sub



Il y a un moment que je ne suis pas venu, mon VBA est un peu rouillé; j'espère que cela t'aidera quand même....


@ +
Toutou