Bonjour,
Si je crée un tableau à partir d'une Range et que je désire le parcourir,
j'obtiens une erreur 9 ("L'indice n'appartient pas à la sélection.").
Exemple
Public Sub Essai()
tabTmp = Range("A1:A1000").Value
For i = LBound(tabTmp) To UBound(tabTmp)
Cells(i, 2) = tabTmp(i)
Next i
End Sub
Pourquoi ?
En fait je voulais répondre à l'interrogation de ced Vitesse d'exécution
(optimiser)
Mon idée
Créer 3 tableaux à partir des Range concernées. Verifier à partir de la
valeur contenues dans le tableau
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Joël GARBE
Bonsoir,
Il semble qu'il manque une composante ;-)
Public Sub Essai() Dim TabTmp As Variant Dim i As Integer TabTmp = Range("A1:A1000").Value For i = LBound(TabTmp) To UBound(TabTmp) Cells(i, 2) = TabTmp(i, 1) Next i End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Jean-Claude" a écrit dans le message de news: %
Bonjour, Si je crée un tableau à partir d'une Range et que je désire le parcourir, j'obtiens une erreur 9 ("L'indice n'appartient pas à la sélection."). Exemple
Public Sub Essai() tabTmp = Range("A1:A1000").Value For i = LBound(tabTmp) To UBound(tabTmp) Cells(i, 2) = tabTmp(i) Next i End Sub
Pourquoi ?
En fait je voulais répondre à l'interrogation de ced Vitesse d'exécution (optimiser)
Mon idée Créer 3 tableaux à partir des Range concernées. Verifier à partir de la valeur contenues dans le tableau
Merci d'avance -- A+ Jean-Claude
Bonsoir,
Il semble qu'il manque une composante ;-)
Public Sub Essai()
Dim TabTmp As Variant
Dim i As Integer
TabTmp = Range("A1:A1000").Value
For i = LBound(TabTmp) To UBound(TabTmp)
Cells(i, 2) = TabTmp(i, 1)
Next i
End Sub
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Jean-Claude" <jcvalProut@wanadoo.fr> a écrit dans le message de news:
%23qLYL5JrEHA.1988@TK2MSFTNGP09.phx.gbl...
Bonjour,
Si je crée un tableau à partir d'une Range et que je désire le parcourir,
j'obtiens une erreur 9 ("L'indice n'appartient pas à la sélection.").
Exemple
Public Sub Essai()
tabTmp = Range("A1:A1000").Value
For i = LBound(tabTmp) To UBound(tabTmp)
Cells(i, 2) = tabTmp(i)
Next i
End Sub
Pourquoi ?
En fait je voulais répondre à l'interrogation de ced Vitesse d'exécution
(optimiser)
Mon idée
Créer 3 tableaux à partir des Range concernées. Verifier à partir de la
valeur contenues dans le tableau
Public Sub Essai() Dim TabTmp As Variant Dim i As Integer TabTmp = Range("A1:A1000").Value For i = LBound(TabTmp) To UBound(TabTmp) Cells(i, 2) = TabTmp(i, 1) Next i End Sub
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Jean-Claude" a écrit dans le message de news: %
Bonjour, Si je crée un tableau à partir d'une Range et que je désire le parcourir, j'obtiens une erreur 9 ("L'indice n'appartient pas à la sélection."). Exemple
Public Sub Essai() tabTmp = Range("A1:A1000").Value For i = LBound(tabTmp) To UBound(tabTmp) Cells(i, 2) = tabTmp(i) Next i End Sub
Pourquoi ?
En fait je voulais répondre à l'interrogation de ced Vitesse d'exécution (optimiser)
Mon idée Créer 3 tableaux à partir des Range concernées. Verifier à partir de la valeur contenues dans le tableau
Merci d'avance -- A+ Jean-Claude
Jean-Claude
Merci pour ce petit 1 qui me tarabustait depuis un moment. Comme quoi vouloir répondre permet d'apprendre Encore merci Jc
Merci pour ce petit 1 qui me tarabustait depuis un moment.
Comme quoi vouloir répondre permet d'apprendre
Encore merci
Jc