Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 18/11/2011, 19h45   #1
Invité de passage
 
Homme
Inscription : novembre 2011
Messages : 5
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Secteur : Finance

Informations forums :
Inscription : novembre 2011
Messages : 5
Points : 1
Points : 1
Par défaut Fonction CORREL dans macro

Bonjour,

je suis plus que débutant en programmation. Je suis sous Excel2007.

voici ma formule (disons qu'elle est en cellule A1 et en feuille "Analyse"):
Code :
=COEFFICIENT.CORRELATION('Titre n°1'!I17:I46;'Titre n°3'!I17:I46)
Pour faire simple : lorsque je clique sur un bouton (présent sur la feuille "Analyse"), ma macro doit automatiquement effectuer le calcul ci dessus et l'afficher dans la cellule A1. Or, je ne parviens pas à la programmer... Pour info, la fonction COEFFICIENT.CORRELATION est CORREL en vba.

Je souhaite si possible que la formule n’apparaisse pas dans le champ de saisie, mais seulement le résultat.

Un coup de main??

Merci !
Nichrome est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/11/2011, 19h57   #2
Invité de passage
 
Homme
Inscription : novembre 2011
Messages : 5
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Secteur : Finance

Informations forums :
Inscription : novembre 2011
Messages : 5
Points : 1
Points : 1
J'ai avancé puisque j'ai réussi à macroter la formule

Code :
Range("D14").Formula = "=CORREL('Titre n°1'!I17:I46,'Titre n°3'!I17:I46)"
Cependant, celle ci s'affiche dans le champ de saisie, y a t-il moyen d'éviter cela?
Nichrome est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/11/2011, 20h16   #3
Membre Expert
 
Homme
Retraité
Inscription : avril 2011
Messages : 692
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Retraité

Informations forums :
Inscription : avril 2011
Messages : 692
Points : 1 443
Points : 1 443
Bonjour,

Avec VBA, à placer dans le code de la feuille "Analyse" (feuille où tu as placé ton CommandButton).

Code :
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
    Set ws1 = Worksheets("Titre n°1")
    Set ws2 = Worksheets("Titre n°3")
    Worksheets("Analyse").Range("A1") = Application.WorksheetFunction.Correl(ws1.Range("I17:I46"), ws2.Range("I17:I46"))
End Sub
Cordialement.
gFZT82 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/11/2011, 20h28   #4
Invité de passage
 
Homme
Inscription : novembre 2011
Messages : 5
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Secteur : Finance

Informations forums :
Inscription : novembre 2011
Messages : 5
Points : 1
Points : 1
C'est OK cela fonctionne. Merci pour ce coup de pouce, me reste plus qu'à comprendre, plutôt qu'à recopier bêtement
Nichrome est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h21.


 
 
 
 
Partenaires

Hébergement Web