copier coller dans 1 colonne

[boy]

bonjour!
je dois faire 1 tableau dans lequel par exemple:
cellule F2 on rentre 1 nombre
cellule A3 on rentre un autre nombre
puis ce nombre doit etre copier/coller dans la colonne A à partir de la cellule A4 et dans un nombre de lignes(cellule F2 -1)
j'espere que j'ai ete assez clair
merçi pour votre aide

 

[Charly2]

Bonsoir boy,

Afin de savoir si une formule est préférable à une macro, peux-tu nous dire la valeur max que peut prendre la cellule F2 ?

Nos propositions dépendront de ta réponse (en tout cas la mienne )

Amicalement
Charly

 

[Robert]

Bonsoir Boy, bonsoir le forum,

Essaie la macro suivante :

Sub macro1()
Dim nb As Long 'déclar ela variable nb

With Sheets('Feuil1') 'prend en compte l'onglet 'Feuil1'
'si A3 est vide ou F3 est vide ou F3 est inférieur à deux, sort de la procédure
If .Range('F2').Value = '' Or .Range('A3').Value = '' _
Or .Range('F2') < 2 Then Exit Sub

nb = .Range('F2').Value - 1 'définit la variable nb

.Range('A4:A' & .Range('A65536').End(xlUp).Row).ClearContents 'efface les anciennes valeurs

.Range('A3').Copy Destination:=.Range('A4:A' & nb + 3) 'copie et colle
End With
End Sub

Bonsoir Charly, ta réponse vient d'apparaître just'avant que je valide mon post...

Message édité par: Robert, à: 02/11/2005 21:42

 

[Hervé]

bonsoir boy, charly

Je suis parti sur une soluce VBA, charly, ca m'arrangeais

Sub Bouton1_QuandClic()
If Range('f2') = '' Or Not IsNumeric(Range('f2')) Then Exit Sub
Range('a4', 'a' & Range('f2') - 1) = Range('a3')
End Sub

salut

EDITION : oups désolé robert, je suis plus très frais à cette heure.

Message édité par: Hervé, à: 02/11/2005 21:47

 

[Charly2]

Re boy, bonsoir Robert et Hervé, bonsoir le forum,

Puisque vous le prenez comme ça, je ponds 2 formules possibles

Si Monique ou Ândré passe par là, ils nous diront ce qu'ils en pensent

Les deux sont quasiment identiques à un détail près : la seconde ne nécessite pas de formatage de cellule pour les '0' :

1) =SOMMEPROD((LIGNE()-3<=$F$2)*$A$3)
à recopier à partir de la ligne A4 et jusqu'à la valeur max que peut prendre F2

2) =SI(SOMMEPROD((LIGNE()-3<=$F$2)*$A$3);SOMMEPROD((LIGNE()-3<=$F$2)*$A$3);'')
à recopier de la même façon.

J'espère bien que Monique ou Ândré passeront par la pour me dire si je suis un bon élève des formules

Amicalement
Charly

 

[Robert]

Bonsoir Boy, Hervé, Charly, bonsoir le forum,

Je sais pas ce que tu en penses Hervé, mais moi en ce moment avec la grippe à bière qui court, tout ce qui pond ne m'inspire pas confiance... Alors en plus quand c'est mâle et barbichu... Imagine.

J'espère aussi qu'Ândré va passé par là car j'ai toujours pas digéré mon 'eutage' et comme je sais qu'il pond aussi pas mal... Moins, il est vrai, que ce qu'il consomme de Duvel on est bien d'accord, mais ça fait quand même un quantité bien raisonnable puisqu'il dépassé les deux mille posts...

 

[Charly2]

Re,

MDR ! Mais n'oublie pas qu'avant ce problème de bière et de poulets, il y avait la vache folle :

http://www.chez.com/scudo/vache/ :silly:

A+
Charly

PS : Désolé pour ce post hors sujet, mais Robert m'a trop fait rire

 

[Hervé]

Re tout le monde

Il est vrai robert qu’en ce moment il ne fait pas bon de pondre, je le disais encore ce matin à une de mes amies gallinacées. Qui me répondit 'tant que c’est pas des formules incompréhensible, ça va'.

Aussi, Charly, je t’en prie, méfie toi en ce moment des personnes vêtu de blanc, portant des masques (cachant un sourire sadique). Et qui se présenteraient comme des gens biens.

salut

 

[boy]

la valeur max sera 20

 

[Charly2]

Bonjour boy, Robert et Hervé, bonjour le forum,

Alors là, les gars, non seulement j'ai pondu la première fois mais je vais répondre à nouveau :woohoo:

boy, pour une valeur si faible, je te conseille plutôt la formule tout compris :

=SI(SOMMEPROD((LIGNE()-3<=$F$2)*$A$3);SOMMEPROD((LIGNE()-3<=$F$2)*$A$3);'')

Tu la copies en A5 et tu fais un copier / coller sur tes cellules A6 à A23.

Amicalement
Charly

 

[BOY]

merçi pour votre aide
mais la solution de charly est très bien sauf k'en tapant un chiffre dans f2 il me manque 2 lignes pour que cela soit parfait

 

[boy]

autre petit prob j'ai oublié de préciser k'en A3 c'est plutot une sorte de combinaison comportant des chiffres ou lettres ou les deux

 

[Charly2]

Re à tous,

Mais il fallait le dire tout de suite !!!

Alors tu places cette formule de A4 à A22 :

=SI(ET($A$3<>'';$F$2<>'');SI($F$2-LIGNE()+3>0;$A$3;'');'')

Tiens nous au courant

Amicalement
Charly

 

[BOY]

CHARLY
c'est parfait! merçi tous
vous pouvez me conseiller un livre pas trop cher pour me perfectionner sur excel
@+ B)

 

[Charly2]

Bonsoir BOY, bonsoir le fil et le forum,

Je n'ai aucun livre à te conseiller dans la mesure où je n'en ai jamais acheté

Par contre, tu pourrais peut-être télécharger les 'tutoriaux' de ce site dans la rubrique Découvrez à gauche.

Amitiés
Charly