rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Boucle de Calcul sous VBA

Djawelle, le jeudi 17 août 2006 à 17:32:16
Bonjour,

J'ai quelques soucis sous VBA car je débute complétement et j'aurai besoin de votre aide. Je souhaite réaliser une macro qui remplira totalement une grille (B39:L65).
J'ai effectué 2 fois de suite l'enregistrement de la macro, le tout étant de créer une seule macro avec une boucle à l'intérieure qui change mes copie/colle/valeur finale.
Je joins ci-dessous 2 boucles que j'ai créé avec les commentaires des cellules.
Un immense merci pour votre aide!
Djawelle

Sub calcul_CGRP_1()
'
' calcul_CGRP_1 Macro
' Macro enregistrée le 17/08/2006 par gaelle.monnier
'

'
Range("A39").Select
'Il faut que ça fonctionne de A39 jusqu'à A65
Selection.Copy
Range("B13").Select
'Toujours coller dans cette case
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B38").Select
'Il faut que ça fonctionne de B38 jusqu'à L38
Application.CutCopyMode = False
Selection.Copy
Range("B10").Select
'Toujours coller dans cette case
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B22").Select
'Toujours coller dans cette case
Application.CutCopyMode = False
Selection.Copy
Range("B39").Select
'Retour de la valeur finale dans la grille B39:L65
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Version 2, la suite!!!
Range("A40").Select
Selection.Copy
Range("B13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C38").Select
Application.CutCopyMode = False
Selection.Copy
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B22").Select
Application.CutCopyMode = False
Selection.Copy
Range("B40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub
Répondre à Djawelle  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
balou311, le jeudi 17 août 2006 à 17:37:27
Salut,

je ne comprends pas vraiment ce que tu veux faire et à mon avis un petit bout de code peut remplacer tout ça de manière bien plus simple.

peux tu expliquer ce que tu veux faire que je puisse te griffoner un bout de code. Profitez de la vie vous n'en sortirez pas vivant!!!
   
Répondre à balou311

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Djawelle, le jeudi 17 août 2006 à 17:55:48
Merci!
Alors j'ai une grille fixe avec des données dans une colonne (A39 à A65, nommons la A) et sur une ligne (B38 à L38, nommons la B). Je souhaite remplir "l'intérieur" de cette grille de la manière suivante:
Copier une cellule de la colonne A et la coller valeur au dessus en B13 (j'ai une suite de calcul) + Copier une cellule de la ligne B et la coller valeur au dessus en B10 (suite de calcul).
Là un résultat est calculé en B22. Je copie ce résultat et le colle/valeur dans la grille B39:L65

Je ne sais pas si mes explications sont plus claires... J'espère!
Merci en tout cas!
   
Répondre à Djawelle

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
balou311, le jeudi 17 août 2006 à 18:05:38
alors si j'ai bien compris:
tu prends une valeur de ta colonne A on va appeler cette valeur val_col_A
tu prends une valeur de ta ligne B on va appeler cette valeur val_row_B

tu fais une operation qui inclu val_col_A et val_row_B pour te donner un résultat : result

et tu veux ranger dans la case correspondant à l'intersection de la ligne à laquelle appartient val_col_A et la colonne à laquelle appartient val_row_B la valeur de result

c'est ça?

si oui donnes moi l'opération à effectuer car t'as pas besoin de faire tous tes copier coller....

Profitez de la vie vous n'en sortirez pas vivant!!!
   
Répondre à balou311

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Djawelle, le jeudi 17 août 2006 à 18:13:57
C'est exactement ça, sauf que je suis obligée de passer par des copier coller car j'ai 3 feuilles de sortie XLS derrière qui réunissent des données très lourdes... et pas mal de croisés dynamiques.
Le coup des copier coller est vraiment trop galère à mettre en Macro?
Merci,
   
Répondre à Djawelle

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
balou311, le jeudi 17 août 2006 à 18:17:32
c'est à dir que tu récupère le contenu de ta cellue B22 dans d'autre feuille c'est ça?
si oui ya tjs pas besoin de copier coller
Profitez de la vie vous n'en sortirez pas vivant!!!
   
Répondre à balou311

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Djawelle, le vendredi 18 août 2006 à 09:43:50
En fait ma grille se remplit avec des valeurs de la colonne val_col_A qui croise les val_row_B. Exemple: en colonne coût d'un produit, et en ligne nombre de produit. On peut donc croiser tout les prix, avec tout les nombres de produits. Et cette valeur de "croisement", est une formule Sommeprod() mais qui met en jeu les 2 données précédentes, d'où le copier/coller. Dommage, j'e n'ai pas moyen de te joindre l'onglet, ça aurait pu être plus simple.
Merci!
   
Répondre à Djawelle

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
balou311, le vendredi 18 août 2006 à 11:29:12
re,

c'est dommage j'avais gribouillé un bout de code mais je l'ai oublié ou boulot.
cela dit je reste persuadé qu'il n'y a pas besoin de copier coller.
lol
je t'envoie ma proposition dans une 15 aine de min faut que je la réécrive...

a tt
Profitez de la vie vous n'en sortirez pas vivant!!!
   
Répondre à balou311

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
balou311, le vendredi 18 août 2006 à 11:35:38
essaye ça.
ya pas de copier coller mais je pense aue sa répond à tes attentes...
oui je sais je suis têtu... 

Sub macro()
i = 39
While i < 66
    val_col = Cells(i, "A")
    j = 2
    While j < 13
        val_row = Cells(38, j)
                
        Cells(13, "B") = val_col
        Cells(10, "B") = val_row
        result = Cells(22, "B")
        
        Cells(i, j) = result
        
        j = j + 1
    Wend
    i = i + 1
Wend

End Sub
Profitez de la vie vous n'en sortirez pas vivant!!!
   
Répondre à balou311

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Djawelle, le vendredi 18 août 2006 à 12:02:31
Un immense merci! Surtout à ton côté têtu! Car en effet les copier/coller étaient inutiles et le script que tu m'a fourni fonctionne très bien, et bien plus esthétique que ce que je voulais faire!
A présent je vais étudier ton script, je ferai ainsi des progrès en VBA!
Merci et bonne journée!
   
Répondre à Djawelle

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
balou311, le vendredi 18 août 2006 à 12:02:45
en fait fait plutôt comme ça: 
Sub macro()
i = 39
While i < 66
    val_col = Cells(i, "A")
    j = 2
    While j < 13
        val_row = Cells(38, j)
                
        'ici tu pourrais faire directement l'opération dans la macro
        'et mettre le résultat dans le "tableau" et tout autre cellule
        'ca t'éviterai que ta formule puisse être modifié et tu 
        'pourrais faire tes cumules en même temps enfin après
        'c'est toi qui vois
       
        Range("B13") = val_col
        Range("B10") = val_row
        result = Range("B22")
        
        Cells(i, j) = result   
        j = j + 1
    Wend
    i = i + 1
Wend

End Sub


je l'ai tester je te le certifie en état de marche. Profitez de la vie vous n'en sortirez pas vivant!!!
   
Répondre à balou311

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 marie, le mardi 8 janvier 2008 à 17:24:51
bonjour
Function AA(Vl As Variant, sigma As Double, mu As Double, datevalo As Date, datecheance As Date) As Variant
Dim pas As Single
Dim delta As Variant
Dim normu As Variant
Dim norsigma As Variant
Dim normsimule As Variant
Dim j As Integer
pas = 7 / 365
delta = (datecheance - datevalo) / 7
normu = (mu - 0.5 * sigma ^ 2) * pas
norsigma = sigma * Sqr(pas)
For j = 1 To delta
Randomize
normsimule = Application.NormSInv(Rand)
Vl = Vl * Exp(normu + normsimule * norsigma)
Next j
AA = Vl
End Function
quelqu'un peut m'aider pour savoir pk ça marche pas??
   
Répondre à marie
Posez votre question Répondre
Matrice VBA (Résolu)Salut le forum, voila mon problème, je voudrai réaliser une boucle sous VBA mais il me dit que l'expression de ma matrice est incorrecte. Sub extrapolation() Dim n As Integer, p As Integer, i As Integer Application.ScreenUpdating = False poteau =... www.commentcamarche.net/forum/affich-5391066-matrice-vba
Boucle do until (Résolu)Bonjour, j'ai un petit souci avec ma boucle sous vba: elle fonctionne bien mais tout à la fin de l'exécution, j'ai un message d'erreur sur mon i = i + 1 voici le code en entier (le but est juste de combiner deux colonnes en une):... www.commentcamarche.net/forum/affich-5286151-boucle-do-until
Fonction Calcul VBA (Résolu)Bonjour, Je suis un peu en galère pour la création d'une fonction VBA. En fait j'ai un fichier Excel avec des données en colonne A (Requetes totales) et B (Erreurs). Dans la colonne C je calcul le pourcentage d'erreur cad (B/A*100) et... www.commentcamarche.net/forum/affich-8006591-fonction-calcul-vba
[Excel] Chemin et nom de stockage de feuille de calculIndiquer automatiquement le chemin d'accès (path) et le nom de stockage de toute feuille de calcul Noter dans une cellule (A& par exemple) la formule : =cellule("nomfichier";A1) A chaque sauvegarde et/ou déplacement de fichier dans votre... www.commentcamarche.net/faq/sujet-962-excel-chemin-et-nom-de-stockage-de-feuille-de-calcul
Google - Fonction calculatriceGoogle dispose d'une calculatrice intégrée. Pour l'utiliser, il suffit simplemement d'entrer une expression dans le champ de saisie et de lancer la recherche ! Cette fonction est aussi accessible à partir de la barre Google ou des navigateurs... www.commentcamarche.net/faq/sujet-814-google-fonction-calculatrice
VBA et les collections d'objets.VBA et les collections d'objets Quand plusieurs (beaucoup de) contrôles sont mis sur une feuille ou un Userform il est parfois fastidieux d'écrire du code dans chaque évènement des contrôles. Ce Tuto vous permet de traiter vos contrôles comme... www.commentcamarche.net/faq/sujet-10397-vba-et-les-collections-d-objets
Petite boucle en vba... (Résolu)hello, je débute dans vba... une application crée en fin d'exécution un fichier texte dans un répertoire déterminé. Je souhaite ouvrir ce fichier dès qu'il apparait... en somme une boucle qui regarde periodiquement dans un répertoire et... www.commentcamarche.net/forum/affich-2671107-petite-boucle-en-vba
Boucle sous vba (Résolu)Bonjour, Petite question, je début sous excel et j'ai un ptit pb !! enfaite j'ai créer une userfom.. avec un bouton sous excel .. jusque là ça marche nikel dans ma userform j'ai des textbox et combobox ... et enfaite les données sont... www.commentcamarche.net/forum/affich-5767499-boucle-sous-vba
[VB] Boucle (Résolu)Bonjour, Je débute en VB et j'aimerais savoir s'il est possible de faire une boucle dans une déclaration de variables. En effet, j'ai fait un programme qui va chercher des données dans x feuilles Excel et plutôt que d'effectuer x... www.commentcamarche.net/forum/affich-1480387-vb-boucle
Télécharger Ma Calculatrice Windows propose par défaut une calculatrice avec des fonctions dites scientifiques mais tout de même incomplètes. MaCalculatrice est une calculatrice beaucoup plus complète et évoluée. C'est une calculatrice graphique et comprend divers modules... www.commentcamarche.net/telecharger/telecharger-34055817-ma-calculatrice
Télécharger Semagsoft CalculatorWindows propose par défaut une calculatrice qui propose ces défauts et ces inconvénients. Entre autres, cette calculatrice possède deux modes, le mode classique et le mode scientifique. Si vous n'aimez pas trop l'interface de cette calculatrice,... www.commentcamarche.net/telecharger/telecharger-34056424-semagsoft-calculator
Télécharger The Love Calculator L'amour est un grand mot, alors tous les moyens sont bons pour la trouver. Le nom de chacun peut en dire beaucoup sur la compatibilité entre deux personnes. The Love Calculator est un programme qui calcul l'affinité entre deux individus. Ce n'est pas... www.commentcamarche.net/telecharger/telecharger-34056038-the-love-calculator
VBScript - Les structures conditionnelles On appelle structure conditionnelle les instructions qui permettent de tester si une condition est vraie ou non, c'est-à-dire si la valeur de son expression vaut 0 ou 1 (VBScript associe le mot clé true à 1 et false à 0). Ces structures... www.commentcamarche.net/vbscript/vbscond.php3
Tableur - Les feuilles de calcul Un tableur présente les données et les formules sous forme d'un tableau (lignes et colonnes) appelé feuille de calcul. Une feuille de calcul est constitué de lignes (numérotées à l'aide de chiffres) et de colonnes (numérotées à l'aide de lettres). Le... www.commentcamarche.net/tableur/tabfeuille.php3
Technologies Internet - ADSL - Le dégroupage de la boucle locale On appelle "boucle locale" la partie finale de la ligne téléphonique arrivant à l'abonné. Afin de vous faire profiter de l'internet à haut débit (ADSL), les Fournisseurs d'Accès à Internet (FAI) doivent installer des équipements de liaison vers leur... www.commentcamarche.net/technologies/adsl-degroupage.php3
Toutes les réponses pour « Boucle de Calcul sous VBA »