Historique Sous Excel
Résolu
Rom189
-
jordane45 Messages postés 40050 Statut Modérateur -
jordane45 Messages postés 40050 Statut Modérateur -
Bonjour,
J'ai besoin de vôtre aide, j'ai un niveau correcte en VBA, mais la je vous avoue je suis un peut bloquer...
Donc voila mon problème, j'aimerai crée un historique des valeurs d'une ligne, simple me direz vous, mais voila le problème est le suivant :
En cliquant sur un bouton, un message box s'ouvre dans lequel je remplis les différentes informations nécessaire à l'emprunt de matériel, et entre les informations dans un tableau.
Maintenant j'aimerai qu'a la prochaine validation d'un autre emprunt, celui ci s'affiche dans la ligne du dessous de ma ligne initiale, de façon à faire un suivis des stocks.
Donc quand je rentre mon code pour faire mon historique de valeur, cela ne change rien, est ce que quelqu'un serais capable de m'aider svp !!! :/
A1 = Emprunteur
B1 = Matériel
C1 = Date
D1 = Quantité
E1 = Chantier
et j'aimerai qu'a la suite de mon textbox les nouvelles valeurs s'affichent en A2 B2 C2 D2 E2, puis à l'emprunt d'après en B3 C3 D3 E3, etc.
J'ai déjà fait le doc Excel si ça peut vous aider pour comprendre et travailler, donner moi votre adresse mail que je vous l'envoi, car je ne peut rien mettre ici...
Un grand merci d'avance !
J'ai besoin de vôtre aide, j'ai un niveau correcte en VBA, mais la je vous avoue je suis un peut bloquer...
Donc voila mon problème, j'aimerai crée un historique des valeurs d'une ligne, simple me direz vous, mais voila le problème est le suivant :
En cliquant sur un bouton, un message box s'ouvre dans lequel je remplis les différentes informations nécessaire à l'emprunt de matériel, et entre les informations dans un tableau.
Maintenant j'aimerai qu'a la prochaine validation d'un autre emprunt, celui ci s'affiche dans la ligne du dessous de ma ligne initiale, de façon à faire un suivis des stocks.
Donc quand je rentre mon code pour faire mon historique de valeur, cela ne change rien, est ce que quelqu'un serais capable de m'aider svp !!! :/
A1 = Emprunteur
B1 = Matériel
C1 = Date
D1 = Quantité
E1 = Chantier
et j'aimerai qu'a la suite de mon textbox les nouvelles valeurs s'affichent en A2 B2 C2 D2 E2, puis à l'emprunt d'après en B3 C3 D3 E3, etc.
J'ai déjà fait le doc Excel si ça peut vous aider pour comprendre et travailler, donner moi votre adresse mail que je vous l'envoi, car je ne peut rien mettre ici...
Un grand merci d'avance !
A voir également:
- Historique Sous Excel
- Liste déroulante excel - Guide
- Historique presse-papier android - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
2 réponses
Bonjour,
Si tu sais écrire des valeurs dans des cellules excel en VBA ... la seule chose qu'il te manque est de pouvoir déterminer quelle est la prochaine ligne vide disponible.
Pour cela, tu peux utiliser :
et donc pour écrire tes données :
Si tu sais écrire des valeurs dans des cellules excel en VBA ... la seule chose qu'il te manque est de pouvoir déterminer quelle est la prochaine ligne vide disponible.
Pour cela, tu peux utiliser :
dim nextLigne as Long
nextLigne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row+1
et donc pour écrire tes données :
cells(nextLigne ,"A").value = "ta valeur..de colonne a" cells(nextLigne ,"B").value = "ta valeur..colonne b" cells(nextLigne ,"C").value = "ta valeur..colonne c" '...etc...
Le code de ton classeur n'est clairement pas celui que je t'ai donné...
enfin bon....
ceci fonctionne :
enfin bon....
ceci fonctionne :
Private Sub CommandButton1_Click()
Dim nextLigne As Long
Dim Sh As Worksheet
Set Sh = Sheets("Consommable")
nextLigne = Sh.Cells.Find("*", Range("B1"), , , xlByRows, xlPrevious).Row + 1
Sh.Range("B" & nextLigne).Value = UserForm1.TextBox1.Value
Sh.Range("C" & nextLigne).Value = UserForm1.TextBox2.Value
Sh.Range("D" & nextLigne).Value = UserForm1.TextBox3.Value
Sh.Range("E" & nextLigne).Value = UserForm1.TextBox4.Value
Sh.Range("F" & nextLigne).Value = UserForm1.TextBox5.Value
Unload Me
End Sub
http://www.fichier-xls.fr/2015/03/16/historique-1-0/