none
transfer feuil2 vers feuil1 RRS feed

  • Question

  • 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
    • Déplacé Alex Petrescu mardi 27 avril 2010 12:11 question de VBA (Origine :Visual Basic)
    lundi 26 avril 2010 21:02

Réponses

  • Bonjour,

     

    Pour le scenario que vous envisages, voici la formule :

     

    Sub Macro1()
     
    Sheets("Sheet1").Range("E2").Value = Sheets("Sheet2").Range("A1").Value + 1 
     
    End Sub

     

    Avec Sheets(…) vous accédez a la feuille, avec Range(… ) vous accédez a la cellule.

     

    Pour mettre une formule dans une cellule, utilisez la propriété Formula :

    Sheets("Sheet1").Range("E3").Formula = "=sum(a1:a10)"

     

    Pour découvrir les autres propriétés utiles de la page, je vous conseille d’enregistrer des macros et de regarder le code généré.

     

    Si vous avez d’autres questions sur des problèmes ponctuelles, n’hésitez pas de continuer la discussion dans ce thread ou d’ouvrir des nouveaux threads.

     

    Cordialement,

    Alex


    Appel à contribution ! http://social.msdn.microsoft.com/Forums/fr-FR/vbasicfr/thread/bd974e0e-5519-4122-b8fc-3b998207c34f
    mardi 27 avril 2010 12:29

Toutes les réponses

  • Bonjour,

     

    Le vbA ce ne serait pas plutôt le forum :

     

    Microsoft.public.fr.excel

     

    Cordialement.


    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    mardi 27 avril 2010 05:09
  • Bonjour,

     

    Pour le scenario que vous envisages, voici la formule :

     

    Sub Macro1()
     
    Sheets("Sheet1").Range("E2").Value = Sheets("Sheet2").Range("A1").Value + 1 
     
    End Sub

     

    Avec Sheets(…) vous accédez a la feuille, avec Range(… ) vous accédez a la cellule.

     

    Pour mettre une formule dans une cellule, utilisez la propriété Formula :

    Sheets("Sheet1").Range("E3").Formula = "=sum(a1:a10)"

     

    Pour découvrir les autres propriétés utiles de la page, je vous conseille d’enregistrer des macros et de regarder le code généré.

     

    Si vous avez d’autres questions sur des problèmes ponctuelles, n’hésitez pas de continuer la discussion dans ce thread ou d’ouvrir des nouveaux threads.

     

    Cordialement,

    Alex


    Appel à contribution ! http://social.msdn.microsoft.com/Forums/fr-FR/vbasicfr/thread/bd974e0e-5519-4122-b8fc-3b998207c34f
    mardi 27 avril 2010 12:29