sauvegarde cellule

[Dominic67]

Bonjour

Je découvre depuis peu votre forum, je ne suis pas doué en Visual Basic. Je me suis amusé a faire un petit programme qui me permet de renseigné un document fax ( utilisation professionnelle, demande d'intervention auprès de plusieurs prestataires ) justement je voudrais gardé une trace sur un tableau excel en ne gardant que 4 données de ce fax, et en les mettant toujours dans la ligne vides suivante

Merci pour votre aide, ca fait plusieurs semaines que je bloque sur ce pb

 

[Moa]

Salut !

Pour la ligne suivante, t's une réponse là :

Lien supprimé


@ +++

Moa

 

[Dominic67]

Bonsoir

J'ai essaye les 2 solutions et résultat pas concluant du tout, ca ne marche pas comme je le voudrais, à savoir mettre les 4 champs selectionnés sur la feuille suivante sur une même ligne et ceci a chaque fois tout en les mettant la la ligne suivante


Range('E20:I21').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Archives Fax').Select
Range('A5:E6').Select
ActiveSheet.Paste
Sheets('Fax Chariot').Select
Range('E26:I27').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Archives Fax').Select
Range('F5:J6').Select
ActiveSheet.Paste
Sheets('Fax Chariot').Select
Range('H38:I39').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Archives Fax').Select
Range('K5:L6').Select
ActiveSheet.Paste
Sheets('Fax Chariot').Select
Range('B43:I44').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Archives Fax').Select
Range('M5:T6').Select
ActiveSheet.Paste



merci pour votre aide

 

[Rénato]

bonsoir Dominic67, salut Moa

J'ai un peu aménagé ton code, je risque le Z.O.P. mais tant pis !!!

Sub fax()
Sheets('Fax chariot').Select
Range('E20:I21').Select
Selection.Copy
Sheets('Archives Fax').Select
Range('A65536').End(xlUp).Select
ActiveCell.Offset(2, 0).Range('a1').Select
ActiveSheet.Paste
Sheets('Fax Chariot').Select
Range('E26:I27').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Archives Fax').Select
Range('F65536').End(xlUp).Select
ActiveCell.Offset(2, 0).Range('a1').Select
ActiveSheet.Paste
Sheets('Fax Chariot').Select
Range('H38:I39').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Archives Fax').Select
Range('K65536').End(xlUp).Select
ActiveCell.Offset(2, 0).Range('a1').Select
ActiveSheet.Paste
Sheets('Fax Chariot').Select
Range('B43:I44').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Archives Fax').Select
Range('M65536').End(xlUp).Select
ActiveCell.Offset(2, 0).Range('a1').Select
ActiveSheet.Paste
End Sub

Attention si tu n'as pas renseigné d'étiquettes de champs sur la ligne 4 de ta feuille 'Archives Fax', les premières lignes de sauvegardes seront renseignées à partir de la ligne 3.

J'ai fait générer un saut de ligne entre chaque sauvegarde, si tu souhaites le supprimer il convient de modifier Offset(2,0) par Offset(1,0)

bonne soirée

Message édité par: Rénato, à: 29/04/2005 23:33

 

[Dominic67]

Bonsoir

Superbe, ca marche.....
Par contre a force de vouloir amélioré la chose, existe t'il un moyen lors de la saisie des TextBox lorsque si celle ci est vide il n'est pas possible de passé à la suite.

Merci pour votre aide

 

[Rénato]

Bonsoir Dominic67

En fait dans le forum de première génération tu trouveras de nombreux posts qui traitent de ton problème.

Je t'invite par exemple à suivre ce Lien supprimé.

Bien cordialement

 

[Dominic67]

Bonsoir

Merci pour l'info, par contre ce que je cherche c'est justement une façon d'être certain que les personnes mettent bien leur noms dans la text box et que si celle ci est vide il est impossible de passe à la suite ( pour info les noms sont rarements de la même longueurs).
Donc mettre une valeur max dans la consigne Maxlength n'est pas trop evidente.

Merci pour votre aide