creer une liste en fonction d'un increment

Ah Ah Ah, salut le nul! et le forum

si c'est du VBA que tu veux et que ton nombre d'incrémentations est en C6
(supposons) :

tu sélectionnes la 1ère cellule, celle qui contient ton truc à incrémenter puis
...
lig = ActiveCell.Row
toto = Range("C6").Value
titi = toto + ActiveCell.Row
Selection.AutoFill Destination:=Range("A" & lig & ":A" & titi)

Cathy

P.S.
il faut lire :
titi = toto +lig

(c'est beaucou meilleur!)

Excuse-moi, mais je ne peux pas télécharger les fichiers, d'ou mes suppositions qui ne correspondent sans doute pas à tes cellules

Cathy

merci pour toutes ces infos et pour la rapidité de ta réponse
je vais me plonger dans tout ça


en fait voilà ce que je souhaite obtenir:


"valeur" "incrément" "résultat souhaité"

TS.10.100 3 TS.10.100
TS.25.450 10 TS.10.101
etc ... .... TS.10.102
TS.25.450
TS.25.451
TS.25.452
etc ....


@+

désolé mais le tableau tapé dans mon message précédent est tout décalé
La présentation est bidon

je suis vraiment pas Bon !!!



Résultat souhaité

TS.10.100
TS.10.101
TS.10.102
TS.25.450
TS.25.451
TS.25.452
etc ....

à partir d'un tablau de données

"TS.10.100" et "3"
"TS.25.450" et "5" par exemple

TS.10.100 et TS.25.450 sont dans des colonnes différentes? (car si on recopie n fois vers le bas, il ne faut pas écraser les autres données).

Cathy

bonjour

effectivement je n'ai pas été assez précis;

Les valeurs TS.10.100 et TS.25.450 (ainsi que d'autres) sont dans la même colonne (ces valeurs sont issues d'une base Acces) et en fait ,si c'est possible je souhaiterai que les nouvelles données soient inscrites dans une autre colonne.
(Ton petit programme marche super bien mais c'est vrai qu'il écrase les autres données)

Pour info:
ces numeros sont des réservations que font des utilisateurs à partir d'une page web, et qui vont dans une base Acces.
Mon objectif est de recupérer ces infos pour les inscrires dans des feuilles Excel spécifiques , je n'ai en fait plus que ce problème de liste à régler , le reste fonctionne.

merci pour ta disponibilité

fred "le nul"

Re Le nul,

supposons que ta 1ère donnée à recopier est en A6, ton incrémentation en B et ton résultat en C, voici un exemple de code :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/02/2003 par Cathy

Range("A6").Select
ValeurCopie = ActiveCell.Value
Selection.CurrentRegion.Select
deb = ActiveCell.Row
fin = Selection.Rows.Count + deb - 1
lig2 = deb
For lig = deb To fin
Range("A" & lig).Select
ValeurCopie = ActiveCell.Value
increment = Range("B" & lig).Value
titi = increment + lig2
Range("C" & lig2).Select
ActiveCell.Value = ValeurCopie
Selection.AutoFill Destination:=Range("C" & lig2 & ":C" & titi)
lig2 = lig2 + increment + 1
Next
End Sub

Cathy

super genial !!! ça fonctionne comme je voulais

merci Cathy, pour ce coup de main très sympa.


@+ et amitiés de Provence à tout le forum

fred "le nul"