Copier coller une qqs céllules puis en ligne

Résolu/Fermé
Miniben Messages postés 19 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 24 mars 2016 - 24 févr. 2016 à 00:06
Miniben Messages postés 19 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 24 mars 2016 - 25 févr. 2016 à 02:23
Bonjour,

Je m'essaie a VBA avec quelques succès dans un précédent projet, mais là je bloque
J'aimerai Copier qqss chiffre d'une colonne pour les recopier en ligne dans une deuxième feuille (ça j'ai réussi) mais j'aimerai surtout que les prochaines fois, donc lorsqu'on aura fermé et enregistrer le claseur, il copie ces mêmes données qui auront été modifié par un autre utilisateur sur la ligne d'après de la deuxième feuille...
je ne sais pas si j'ai été clair

(de façon a ce qu'on ai un historique de ce que chaque utilisateur aura rentré)
mieux ?

Merci bcp a ceux qui auront le temps de se pencher sur la question

Miniben

1 réponse

michel_m Messages postés 16582 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 27 novembre 2022 3 284
24 févr. 2016 à 07:54
Bonjour,
un exemple similaire
http://www.cjoint.com/c/FByg1P5lZYD
0
Miniben Messages postés 19 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 24 mars 2016
24 févr. 2016 à 23:04
Oué, ça ressemble bien a ce que je veux faire par contre tu n'as pas enregistré ta macro, tu l'a envoyé en xls
0
Miniben Messages postés 19 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 24 mars 2016
25 févr. 2016 à 02:23
J'te remercie, j'ai bidouiller un peu et du coup j'ai fait ça, c'est p'tet pas des plus simple mais ça fonctionne, ça fait ce dont j'ai besoin, je continue a partir de là :-)
Merci à toi

Sub Macro2()
'
Sheets("Echange").Range("C2").Copy Sheets("Histo").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("C3").Copy Sheets("Histo").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("C7").Copy Sheets("Histo").Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("C8").Copy Sheets("Histo").Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("C9").Copy Sheets("Histo").Range("E" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("C10").Copy Sheets("Histo").Range("F" & Rows.Count).End(xlUp).Offset(1, 0)

Sheets("Echange").Range("H7").Copy Sheets("Histo").Range("G" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("H8").Copy Sheets("Histo").Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("H9").Copy Sheets("Histo").Range("I" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("H10").Copy Sheets("Histo").Range("J" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("H11").Copy Sheets("Histo").Range("K" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("H12").Copy Sheets("Histo").Range("L" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("Echange").Range("H13").Copy Sheets("Histo").Range("M" & Rows.Count).End(xlUp).Offset(1, 0)

'Remet à 0 Echange
Sheets("Echange").Select
Range("C3,C7,C8,C9,C10,H7,H8,H9,H10,H11,H12,H13").Select
Selection.ClearContents

End Sub
0