voici mon code :
dim tableau()
redim tableau(1,3)
je cherche des donnees sur une feuille et selon les
donnees trouvees je veux redimensionner mon tableu .
exemple :
donnee 1 trouve -> tableau(1,1)= donnee1
tableau(1,2)= donnee1a
tableau(1,3)= donnee1b
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
isabelle
Bonjour Gus,
voici un exemple pour un tableau de x ligne par x colonne mit sur la feuille 1
Sub Macro1() Dim Tableau() As String Dim I As Integer, J As Integer Dim x As Integer, y As Integer I = Sheets("Feuil1").Range("IV1").End(xlToLeft).Column J = Sheets("Feuil1").Range("A65536").End(xlUp).Row ReDim Preserve Tableau(1 To J, 1 To I) For y = 1 To I For x = 1 To J Tableau(x, y) = Sheets("Feuil1").Cells(x, y) Next Next 'vérifier les données du tableau Sheets("Feuil2").Range("A1:C" & J).Value = Tableau End Sub
isabelle
voici mon code : dim tableau() redim tableau(1,3) je cherche des donnees sur une feuille et selon les donnees trouvees je veux redimensionner mon tableu . exemple :
donnee 1 trouve -> tableau(1,1)= donnee1 tableau(1,2)= donnee1a tableau(1,3)= donnee1b
mais l'erreur suivante apparait :"l'indice n'appartient pas a la selection" . Je ne comprend pas pourquoi cette erreur ?
Bonjour Gus,
voici un exemple pour un tableau de x ligne par x colonne mit sur la
feuille 1
Sub Macro1()
Dim Tableau() As String
Dim I As Integer, J As Integer
Dim x As Integer, y As Integer
I = Sheets("Feuil1").Range("IV1").End(xlToLeft).Column
J = Sheets("Feuil1").Range("A65536").End(xlUp).Row
ReDim Preserve Tableau(1 To J, 1 To I)
For y = 1 To I
For x = 1 To J
Tableau(x, y) = Sheets("Feuil1").Cells(x, y)
Next
Next
'vérifier les données du tableau
Sheets("Feuil2").Range("A1:C" & J).Value = Tableau
End Sub
isabelle
voici mon code :
dim tableau()
redim tableau(1,3)
je cherche des donnees sur une feuille et selon les
donnees trouvees je veux redimensionner mon tableu .
exemple :
donnee 1 trouve -> tableau(1,1)= donnee1
tableau(1,2)= donnee1a
tableau(1,3)= donnee1b
voici un exemple pour un tableau de x ligne par x colonne mit sur la feuille 1
Sub Macro1() Dim Tableau() As String Dim I As Integer, J As Integer Dim x As Integer, y As Integer I = Sheets("Feuil1").Range("IV1").End(xlToLeft).Column J = Sheets("Feuil1").Range("A65536").End(xlUp).Row ReDim Preserve Tableau(1 To J, 1 To I) For y = 1 To I For x = 1 To J Tableau(x, y) = Sheets("Feuil1").Cells(x, y) Next Next 'vérifier les données du tableau Sheets("Feuil2").Range("A1:C" & J).Value = Tableau End Sub
isabelle
voici mon code : dim tableau() redim tableau(1,3) je cherche des donnees sur une feuille et selon les donnees trouvees je veux redimensionner mon tableu . exemple :
donnee 1 trouve -> tableau(1,1)= donnee1 tableau(1,2)= donnee1a tableau(1,3)= donnee1b