VBA Rajout de la valeur dans la 1ère ligne vide Excel
Bonjour,
Je début dans l'utilisation du VBA.
J'ai créé une macro permettant de rajouter des données issues d'InputBox dans un tableau.
Les 1ere données rentrées via les Inputbox se répercutent bien sur la ligne 2 de ma feuille "Analyse détaillé".
Mais comment puis-je incrémenter automatiquement à la ligne suivante mes futures ou nouvelles entrées (sur la ligne 3, 4, etc....) ?
Exemple de mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
| Sub macro1()
'Variable InputBox
Dim Environnement As String
Dim Domaine As String
Dim DescTest As String
Dim Evol As String
Dim varDate As Date
Dim Charge As Integer
Dim Statut As String
'Remplir l'environnement de test
Environnement = Inputbox("Renseigner l'environement de test", "Détermination du Test", "QSM")
'Remplir le Domaine de test
Domaine = Inputbox("Renseigner Domaine de test", "Détermination du Domaine", "")
'Remplir le Descriptif du test
DescTest = Inputbox("Renseigner le descriptif du test", "Descriptif du test", "")
'Remplir le type d'évolution
Evol = Inputbox("Renseigner le type d'évolution", "Type d'évolution", "")
'Remplir la date de transport
varDate = Inputbox("Renseigner la date de transport", "Date de transport", "")
'Remplir la charge de test estimée
Charge = Inputbox("Renseigner la charge estimée", "Charge de test", "")
'Remplir le statut du test
Statut = Inputbox("Renseigner le Statut du test", "Statut du test", "En cour")
'Redescente des informations dans le tableau
rep = MsgBox(Environnement & "-" & Domaine & "-" & DescTest & "-" & Evol & "-" & varDate & "-" & Charge & "-" & Statut, vbOKCancel)
'Copie des données renseigner dans les InputBox dans le tableau
Sheets("Analyse détaillé").Range("A2") = Environnement
Sheets("Analyse détaillé").Range("B2") = Domaine
Sheets("Analyse détaillé").Range("C2") = DescTest
Sheets("Analyse détaillé").Range("D2") = Evol
Sheets("Analyse détaillé").Range("E2") = varDate
Sheets("Analyse détaillé").Range("H2") = Charge
Sheets("Analyse détaillé").Range("G2") = Statut
End Sub |
Je vous remercie pour votre aide.
PS : Si vous voyez des choses à améliorer dans mon code je suis preneur :lol:
Cyril.
