XL 2016 Objet range VBA

Jass932 · 31 Mars 2022

Bonjour,

je n'arrive pas à insérer un range d'une autre feuille dans la boucle souligné. pourriez-vous m'aider? dans ma formule il y a deux ranges à insérer. les datas se trouvent sur une autre feuille (data).

Private Sub CommandButton1_Click()
Range("C:Z") = ""
nombreserie = Cells(3, 2)
Taille = Cells(2, 2)

Range("C:Z") = ""
nombreserie = Cells(3, 2)
Taille = Cells(2, 2)

Sheets("DATA").Activate

For i = 1 To nombreserie
Sheets("resultat").Cells(2, i + 4) = Sheets("DATA").Cells(1, 1 + i)
Sheets("resultat").Cells(i + 2, 4) = Sheets("DATA").Cells(1, 1 + i)
Sheets("resultat").Cells(6 + nombreserie, 4 + i) = Sheets("DATA").Cells(1, 1 + i)
Sheets("resultat").Cells(i + 6 + nombreserie, 4) = Sheets("DATA").Cells(1, 1 + i)
Next

For j = 1 To nombreserie
For i = 1 To nombreserie
Cells(2 + j, i + 4) = macov(Sheets("DATA").Range(Cells(2, 1 + j), Cells(Taille, 1 + j)), Sheets("DATA").Range(Cells(2, 1 + i), Cells(Taille, 1 + i)))
Cells(6 + j + nombreserie, i + 4) = macorr(Sheets("DATA").Range(Cells(2, 1 + j), Cells(Taille, 1 + j)), Sheets("DATA").Range(Cells(2, 1 + i), Cells(Taille, 1 + i)))
Next
Next

Phil69970 · 31 Mars 2022

Bonjour @Jass932

Que veux dire ceci ?

Jass932 à dit:
Cells(2 + j, i + 4) = macov(Sheets("DATA").Range(Cells(2, 1 + j), Cells(Taille, 1 + j)), Sheets("DATA").Range(Cells(2, 1 + i), Cells(Taille, 1 + i)))
Cells(6 + j + nombreserie, i + 4) = macorr(Sheets("DATA").Range(Cells(2, 1 + j), Cells(Taille, 1 + j)), Sheets("DATA").Range(Cells(2, 1 + i), Cells(Taille, 1 + i)))

@Phil69970

Jass932 · 31 Mars 2022

Phil69970 à dit:
Bonjour @Jass932

Que veux dire ceci ?

@Phil69970

Bonjour,

Sur la feuille data j ai plusieurs données. En appliquant la forme j'obtiens la covariance entre chacune des données. Le but de cette boucle est d'obtenir un tableau avec les résultats.
C'est pour un devoir je n'ai pas le droit d utilise les worksheet.function voila pourquoi je dois passer par une formule faite maison.

TooFatBoy · 31 Mars 2022

Bonjour,

Jass932 à dit:
voila pourquoi je dois passer par une formule faite maison.

Ne serait-ce pas plutôt des fonctions personnelles ?

Jass932 · 31 Mars 2022

Marcel32 à dit:
Bonjour,

Ne serait-ce pas plutôt des fonctions personnelles ?

Oui c'est bien ça

TooFatBoy · 31 Mars 2022

OK.

Et où se trouve exactement ton problème de copie de Range ?

Phil69970 · 31 Mars 2022

Re

Jass932 à dit:
C'est pour un devoir je n'ai pas le droit d utilise les worksheet.function

A titre perso ma vision des choses de ce que j'ai compris et si j'ai bien compris :
Désolé mais je ne fais pas les devoirs des autres.

@Phil69970

Jass932 · 31 Mars 2022

Jass932 à dit:
Oui c'est bien ça

Ma formule perso necessite 2 ranges qui sont les données contenu sur ma feuille data. Le probleme est que dans ma boucle les deux ranges ne sont pas pris en compte. Quand je lance le code, je recois une erreur. J'imagine que le code ne reconnait pas les deux range. Mais je n'arrives pas à trouver le moyen pour que le code reconnaisse mes deux range pour pouvoir appliquer ma formule dessus.

TooFatBoy · 31 Mars 2022

Jass932 à dit:
Ma formule perso necessite 2 ranges qui sont les données contenu sur ma feuille data. Le probleme est que dans ma boucle les deux ranges ne sont pas pris en compte. Quand je lance le code, je recois une erreur.
J'imagine que le code ne reconnait pas les deux range. Mais je n'arrives pas à trouver le moyen pour que le code reconnaisse mes deux range pour pouvoir appliquer ma formule dessus.

Un code ça ne reconnait rien, ça fait juste ce qu'on lui dit de faire.

Vu d'ici c'est juste pas évident...

Jass932 · 31 Mars 2022

Marcel32 à dit:
Un code ça ne reconnait rien, ça fait juste ce qu'on lui dit de faire.

Vu d'ici c'est juste pas évident...

Haha oui c'est vrai disons que je n'arrive pas à lui faire comprendre ce que je veux. J"imagine que c'est un probleme de syntaxe. La syntaxe a utilisé est bien Sheets(Nom_de_la_feuille).range(cells (x,y)),(cells (x,y))?

TooFatBoy · 31 Mars 2022

Jass932 à dit:
La syntaxe a utilisé est bien Sheets(Nom_de_la_feuille).range(cells (x,y),cells (x,y)) ?

Normalement OUI.

Mais, si je ne me trompe, ça dépend de la feuille active.
Je pense que si les Cells(x,y) sont dans une autre feuille que la feuille active, alors il faut préciser la feuille pour les Cells.

Donc tu utilises :

VB:

Sheets(Nom_de_la_feuille).range(Sheets(Nom_de_la_feuille).cells (x,y),Sheets(Nom_de_la_feuille).cells (x,y))

ou

VB:

With Sheets(Nom_de_la_feuille)
    .range(.cells (x,y),.cells (x,y))
End With

Jass932 · 3 Avril 2022

Marcel32 à dit:
Normalement OUI.

Mais, si je ne me trompe, ça dépend de la feuille active.
Je pense que si les Cells(x,y) sont dans une autre feuille que la feuille active, alors il faut préciser la feuille pour les Cells.

Donc tu utilises :

VB:

Sheets(Nom_de_la_feuille).range(Sheets(Nom_de_la_feuille).cells (x,y)),Sheets(Nom_de_la_feuille).cells (x,y))

ou

VB:

With Sheets(Nom_de_la_feuille) .range(.cells (x,y),.cells (x,y)) End With

Bonjour, je viens de mettre à jour le code et tout fonctionne, merci de votre aide.

XL 2016 Objet range VBA

Jass932

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Jass932

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Jass932

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Jass932

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Jass932

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Jass932

XLDnaute Nouveau

Discussions similaires