Transferer une ligne de donnees.

Résolu
YOUPI!OUAI! Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   -  
YOUPI!OUAI! Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

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

A+
0
YOUPI!OUAI! Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   1
 
Très bien c'est exactement ce qui me faut.
Mais concrètement comment ça marche?
0
Réponse 2 / 2
YOUPI!OUAI! Messages postés 92 Date d'inscription   Statut Membre Dernière intervention   1
 
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   Statut Membre Dernière intervention   1
 
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   Statut Membre Dernière intervention   526 > YOUPI!OUAI! Messages postés 92 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   1 > Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention  
 
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

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses