Ajouter des données dans un tableau = Range("A1", "A99"].val
Résolu
wire less
Messages postés
247
Statut
Membre
-
wire less Messages postés 247 Statut Membre -
wire less Messages postés 247 Statut Membre -
Bonjour,
Je dois ajouter une valeur dans un tableau :
J'ai essayé les méthodes suivantes, mais aucune ne fonctionne :
Bref, je suis paumé ...
Quelqu'un aurait un tuyau ???
Merci
Je dois ajouter une valeur dans un tableau :
Dim Tableau As Variant
Tableau = Range("A1", "A99"].value
J'ai essayé les méthodes suivantes, mais aucune ne fonctionne :
Tableau.AddItem "Toto"
Tableau.Add("Toto")
Tableau = Tableau & "Toto"
Bref, je suis paumé ...
Quelqu'un aurait un tuyau ???
Merci
A voir également:
- Ajouter des données dans un tableau = Range("A1", "A99"].val
- Tableau word - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Imprimer un tableau excel - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif ci-dessous. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des quatre premières colonnes. il manque 5 valeurs dans le tableau ci-dessous. retrouvez-les dans votre tableau, puis reportez-les arrondies à l’entier le plus proche. - Guide
3 réponses
Bonjour,
C'est la galère, les tableaux... Pour modifier sa taille, il faut utiliser l'instruction ReDim :
A+
C'est la galère, les tableaux... Pour modifier sa taille, il faut utiliser l'instruction ReDim :
Dim Tableau As Variant
Tableau = Range("A1", "A99").Value
ReDim Tableau(99)
For i = 0 To 98
Tableau(i) = Cells(i + 1, 1).Value
Next i
Tableau(99) = "Toto"
A+
Bonjour,
ou bien pour éviter la boucle :
On ne peut changer que la dernière dimension d'un tableau d'où le Transpose()
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
ou bien pour éviter la boucle :
Sub test()
Dim Tableau As Variant
Tableau = Application.Transpose(Range("A1", "A99").Value)
ReDim Preserve Tableau(1 To UBound(Tableau) + 1)
Tableau(UBound(Tableau)) = "Toto"
'[C1:C100] = Application.Transpose(Tableau)
End Sub
On ne peut changer que la dernière dimension d'un tableau d'où le Transpose()
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Salut Eric,
Une petite précision en complément de ta réponse.
Transpose fonctionnera parfaitement jusqu'à ... sa limite qui est 65536 (fonction de feuille excel inchangée en 2007).
Donc :
renverra une erreur 1004.
Pour les tableaux d'un nombre de "lignes" supérieur, il conviendra d'utiliser une fonction personnalisée, et donc, de boucler sur le tableau.
Amicalement,
Pijaku
Une petite précision en complément de ta réponse.
Transpose fonctionnera parfaitement jusqu'à ... sa limite qui est 65536 (fonction de feuille excel inchangée en 2007).
Donc :
Tableau = Application.Transpose(Range("A1", "A65537").Value)
renverra une erreur 1004.
Pour les tableaux d'un nombre de "lignes" supérieur, il conviendra d'utiliser une fonction personnalisée, et donc, de boucler sur le tableau.
Amicalement,
Pijaku
