Bonjour a tous,
Je suis un gros debutant en programmation (même si j'en ai fait 2 ans)
J'ai quelques base mais la je seche comme a la bonne époque :p
J'ai un un fichier excel feuille TEMP avec ceci dedans :
Date opération;Date valeur;libellé;Débit;Crédit;
01/09/2017;01/09/2017;vir ;; 250;
01/09/2017;01/09/2017;vir b;; 250;
01/09/2017;01/09/2017;chq 2382809;-30;
04/09/2017;04/09/2017;chq 2382812;-30;
05/09/2017;05/09/2017;vir c;; 475,64;
06/09/2017;06/09/2017;chq 2382815;-56,73;
06/09/2017;06/09/2017;chq 2382816;-32,48;
06/09/2017;06/09/2017;prlv;-1,9;
07/09/2017;07/09/2017;vir c;; 91,86;
07/09/2017;07/09/2017;chq 2382813;-9;
08/09/2017;08/09/2017;chq 2382814;-30;
Je voudrais via le code ci-dessous remplir un tableau a plusieurs dimensions x lignes pour 4 colonnes
Public compteur As Integer
Public NbrLigne As Integer
Sub extractionMots()
Dim Tableau
ReDim Tableau(28, 3)
Dim i As Integer
Dim ligne As Integer
Dim col As Integer
Dim rows As Integer
rows = 1
col = 0
'boucle sur le tableau pour visualiser le résultat
For i = 0 To UBound(Tableau)
For col = 0 To 3
Tableau(i, col) = Split(Sheets("TEMP").Cells(rows, 1), ";")
Next col
rows = rows + 1
MsgBox Tableau(i, col)
Next i
End Sub
Private Sub CommandButton1_Click()
ligne = ligne + 1
TextBox1.Text = ligne
If ligne = NbrLigne Then
CommandButton1.Enabled = False
End If
extractionMots
End Sub
Private Sub UserForm_Initialize()
NbrLigne = Application.CountA(Sheets("TEMP").Range("A:A"))
ligne = 1
TextBox1.Text = ligne
End Sub
J'y vais vraiment par étape car le but final c'est d'importer un fichier excel de de faire mes comptes avec.
Le fichier boucle sur le fichier ligne par ligne et a chaque ligne j'interagi pour additionner des valeurs en fonction d'une catégorie.
Par exemple la ligne suivant apparait
01/09/2017;01/09/2017;vir ;; 250;
je clique sur mon fichier excel dans la catégorie course et cela va s'additionner... mais j'en suis encore loin
Donc concretement comment bien remplir mon tableau a plusieurs entrées?
Comment puis-je vérifier que les entrées sont correctes?
La actuellement j'ai un message d'erreur 'Lindice n'appartient pas a la selection"..
Merci