Menu

Copie de cellules [Résolu/Fermé]

haffinger - 12 janv. 2017 à 14:26 - Dernière réponse :  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
Afficher la suite 

6 réponses

Patrice33740 6982 Messages postés dimanche 13 juin 2010Date d'inscription 22 juin 2018 Dernière intervention - 12 janv. 2017 à 14:39
0
Merci
« 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 »???
haffinger1 6 Messages postés jeudi 12 janvier 2017Date d'inscription 17 janvier 2017 Dernière intervention - 12 janv. 2017 à 18:02
0
Merci
copie d'ecran du besoin a effectuer

haffinger1 6 Messages postés jeudi 12 janvier 2017Date d'inscription 17 janvier 2017 Dernière intervention - 13 janv. 2017 à 13:14
0
Merci
possible, pas possible à effectuer ?
Passionofdream 816 Messages postés mardi 21 juillet 2015Date d'inscription 20 mars 2018 Dernière intervention - 13 janv. 2017 à 13:19
0
Merci
Bonjour,

C'est possible avec une petite macro

Voir exemple
http://www.cjoint.com/c/GAnmsEsUK6i
haffinger1 6 Messages postés jeudi 12 janvier 2017Date d'inscription 17 janvier 2017 Dernière intervention - 13 janv. 2017 à 14:35
0
Merci
super
merciiiiiiiiiiiiiiii
0
Merci
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