Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Passer rapidement valeurs cellules dans variant

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mécano41
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mécano41

XLDnaute Accro
Bonjour à tous,

J'ai le code suivant pour tester une plage de cellules à l'aide d'une fonction qui nécessite des arguments de type Variant. Actuellement cela fonctionne parfaitement mais c'est long (13 s sur mon PC)

Code: 
Dim PlageTestX As Range
Dim ValTextX As Variant
Dim ValTextY As Variant

Set PlageTestX = Range("A1:A6000")
For Pos = PlageTestX.Rows.Count To 1 Step -1
    ValTextX = Range("A1").Resize(Pos, 1).Value
    ValTextY = Range("B1").Resize(Pos, 1).Value
    If Application.WorksheetFunction.Correl(ValTextY, ValTextX) ^ 2 > 0.999 Then Exit For
Next Pos

J'ai cherché comment faire passer rapidement les valeurs dans les deux variants ValTextX et ValTextY en chargeant d'abord un autre tableau ou un Variant avec la totalité des cellules puis en ne transférant que les lignes souhaitées dans les deux Variant ValTextX et ValTextY ...mais apparemment, ce n'est pas possible car le Variant n'est pas dynamique...Comment faire?

Merci d'avance (c'est pour aider Ration65 dans ce sujet :https://www.excel-downloads.com/threads/recuperation-de-la-partie-lineaire-dune-courbe.180552/)

Nota : j'ai également pensé à réduire le temps en remplaçant la boucle par une recherche dichotomique, mais je n'ai pas encore essayé...

Cordialement
 
Trier par date Trier par votes
Re : Passer rapidement valeurs cellules dans variant

bonjour,

essaie
ValTextX = Range("A1").Resize(Pos, 1).Value
à remplacer par ValTextX = cells(nr de ligne , nr de colonne)
c'est à dire cells(Pos,1) -> à vérifier

par ailleurs, déclarer en variant utilise un max d'espace mémoire, si tu affines en mettant le type de données utilisées, ton traitement peut également s'en trouver allégé
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Passer rapidement valeurs cellules dans variant

Bonjour Mutzik,

Merci pour ta réponse.

mutzik à dit:
...
ValTextX = Range("A1").Resize(Pos, 1).Value
à remplacer par ValTextX = cells(nr de ligne , nr de colonne)
c'est à dire cells(Pos,1) -> à vérifier
Cliquez pour agrandir...

1 - ValTextX et ValTextY passent des Variant sous forme de tableaux de valeurs à la fonction. Ce que tu me donnes Cells(L,C) passe une valeur unique...ou alors je n'ai pas compris.

Mon problème c'est que ValTextX(a,b)= xxx ne semble pas possible avec un Variant ni le transfert direct d'une plage d'un tableau ou d'un autre variant dans ce variant...

2 - Cells(L,C) serait plus rapide que Range(...).value ? (c'est simplement une question ; je n'ai pas testé...)


par ailleurs, déclarer en variant utilise un max d'espace mémoire, si tu affines en mettant le type de données utilisées, ton traitement peut également s'en trouver allégé
Cliquez pour agrandir...

Cela, je le sais mais ici c'est une obligation pour la fonction Correl...

Cordialement
 
Vote positif 0 Vote négatif
Re : Passer rapidement valeurs cellules dans variant

Bonjour mécano41, mutzik, mapomme,

Avec cette macro 6,8 secondes sur mon ordi fixe avec XP/Excel 2003 :

Code: 
Option Explicit
Option Base 1

Sub Test()
Dim t#, PlageTest, ub&, ValTextX(), ValTextY(), Pos&
t = Timer
PlageTest = [A1:B6000] 'matrice
ub = UBound(PlageTest)
ReDim ValTextX(1, ub)
ReDim ValTextY(1, ub)
For Pos = 1 To ub
  ValTextX(1, Pos) = PlageTest(Pos, 1)
  ValTextY(1, Pos) = PlageTest(Pos, 2)
Next
For Pos = ub To 1 Step -1
  ReDim Preserve ValTextX(1, Pos)
  ReDim Preserve ValTextY(1, Pos)
  If Application.Correl(ValTextY, ValTextX) ^ 2 > 0.999 Then Exit For
Next
' ---Affichage résultats---
[H2] = "Limite à X ="
[H3] = "R² ="
[I2] = PlageTest(Pos, 1)
[I3] = Application.Correl(ValTextY, ValTextX) ^ 2
MsgBox Timer - t
End Sub
La macro travaille uniquement sur des tableaux mais de toute façon le calcul du coefficient de corrélation prend du temps...

Fichier joint.

Edit : testé le même fichier sur mon portable avec W7/Excel 2010 => 3,8 secondes.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Passer rapidement valeurs cellules dans variant

Merci pour ces réponses. Sur mon PC : 5,3 s

Finalement, je l'ai fait par dichotomie et là, le temps est imperceptible.

Je joins le fichier ; cela pourra peut-être intéresser quelqu'un...

Encore merci.

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
528
dysorthographie
  • Question Question
Microsoft 365 Initialisation d'une variable tableau à partir d'une plage de cellules
2
Réponses
17
Affichages
891
job75
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
420
MATLEA
M
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
684
sylvanu
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
828
patricktoulon
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
768
oguruma
I
  • Résolu(e)
Microsoft 365 remplir un tableau Arr() en vba à partir des cellules visible
Réponses
4
Affichages
1 K
iliess
I
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
2 K
Sghaier Chafaa
S
EXCEL :: TCD :: SEGMENTS :: Identifier l'élément sélectionné dans le segment :: Modifier dynamiquement la valeur d'un segment :: VBA
Réponses
1
Affichages
841
oguruma
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
2 K
Dudu2
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
733
tactic6
G
  • Question Question
XL 2021 Dictionnaire - Calcul ne s'effectue pas
Réponses
2
Affichages
493
gvives
G
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
835
guiyom
G
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
  • Résolu(e)
XL 2016 Somme des valeurs de cellule avec la condition du mois et une valeur dans une colonne
Réponses
9
Affichages
812
Dadi147
P
  • Question Question
Microsoft 365 Optimisation code vba (remplissage automatique sous condition)
Réponses
5
Affichages
825
pamonnier
P
C
  • Question Question
Microsoft 365 VBA Moyennes avec conditions
Réponses
7
Affichages
814
AtTheOne
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
657
souhaib ad
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…