Bonjour à tous,
Je commence en VBA et j'ai, comme tout le monde au début je suppose quelques petits blocages .
Lors de la validation de mon Userform, j'aimerais qu'a chaque fois les données de mes textbox soit copiées dans la ligne du dessous. J'ai essayé d'utiliser le code :
Y = Sheets("Matrice note de frais").Range("B10").End(xlUp).Row + 1
Mais le résultat n'était guère au rendez-vous
Je met mon code ci-dessous :
Merci par avance pour votre aide et bonne journée
Je commence en VBA et j'ai, comme tout le monde au début je suppose quelques petits blocages .
Lors de la validation de mon Userform, j'aimerais qu'a chaque fois les données de mes textbox soit copiées dans la ligne du dessous. J'ai essayé d'utiliser le code :
Y = Sheets("Matrice note de frais").Range("B10").End(xlUp).Row + 1
Mais le résultat n'était guère au rendez-vous
Je met mon code ci-dessous :
VB:
Private Sub AjouterFrais_Click()
Y = Sheets("Matrice note de frais").Range("B10").End(xlUp).Row + 1
ActiveSheet.Range("B10" & Y).Value = Date1
ActiveSheet.Range("C10" & Y).Value = Ville
ActiveSheet.Range("D10" & Y).Value = Description
End Sub
Merci par avance pour votre aide et bonne journée