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
JB
Bonsoir,
On ne peut pas créer de noms de variable indicés dynamiquement: En revanche, on peut créer dynamiquement des noms indicés qui vont contenir des valeurs.{2.3.4..}
Sub CreeNomsDynamiques() For i = 1 To 4 ActiveWorkbook.Names.Add Name:= _ "tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i, 255).End(xlToLeft)).Value Next i End Sub
Sub essai() i = 2 x = "tableau" & i a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a() MsgBox a(1) End Sub
Transfert d'un champ dans un tableau à 2 dimensions a() puis extraction d'une ligne dans un autre tableau b().
Sub essai2() a = [A1:H10] ' tableau a() à 2 dimensions i=2 b = Application.Index(a, i) ' 2eme ligne de a() dans tableau b() à 1 dimension MsgBox b(1) End Sub
Soit 100 lignes ou plus de longueur différentes Que des chiffres
Chaque ligne et ses chiffres doit corespondre à un tableau créer dynamiquement
Tableau_ & Numéro de la ligne
ex :
ligne 1 : 1 2 3 4 5>>Tableau_1(1,2,3,4,5) ligne 2: 2 3 4 5 6 7 8 >>Tableau_2(1,2,3,4,5,6,7,8)
etc...
merci
Bonsoir,
On ne peut pas créer de noms de variable indicés dynamiquement:
En revanche, on peut créer dynamiquement des noms indicés qui vont
contenir des valeurs.{2.3.4..}
Sub CreeNomsDynamiques()
For i = 1 To 4
ActiveWorkbook.Names.Add Name:= _
"tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i,
255).End(xlToLeft)).Value
Next i
End Sub
Sub essai()
i = 2
x = "tableau" & i
a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a()
MsgBox a(1)
End Sub
Transfert d'un champ dans un tableau à 2 dimensions a() puis
extraction d'une ligne dans un autre tableau b().
Sub essai2()
a = [A1:H10] ' tableau a() à 2 dimensions
i=2
b = Application.Index(a, i) ' 2eme ligne de a() dans tableau b()
à 1 dimension
MsgBox b(1)
End Sub
http://cjoint.com/?ieuPGnHy3e
JB
On 4 août, 19:42, PST <pgjigno...@wanadoo.fr> wrote:
On ne peut pas créer de noms de variable indicés dynamiquement: En revanche, on peut créer dynamiquement des noms indicés qui vont contenir des valeurs.{2.3.4..}
Sub CreeNomsDynamiques() For i = 1 To 4 ActiveWorkbook.Names.Add Name:= _ "tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i, 255).End(xlToLeft)).Value Next i End Sub
Sub essai() i = 2 x = "tableau" & i a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a() MsgBox a(1) End Sub
Transfert d'un champ dans un tableau à 2 dimensions a() puis extraction d'une ligne dans un autre tableau b().
Sub essai2() a = [A1:H10] ' tableau a() à 2 dimensions i=2 b = Application.Index(a, i) ' 2eme ligne de a() dans tableau b() à 1 dimension MsgBox b(1) End Sub
Soit 100 lignes ou plus de longueur différentes Que des chiffres
Chaque ligne et ses chiffres doit corespondre à un tableau créer dynamiquement
Tableau_ & Numéro de la ligne
ex :
ligne 1 : 1 2 3 4 5>>Tableau_1(1,2,3,4,5) ligne 2: 2 3 4 5 6 7 8 >>Tableau_2(1,2,3,4,5,6,7,8)
etc...
merci
PST
Je vais essayer de suivre,très instructif
Dans le dernier mesage, je n'avais pas vu les liens
Certains onglets du FTP sont vides, est ce normal ou c'est mon parametrage (Java désactivé)
merci pour les deux tableaux ,avec toutes les démos.
Bonsoir,
On ne peut pas créer de noms de variable indicés dynamiquement: En revanche, on peut créer dynamiquement des noms indicés qui vont contenir des valeurs.{2.3.4..}
Sub CreeNomsDynamiques() For i = 1 To 4 ActiveWorkbook.Names.Add Name:= _ "tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i, 255).End(xlToLeft)).Value Next i End Sub
Sub essai() i = 2 x = "tableau" & i a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a() MsgBox a(1) End Sub
Transfert d'un champ dans un tableau à 2 dimensions a() puis extraction d'une ligne dans un autre tableau b().
Sub essai2() a = [A1:H10] ' tableau a() à 2 dimensions i=2 b = Application.Index(a, i) ' 2eme ligne de a() dans tableau b( ) à 1 dimension MsgBox b(1) End Sub
Soit 100 lignes ou plus de longueur différentes Que des chiffres
Chaque ligne et ses chiffres doit corespondre à un tableau créer dynamiquement
Tableau_ & Numéro de la ligne
ex :
ligne 1 : 1 2 3 4 5>>Tableau_1(1,2,3,4,5) ligne 2: 2 3 4 5 6 7 8 >>Tableau_2(1,2,3,4,5,6,7,8)
etc...
merci
Je vais essayer de suivre,très instructif
Dans le dernier mesage, je n'avais pas vu les liens
Certains onglets du FTP sont vides, est ce normal ou c'est mon
parametrage (Java désactivé)
merci pour les deux tableaux ,avec toutes les démos.
Bonsoir,
On ne peut pas créer de noms de variable indicés dynamiquement:
En revanche, on peut créer dynamiquement des noms indicés qui vont
contenir des valeurs.{2.3.4..}
Sub CreeNomsDynamiques()
For i = 1 To 4
ActiveWorkbook.Names.Add Name:= _
"tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i,
255).End(xlToLeft)).Value
Next i
End Sub
Sub essai()
i = 2
x = "tableau" & i
a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a()
MsgBox a(1)
End Sub
Transfert d'un champ dans un tableau à 2 dimensions a() puis
extraction d'une ligne dans un autre tableau b().
Sub essai2()
a = [A1:H10] ' tableau a() à 2 dimensions
i=2
b = Application.Index(a, i) ' 2eme ligne de a() dans tableau b( )
à 1 dimension
MsgBox b(1)
End Sub
http://cjoint.com/?ieuPGnHy3e
JB
On 4 août, 19:42, PST <pgjigno...@wanadoo.fr> wrote:
Dans le dernier mesage, je n'avais pas vu les liens
Certains onglets du FTP sont vides, est ce normal ou c'est mon parametrage (Java désactivé)
merci pour les deux tableaux ,avec toutes les démos.
Bonsoir,
On ne peut pas créer de noms de variable indicés dynamiquement: En revanche, on peut créer dynamiquement des noms indicés qui vont contenir des valeurs.{2.3.4..}
Sub CreeNomsDynamiques() For i = 1 To 4 ActiveWorkbook.Names.Add Name:= _ "tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i, 255).End(xlToLeft)).Value Next i End Sub
Sub essai() i = 2 x = "tableau" & i a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a() MsgBox a(1) End Sub
Transfert d'un champ dans un tableau à 2 dimensions a() puis extraction d'une ligne dans un autre tableau b().
Sub essai2() a = [A1:H10] ' tableau a() à 2 dimensions i=2 b = Application.Index(a, i) ' 2eme ligne de a() dans tableau b( ) à 1 dimension MsgBox b(1) End Sub