Se connecter avec
S'enregistrer | Connectez-vous

You are not allowed to do this.

Tableau et boucle en VBA Excel

Bonjour tout le monde,

Voila j'essaie de créer un script sous VBA pour mon excel afin de pouvoir m'en servir comme base de donnée ( mon supérieur veut pas d'un outil de base de donnée alors faut faire avec :lol:  )
Bref donc apres plusieurs script deja a mon actif juste apres avoir commencer a débuter ce langage hier pour la rédaction de ces mêmes scripts je me retrouve a un script apparement tres compliqué pour moi :)  .

Je vous le résume :

'on se place dans le feuillet "requête"
'on donne a la valeur K la valeur de l'id situé en D9
'ensuite on entre dans le feuillet "logiciel"
'pour l'id pareil que la valeur de la colonne A
'alors les données sont entrées dans le tableau[i,j]
'ou i = ligne et j = colonne
'on entre dans le feuillet "requête"
'on recherche la premiere ligne vide
'et on entre les données dans cette ligne vide au fur et à mesure de la boucle


et dans l'application cela me donne ca :

Sub ExempleTableau()

'Définition des variables
Dim i As Integer, j As Integer
Dim K As Integer

'*Choix du feuillet
Sheets("requête").Select

'*Attribution de l'id a la valeur K
K = Range("D9").Value

'*Définit le tableau à 2 dimensions ainsi que leur taille.
Dim VarTab(1 To 50, 1 To 50) As String

'*On ouvre la feuillet logiciel
Sheets("logiciel").Select

'*Pour i = 1 jusqu'à
For i = 1 To UBound(VarTab, 1) '*boucle sur la 1ere dimension

'* Si k = valeur de i
If Value = K Then
For j = 1 To UBound(VarTab, 2) '*boucle sur la 2eme dimension

'*Alimente les éléments du tableaux
VarTab(i, j) = i & j

'*on entre dans requête
Sheets("requête").Select

'*recherche ligne vide
nli = ActiveSheet.Range("A65356").End(xlUp).Row + 1

'*écrit le résultat du tableau[i,j] dans la ligne vide
ActiveSheet.Cells(nli, i, j) = VarTab(i, j)

Next j

End If

Next i

End Sub

Bien évidemment il ne marche pas pour le moment. Donc is une âme charitable :ange:  pouvait m'aider je lui en serais très reconnaissant. Et merci a ceux qui ont regardé mon problèmes même s'ils ne connaissent pas la réponse. Bonne journée.

Autres pages sur : tableau boucle vba excel

Lassé par la pub ? Créez un compte
Tom's guide dans le monde