Astuces Excel
  1. Astuces Excel
  3. Affectation de valeurs au tableau bidimensionnel
Intereting Posts
Comment puis-je remplir automatiquement une colonne où datatables sont tirées d'une autre feuille? Exportation de file Excel en Java retirer le résultat de MATLAB vers Excel par rangée Remplissez automatiquement la gamme à l'aide d'adresses à partir de plusieurs feuilles? VSTO: Comment actualiser une formule lorsqu'une valeur de cellule change Comment puis-je append de la valeur directement sous un certain champ dans Excel VBA? VBA – Existe-t-il un moyen de coder une fonction de sélection-tout et de copy pour get des données de la plupart des applications Windows? c # Excel ignorant la première ligne? DdddddMMdMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMFhvMMMMFhhMMMM Objets Symphony et Objets d'application Excel Fichier d'aide dans Lotus Notes Comment débloquer une cellule particulière dans Excel Sheet en utilisant Apache POI N'ajoutez que des cellules dans la colonne lorsque le total de plusieurs autres cellules dans cette rangée est égal à 5 Impossible d'get la propriété de correspondance de la class de fonction WorkSheet – Syntaxe? Modifier les marges dans un document Word.Application d'Excel Supprimer / Supprimer les lignes en double de 5 colonnes

Affectation de valeurs au tableau bidimensionnel

J'essaie d'get des données que je saisis avec une autre macro dans un tableau bidimensionnel afin que je puisse appliquer une fonction à ces données, mais peu importe ce que j'essaye, je continue à avoir des erreurs. Les données include les strings et les nombres. Je pourrais toujours simplement faire reference aux cellules et oublier le tableau, mais cela complique la fonction. Voici mon code:

(Déclarations) 

Dim nLiens As Byte, nCreditors As Byte Dim SecurityV As Currency, ASecurityV As Currency Const adjuster = 0.9

(Sous-set pertinent) 

 Public Sub VariableDeclaration() nLiens = InputBox("Enter number of liens in security") nCreditors = InputBox("Enter number of creditors") SecurityV = InputBox("Enter security full value") ASecurityV = adjuster * SecurityV Call ODebt End Sub Sub ODebt() ' '(...) ' Dim oDebt() As Variant ReDim oDebt(1 To nCreditors + 1, 1 To nLiens + 1) Dim rg As Range Set rg = Range(Cells(1, 1), Cells(nCreditors + 1, nLiens + 1)) oDebt = rg.Value MsgBox (oDebt) '>>> ERROR: type mismatch Call SAllocation End Sub ' Public Sub VariableDeclaration() nLiens = InputBox("Enter number of liens in security") nCreditors = InputBox("Enter number of creditors") SecurityV = InputBox("Enter security full value") ASecurityV = adjuster * SecurityV Call ODebt End Sub Sub ODebt() ' '(...) ' Dim oDebt() As Variant ReDim oDebt(1 To nCreditors + 1, 1 To nLiens + 1) Dim rg As Range Set rg = Range(Cells(1, 1), Cells(nCreditors + 1, nLiens + 1)) oDebt = rg.Value MsgBox (oDebt) '>>> ERROR: type mismatch Call SAllocation End Sub ' Public Sub VariableDeclaration() nLiens = InputBox("Enter number of liens in security") nCreditors = InputBox("Enter number of creditors") SecurityV = InputBox("Enter security full value") ASecurityV = adjuster * SecurityV Call ODebt End Sub Sub ODebt() ' '(...) ' Dim oDebt() As Variant ReDim oDebt(1 To nCreditors + 1, 1 To nLiens + 1) Dim rg As Range Set rg = Range(Cells(1, 1), Cells(nCreditors + 1, nLiens + 1)) oDebt = rg.Value MsgBox (oDebt) '>>> ERROR: type mismatch Call SAllocation End Sub

J'ai essayé d'autres alternatives, comme la configuration de la cellule de contenu par cellule avec deux loops 'For' et LBound et UBound , mais rien ne semble fonctionner.

Vous n'obtenez pas votre erreur lors du remplissage, mais en affichant le tableau. Il n'est pas possible de Msgbox simplement un Msgbox car Msgbox s'attend à un argument Ssortingng. Vous pouvez, d'autre part, afficher des positions spécifiques (p. oDebt(1,1) . oDebt(1,1) ).

Si vous souhaitez examiner tous ses contenus, utilisez le mode de debugging et la window Local , ou imprimez-le dans des cellules inutilisées.

Je copyrais les valeurs de la feuille de données de cette façon: 

 Dim oDebt As Variant Dim rg As Range Set rg = Range(Cells(1, 1), Cells(nCreditors + 1, nLiens + 1)) oDebt = rg ' get data from sheet '... do calculations with oDebt array rg = oDebt ' put data on sheet

En mots: vous dimensionnez le tableau automatiquement en assignant la plage. Si vous avez besoin des limites numériques, utilisez 

 nrows = UBound(oDebt, 1) ncols = UBound(oDebt, 2)

Ici, vous voyez aussi la signification de la dimension, l'index 1 est une ligne, l'index 2 est une colonne.