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

A voir également:

Copier coller une qqs céllules puis en ligne
Aller à la ligne dans une cellule excel - Guide
Copier une vidéo youtube - Guide
Vente en ligne particulier - Guide
Copier coller pdf - Guide
Partage de photos en ligne - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 févr. 2016 à 07:54

Bonjour,
un exemple similaire
http://www.cjoint.com/c/FByg1P5lZYD

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

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

Discussions similaires

Dessiner avec son clavier et avec des lettres

Statut « en ligne » alors que non

Comment faire le signe de croix (chrétiens) ?

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

Discussions similaires

Newsletters