Bonjour,
J'ai crée une boite de dialogue où l'utilisateur remplit des informations.
J'aimerais que chaque fois qu'il clique sur un bouton valider, les infos saisis se notent sous forme de tableau dans une page "Historique".
Donc je cherche à réaliser un code qui va dire :
test d'une ligne
si la ligne est vide : on note les infos
sinon : on passe à la ligne suivante
du style :
mais dans mon code il ne test qu'une ligne et si je met for m = 1 to 100 il m'en remplit 100 ....
Je ne maîtrise pas assez le Row pour savoir comment l'utiliser ...
Merci d'avance
J'ai crée une boite de dialogue où l'utilisateur remplit des informations.
J'aimerais que chaque fois qu'il clique sur un bouton valider, les infos saisis se notent sous forme de tableau dans une page "Historique".
Donc je cherche à réaliser un code qui va dire :
test d'une ligne
si la ligne est vide : on note les infos
sinon : on passe à la ligne suivante
du style :
Code:
déclaration des variables....
m = 2
If Worksheets("HistoriqueSaisie").Cells(m, 2).Value = "" Then
Worksheets("HistoriqueSaisie").Cells(m, 2).Value = TB1.Value
Worksheets("HistoriqueSaisie").Cells(m, 3).Value = Désignation
Worksheets("HistoriqueSaisie").Cells(m, 4).Value = nomfeuille
Worksheets("HistoriqueSaisie").Cells(m, 5).Value = jour
Worksheets("HistoriqueSaisie").Cells(m, 6).Value = TB2.Value
Else
Worksheets("HistoriqueSaisie").Cells(m + 1, 2).Value = TB1.Value
Worksheets("HistoriqueSaisie").Cells(m + 1, 3).Value = Désignation
Worksheets("HistoriqueSaisie").Cells(m + 1, 4).Value = nomfeuille
Worksheets("HistoriqueSaisie").Cells(m + 1, 5).Value = jour
Worksheets("HistoriqueSaisie").Cells(m + 1, 6).Value = TB2.Value
End If
mais dans mon code il ne test qu'une ligne et si je met for m = 1 to 100 il m'en remplit 100 ....
Je ne maîtrise pas assez le Row pour savoir comment l'utiliser ...
Merci d'avance