Tom's Guide > Forum > Programmation > Tableau et boucle en VBA Excel

Tableau et boucle en VBA Excel

Forum Programmation : Tableau et boucle en VBA Excel

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

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.


Message édité par stagiaire01 le 05-11-2009 à 12:07:40
------------------------------ 69 bonnes raisons de preferé une bierre a une femme :
http://www.clanifun.com/blabla-f5/ [...] e-t817.htm
n°44- On peut décapsuler une bière sans tacher les draps
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Tom's Guide > Forum > Programmation > Tableau et boucle en VBA Excel
Aller à :

Il y a 737 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Liens