Rapatriement d'une formule VBA vers Excel

[Clem13]

Bonjour, je cherche à faire un calcul de coefficient de corrélation, mais la base peut avoir toute les tailles.
J'ai crée un userform avec 2 "ref edit" pour selectionner les plages et un bouton validation

J'aimerais que quand il y a un click sur le bouton (et que les deux plages sont selectionnées, j'ai deja fait ce controle), il me copie la formule du coeff de correlation avec les valeurs des ref edit dans la cellule H4

J'ai tappé :
Range("H4").select
ActiveCell.FormulaR1C1=" =coefficient.correlation(refedit1.value;refedit2.value)"

Apparament ca n'est pas bon et la derniere ligne de ce code entraine le débogage ....

Merci d'avance de votre aide !

 

[Lord Nelson]

Re : Rapatriement d'une formule VBA vers Excel

Salut,

A ma connaissance, ta cellule H4 ne peut pas lire directement les objets d'un UserForm.
Essaie ceci, peut-être :

ActiveCell.FormulaR1C1="=coefficient.correlation(" & refedit1.value & ";" & refedit2.value & ")"

A+
Horatio

 

[Clem13]

Re : Rapatriement d'une formule VBA vers Excel

Merci de ta réponse rapide, mais ca ne fonctionne pas, il me fait un débogage sur cette meme ligne de code

 

[JNP]

Re : Rapatriement d'une formule VBA vers Excel

Bonjour Clem13 et Lord Nelson 🙂,
Attention, il faut que refedit.value soit du type string "A1:C10".
Bon courage 😎

 

[Clem13]

Re : Rapatriement d'une formule VBA vers Excel

Merci de la contribution mais comment programme t'on string(A1:C10) ?



Merci d'avance

 

[Clem13]

Re : Rapatriement d'une formule VBA vers Excel

Bon aprés bidouilles me voici avec le code suivant :

Private Sub CommandButton1_Click()
If RefEdit1 = "" And RefEdit2 = "" Then
rep = MsgBox("Veuillez saisir les plages de données", vbCritical, "ERREUR")
Else

Range("G4").Select
RefEdit1.Value = adr1
RefEdit2.Value = adr2
'Dim adr1 As string(,A1:C10)
'Dim adr2 As Range
ActiveCell.FormulaR1C1 = "=CORREL(" & adr1 & "," & adr2 & ")"
UserForm1.Hide
End If
End Sub


Resultat sur Excel :
=COEFFICIENT.CORRELATION(😉

J'avance mais je coince....

 

[Lord Nelson]

Re : Rapatriement d'une formule VBA vers Excel

Salut,

De mon côté, j'ai testé ceci :

ActiveCell.FormulaLocal = "=COEFFICIENT.CORRELATION(" & RefEdit1 & ";" & RefEdit2 & ")"

Et ça a l'air de fonctionner.

Peux-tu dire à quoi sert le coefficient de correlation ?

A+
Horatio

 

[JNP]

Re : Rapatriement d'une formule VBA vers Excel

Re 🙂,
Désolé, j'étais occupé ailleurs...
Voici 2 fonctions que j'avais créées pour mes propres besoins qui permettent de traduire les références colonnes de lettres en chiffres et vice-versa :

Function ConversionXC(X)
[COLOR=seagreen]' Conversion colonnes Excel de chiffres en lettres[/COLOR]
    If X < 27 Then
        ConversionXC = Chr$(X + 64)
    Else
        ConversionXC = Chr$(X \ 26 + 64) & Chr$(X Mod 26 + 64)
    End If
End Function

Function ConversionCX(C)
[COLOR=seagreen]' Conversion colonnes Excel de lettres en chiffres[/COLOR]
    If Len(C) = 1 Then
        ConversionCX = Asc(C) - 64
    Else
        ConversionCX = (Asc(Left(C, 1)) - 64) * 26 + Asc(Right(C, 1)) - 64
    End If
End Function

Il te suffit ensuite de concatèner pour obtenir la plage souhaitée. Ne pas oublier que entre nombres et lettres, l'ordre est inversé ("A10" = Cells(10, 1))
Bon courage 😎