Copie de cellules

Résolu/Fermé
haffinger - 12 janv. 2017 à 14:26
 momo - 13 janv. 2017 à 17:20
Bonjour,
Je souhaite copier des cellules d'une feuille 1 vers une la première ligne vide d'une feuille 2.
La feuille 1 est modifiée régulièrement et chaque modification renseigne un tableau sur la feuille 2 qui constitue en quelque sorte un historique des saisies de la feuille1.
Je souhaiterais que les lignes dont les cellules sont déjà renseignées ne soient pas modifiées
Me suis je fais comprendre
merci d'avance de vos solutions
A voir également:

6 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
12 janv. 2017 à 14:39
« Me suis je fais comprendre » Pas trop !

« chaque modification renseigne un tableau sur la feuille 2 qui constitue en quelque sorte un historique des saisies de la feuille1. » comment cela peut-il constituer un historique si « chaque modification renseigne un tableau sur la feuille 2 »???
0
haffinger1 Messages postés 6 Date d'inscription jeudi 12 janvier 2017 Statut Membre Dernière intervention 17 janvier 2017
12 janv. 2017 à 18:02
copie d'ecran du besoin a effectuer

0
haffinger1 Messages postés 6 Date d'inscription jeudi 12 janvier 2017 Statut Membre Dernière intervention 17 janvier 2017
13 janv. 2017 à 13:14
possible, pas possible à effectuer ?
0
Passionofdream Messages postés 820 Date d'inscription mardi 21 juillet 2015 Statut Membre Dernière intervention 11 mai 2021 303
13 janv. 2017 à 13:19
Bonjour,

C'est possible avec une petite macro

Voir exemple
http://www.cjoint.com/c/GAnmsEsUK6i
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
haffinger1 Messages postés 6 Date d'inscription jeudi 12 janvier 2017 Statut Membre Dernière intervention 17 janvier 2017
13 janv. 2017 à 14:35
super
merciiiiiiiiiiiiiiii
0
Bonjour
la même sans doublons

Sub Macro3()
    Jour = Range("B1").Value
    Client = Range("B2").Value
    N°Fact = Range("B4").Value
Set Sh = Sheets(Feuil2.Name)
    Passe = True
   With Sh
      For L = 2 To .Range("A" & Rows.Count).End(xlUp).Row
         If .Range("C" & L).Value = N°Fact Then
            Passe = False
            Exit For
         End If
      Next
      If Passe = True Then
         Lig = .Range("A" & Rows.Count).End(xlUp).Row + 1
            .Range("A" & Lig).Value = Jour
            .Range("B" & Lig).Value = Client
            .Range("C" & Lig).Value = N°Fact
      End If
   End With
End Sub

A+
Maurice
0