|
|
|
|
Bonjour,
ma question est de savoir comment faire pour inserer la valeur correspondante dans une feuille nommé sheet2
voici le code
Sub CommandButton1_Click()
'déclaration des variables
Dim UserName As String
Dim LastRow As Long
'afferctation de valeur
UserName = InputBox("Please key the new user in the form name, firstname: ")
<gras>'saisie des données en cellules sur feuille sheet1 (a transferer sur sheet2)</gras>
LastRow = Range("A65536").End(xlUp).Row + 1
Cells(LastRow, 1).Select
ActiveCell.Value = UserName
End Sub
Configuration: Windows XP Internet Explorer 6.0
Commencons par les bases :
Selection d'une feuille
Sheets("NomDeLaFeuille").Select
Selection d'une cellule
Range("A1).Select
Ouverture d'un autre fichier Excel
ChDir "Chemin du repertoire du fichier"
Workbooks.Open Filename:= _
" Chemin du repertoire du fichier\fichier.xls "
Fermeture d'un fichier
ActiveWindow.Close pour fermer le fichier en cours
Ou
Workbooks.Close Filename:= _
" Chemin du repertoire du fichier\fichier.xls "
J'ai trouvé ma réponse, en espérant que ca aidera quelqu'un (je cherche pendant 2heures faut que je poste pour que 5 min apres je trouve la rep tout seul...) |