Transfer feuille1 vers feuille 2

dianbobo Messages postés 167 Statut Membre -  
zebulon2503 Messages postés 1319 Statut Membre -
Bonjour je suis plus qu'un nouveau sur excel et vba voila que j'ai un code a faire pour la suite de mon projet .

voila je vous explique ce que j'essai de faire depuis ce matin

j'ai un classeur excel qui a 2 feuilles disons feuil1 et feuil2
la feuil1 c'est ma feuille de destination et ma feuil2 c'est la feuille de départ

imaginons que j'ai une donné dans une cellule quelconque de feuil2 ex: en A1 et que je veux utiliser cette valeur dans ma formule sous vba pour avoir un résultat dans ma feuil1 a la cellule E2 par ex

voici ma formule f=(1+q) ou q est la valeur dans la cellule A1 de feuil2

comment je peu faire ça? svp
voici l'idée : Cells(2,5)=(1+q) ou q est dans feuil2

et plus généralement comment faire si je veux utiliser cette valeur dans une colonne ?
ex :la colonne D.
OU dans une ligne ?
pour la ligne : Cells(1,j)=(1+q) pour j=1 to 10 par ex
pour la colonne Cells(j,1)=(1+q) pour j=1 to 10 par ex

mieux encore
si j'ai q1 en A1,q2 en A2,.....,q10 en A10 (sur la premiere ligne de la feuil2)
dans ma feuil1 je veux ecrire un code sous vba qui me rempli la colonne A de la feuil1 a l'aide de la formule f=(1+q1), la colonne B avec la formule f=(1+q2),.....,et la colonne J avec la formule f=(1+q10)

For j=1 To 10
For i= 1 To 30
Cells(i,j)=(1+q(i)) ou q(i) est pris dans la feuil2 de mon classeur.
Next i
Next j

merci d'avance

A voir également:

1 réponse

zebulon2503 Messages postés 1319 Statut Membre 110
 
Salut
Voici le code si tes valeurs en Feuil2 sont sur la ligne 1 (cellule A1 à J1) et que tu mets ta formule sur la Feuil1 ligne 1 (cellule A1 à J1):
Sheets("Feuil1").Select
For i=1 to 10
  Cells(1,i).Activate
  Activecell.FormulaR1C1="=1+Feuil2!RC"
Next i


Pour les valeurs en colonne (A1 à A10) sur Feuil2 et résultats de A1 à A10 en Feuil1:
Sheets("Feuil1").Select
For i=1 to 10
  Cells(i,1).Activate
  Activecell.FormulaR1C1="=1+Feuil2!RC"
Next i


Ca répond à ta (tes) questions ) :-)
0