Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives


 
 
LinkBack Outils de la discussion
Vieux 19/02/2003, 11h38   #1 (permalink)
le nul
Guest
 
Messages: n/a
Par défaut creer une liste en fonction d'un increment

bonjour,

je débute sur excel et j'ai pas mal de soucis dont celui ci

je souhaiterai à partir de 2 valeurs ( la valeur à incrementer "TS.00.100" et l'increment "5" par exemple) se trouvant sur une meme ligne, obtenir
une liste verticale comprenant toutes les valeurs de la plage (TS.00.100,
TS.00.101,.....,TS.00.104) et pouvoir completter cette liste

ps (la piece jointe illustre le résultat que je souhaite obtenir)

si une personne possède la réponse, peut elle me mettre sur la bonne voie?

salutations
Fichiers attachés
Type de fichier : xls increment.xls (13,5 Ko, 7 affichages)
 
ANNONCES
Vieux 19/02/2003, 13h04   #2 (permalink)
Cathy
Guest
 
Messages: n/a
Par défaut Re: 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
 
Vieux 19/02/2003, 13h09   #3 (permalink)
Cathy
Guest
 
Messages: n/a
Par défaut Re: creer une liste en fonction d'un increment

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
 
Vieux 19/02/2003, 14h41   #4 (permalink)
le nul
Guest
 
Messages: n/a
Par défaut Re: creer une liste en fonction d'un increment

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 ....


@+
 
Vieux 19/02/2003, 15h50   #5 (permalink)
le nul
Guest
 
Messages: n/a
Par défaut Re: creer une liste en fonction d'un increment


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
 
Vieux 19/02/2003, 19h39   #6 (permalink)
Cathy
Guest
 
Messages: n/a
Par défaut Re: creer une liste en fonction d'un increment

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
 
Vieux 20/02/2003, 09h54   #7 (permalink)
le nul
Guest
 
Messages: n/a
Par défaut Re: creer une liste en fonction d'un increment

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"
 
Vieux 20/02/2003, 17h30   #8 (permalink)
Cathy
Guest
 
Messages: n/a
Par défaut Re: creer une liste en fonction d'un increment

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
 
Vieux 20/02/2003, 18h57   #9 (permalink)
le nul
Guest
 
Messages: n/a
Par défaut Re: creer une liste en fonction d'un increment



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"
 
ANNONCES
 

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 18h46.


(C) 2006 Excel Downloads