Bonjour à tous et merci à ceux qui me répondront!
J'ai un projet à faire dans le cadre de mes études et pour le terminer j'ai besoin de votre aide.
J'ai créer un fichier excel pour une agence de voyage. J'ai donc créer une page de réservation ou les clients entrent leurs coordonnées et font leur choix de destination.
J'aimerais récupérer ses réponses sous formes de tableau une fois que le client a sélectionner "valider". Malheureusement mes connaissances sur excel sont très limité donc je n'arrive pas à le faire.
Autrement dit, je voudrais que le client 1, remplisse le questionnaire de réservation puis une fois qu'il a cliquer sur valider, que ses réponses viennent remplir un tableau sur une nouvelle page. Puis lorsque le client 2 a validé ses choix cela viennent s'ajouter au tableau mais sur la ligne suivante et ect..
Pour cela j'ai fait quelques recherches sur internet et j'ai trouvé un code qui d’après les commentaires des autres utilisateurs, fonctionne, mais je sais pas quoi en faire ( j'y comprend absolument rien..), pouvez vous m'aider?
Voici le code:
Sub MultiCellCopy()
Dim PlageSource As Range, Cell As Range
Dim LastLine As Long
Dim Colonne As Byte
LastLine = Sheets('Récap').Range('A65536').End(xlUp).Row + 1
Colonne = 1
For Each Cell In Range('transfert')
With Sheets('Récap')
.Cells(LastLine, Colonne) = Cell
End With
Colonne = Colonne + 1
Next
End Sub
Pour moi tout ceci n'est que du charabia!^^
Svp aidez moi!! =) Vous trouverez ci-joint mon fichier.
J'ai un projet à faire dans le cadre de mes études et pour le terminer j'ai besoin de votre aide.
J'ai créer un fichier excel pour une agence de voyage. J'ai donc créer une page de réservation ou les clients entrent leurs coordonnées et font leur choix de destination.
J'aimerais récupérer ses réponses sous formes de tableau une fois que le client a sélectionner "valider". Malheureusement mes connaissances sur excel sont très limité donc je n'arrive pas à le faire.
Autrement dit, je voudrais que le client 1, remplisse le questionnaire de réservation puis une fois qu'il a cliquer sur valider, que ses réponses viennent remplir un tableau sur une nouvelle page. Puis lorsque le client 2 a validé ses choix cela viennent s'ajouter au tableau mais sur la ligne suivante et ect..
Pour cela j'ai fait quelques recherches sur internet et j'ai trouvé un code qui d’après les commentaires des autres utilisateurs, fonctionne, mais je sais pas quoi en faire ( j'y comprend absolument rien..), pouvez vous m'aider?
Voici le code:
Sub MultiCellCopy()
Dim PlageSource As Range, Cell As Range
Dim LastLine As Long
Dim Colonne As Byte
LastLine = Sheets('Récap').Range('A65536').End(xlUp).Row + 1
Colonne = 1
For Each Cell In Range('transfert')
With Sheets('Récap')
.Cells(LastLine, Colonne) = Cell
End With
Colonne = Colonne + 1
Next
End Sub
Pour moi tout ceci n'est que du charabia!^^
Svp aidez moi!! =) Vous trouverez ci-joint mon fichier.