Transferer une ligne de donnees.

Résolu/Fermé
YOUPI!OUAI! Messages postés 92 Date d'inscription dimanche 5 juillet 2015 Statut Membre Dernière intervention 13 juin 2016 - Modifié par zipe31 le 5/07/2015 à 13:19
YOUPI!OUAI! Messages postés 92 Date d'inscription dimanche 5 juillet 2015 Statut Membre Dernière intervention 13 juin 2016 - 5 juil. 2015 à 18:08
Voilà l'idée:
Après avoir entré des données sur une ligne A de la feuille1 les transférer dans une feuille2 en les validant.
Puis faire en sorte que que ces données soit enregistrées sous un numéro(disons 1).
Et enfin de pouvoir à nouveau entrer des données sur la ligne A de la feuille 1 qui après validation seraient enregistrées en feuille deux sous le numero deux...
Et ainsi de suite.
Merci pour votre aide

2 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
5 juil. 2015 à 14:13
Bonjour,

Un exemple ...
https://www.cjoint.com/c/EGfml3tL7RT

A+
0
YOUPI!OUAI! Messages postés 92 Date d'inscription dimanche 5 juillet 2015 Statut Membre Dernière intervention 13 juin 2016 1
5 juil. 2015 à 14:26
Très bien c'est exactement ce qui me faut.
Mais concrètement comment ça marche?
0
YOUPI!OUAI! Messages postés 92 Date d'inscription dimanche 5 juillet 2015 Statut Membre Dernière intervention 13 juin 2016 1
5 juil. 2015 à 14:31
Je vient de désactiver la macros et peut lire la démarche que vous avez mené.
Vraiment un grand, un gros, Merci
0
YOUPI!OUAI! Messages postés 92 Date d'inscription dimanche 5 juillet 2015 Statut Membre Dernière intervention 13 juin 2016 1
5 juil. 2015 à 16:07
Rebonjour,

Je suis très satisfait de la solution qui m'a été apportée. Toutefois j'ai omis de préciser que la ligne A de la feuille1 est renseignée pas un collé avec liaison. Conséquence, la feuille2 ne valide pas les données de la ligne AFeuille1

Quelqu'un à une solution?
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523 > YOUPI!OUAI! Messages postés 92 Date d'inscription dimanche 5 juillet 2015 Statut Membre Dernière intervention 13 juin 2016
5 juil. 2015 à 17:21
Essaie comme cela
Private Sub Transferer_Click()
Dim DerCel As Range
Worksheets("Feuil1").Range("A2:J2").Copy
With Worksheets("Feuil2")
Set DerCel = .Range("A" & Rows.Count).End(xlUp)
DerCel.Offset(1) = Val(DerCel) + 1
.Range("B" & DerCel.Row + 1).Resize(1, 10).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub

A+
0
YOUPI!OUAI! Messages postés 92 Date d'inscription dimanche 5 juillet 2015 Statut Membre Dernière intervention 13 juin 2016 1 > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
5 juil. 2015 à 18:08
Je suis impressionné.

Ca fonctionne parfaitement!
'faut vraiment que je me mette à l'anglais et à l'écriture VBA.
Quelques mots biens choisis et biens ordonnés et voilà que la magie s'exprime.

Encore grand Merci Gyrus.
Attendez-vous que je revienne à vous. Parce que grâce à vous mon projet informatique prend une dimension que je n'envisageait pas.
0