ajout saisie de donnée

[butterfly88]

Bonjour,

Je souhaiterais que quand je clique sur un bouton les données vont dans une autre feuille du classeur

Voila ce que j'ai deja fait, mais il écrase les anciennes données à chaque fois que j'execute. Comment faire pour qu'ils les mettes à la suite ?

Sub Ajout_Nom_Projet()

Sheets("Projet").Select
Range("A65536").End(xlUp).Select
ActiveCell.Value = Sheets("Form.DAe").Range("D10").Value
ActiveCell.Offset(1, 0).Select
Sheets("Projet").Select
Range("B65536").End(xlUp).Select
ActiveCell.Value = Sheets("Form.DAe").Range("L10").Value
ActiveCell.Offset(1, 0).Select

Sheets("Form.DAe").Select
Range("D10").Value = ""
Range("L10").Value = ""

End Sub

Merci d'avance

 

[Pierrot93]

Re : ajout saisie de donnée

Bonjour Butterfly,

pas sur d'avoir tout compris, essaye peut être la ligne de code ci dessous, sinon reviens en mettant un fichier en pièce jointe, sans données confidentielles, et avec le résultat attendu :

Sheets("Projet").Range("A65536").End(xlUp).Offset(1, 0).Value = _
    Sheets("Form.DAe").Range("D10").Value

bonne journée
@+

 

[Catrice]

Re : ajout saisie de donnée

Bonjour,

Tu peux essayer ce code :

Sub Ajout_Nom_Projet()
Sheets("Projet").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("Form.DAe").Range("D10")
Sheets("Projet").Range("B65536").End(xlUp).Offset(1, 0) = Sheets("Form.DAe").Range("L10")
Sheets("Form.DAe").Range("D10").ClearContents
Sheets("Form.DAe").Range("L10").ClearContents
End Sub


Voir le fichier joint

 

[butterfly88]

Re : ajout saisie de donnée

Impecable merci beaucoup à tous les 2 !

 

[butterfly88]

Re : ajout saisie de donnée

ah si j'ai un probléme !

Euh tout fonctionne bien, mais seulement quand on ne rempli par l'une des 2 cellules et que la suivante on rempli bien tout il va combler la cellule du dessus au lieu de refaire une ligne

exemple :
je rentre 88 et l'autre case je ne rentre rien
ça donne :

88 |

je rentre 78 et 90
ça donne :

88 | 90
78 |

je voudrais que ça donne :

88 |
78 | 90

Vous voyez ce que je veux dire ?

Merci d'avance

 

[Pierrot93]

Re : ajout saisie de donnée

Re

euh... pas tout compris moi... mets un exemple en pièce jointe, plus facile pour t'aider...

@+

 

[tototiti2008]

Re : ajout saisie de donnée

Bonjour à tous,

c'est parce que le code de Catrice détermine la ligne où écrire dans la colonne A pui la colonne B.

butterfly, il faut que tu saches quelle colonne sera automatiquement renseignée. Si c'est la colonne A par exemple, il faut juste adapter le code comme ça:

Sub Ajout_Nom_Projet()
Dim Ligne as Long
Ligne = Sheets("Projet").Range("[COLOR=red]A[/COLOR]65536").End(xlUp).Offset(1, 0).row
Sheets("Projet").Range("A" & Ligne) = Sheets("Form.DAe").Range("D10")
Sheets("Projet").Range("B" & Ligne) = Sheets("Form.DAe").Range("L10")
Sheets("Form.DAe").Range("D10").ClearContents
Sheets("Form.DAe").Range("L10").ClearContents
End Sub

 

[butterfly88]

Re : ajout saisie de donnée

OK, c'est bon ça fait comme je voulais merci pour votre aide