écraser ligne déjà existente par la nouvelle copiée macro xls Fermé

Question

Bonjour à tous,

Je vous explique mon problème:

Je copie certaine cellule de ma feuille nommée:"FTD".
Je l'ai copie dans une autre feuille intitulée:"HISTORIC"
Les données se copient à la première ligne vide.
Ce que je veux, c'est lors d'une nouvelle copie, Si les informations en colonne A et B sont identique, effacer la ligne en question et la remplacer par la nouvelle.

Voici ma macro de base:
Sub SAUVEGARDER()

Dim Source As String
Dim Cible As String
Source = "FTD"
Cible = "HISTORIC"


'Transfert données de la fiche ModFaxture vers la fiche Client
Dim LigneEncours As Long
'Chargement du nom des feuilles origine et destination
'Calcul de la ligne courante
LigneEncours = Worksheets(Cible).Range("A" & Rows.Count).End(xlUp).Row + 1
'Copie des valeurs
With Worksheets(Cible)
 .Range("A" & LigneEncours) = Worksheets(Source).Range("A2").Value
 .Range("B" & LigneEncours) = Worksheets(Source).Range("F2").Value
 .Range("C" & LigneEncours) = Worksheets(Source).Range("E40").Value
 .Range("D" & LigneEncours) = Worksheets(Source).Range("H40").Value
 .Range("E" & LigneEncours) = Worksheets(Source).Range("I40").Value
 .Range("F" & LigneEncours) = Worksheets(Source).Range("J40").Value
 .Range("G" & LigneEncours) = Worksheets(Source).Range("K40").Value
End With

'
End Sub

Quelqu'un peut-il m'aider svp?

Merci d'avance.

Le Pingou · Answer

Bonjour,
Juste au passage, je comprends : Si les informations en colonne A et B sont identique aux valeurs sources A2 et F2 alors écraser la ligne...
Ceci impose de contrôler toutes les lignes existantes dans le fichier cible en réalisant une boucle sur les valeurs A et B.
Essayer avec ceci pour le bloc With...
With Worksheets(Cible)
For c = 2 To LigneEncours - 1
    If (.Range("A" & c) = Worksheets(Source).Range("A2").Value And .Range("B" & c) = Worksheets(Source).Range("F2").Value) Then
        liok = c
        Exit For
    End If
    liok = c
Next c
 .Range("A" & liok) = Worksheets(Source).Range("A2").Value
 .Range("B" & liok) = Worksheets(Source).Range("F2").Value
 .Range("C" & liok) = Worksheets(Source).Range("E40").Value
 .Range("D" & liok) = Worksheets(Source).Range("H40").Value
 .Range("E" & liok) = Worksheets(Source).Range("I40").Value
 .Range("F" & liok) = Worksheets(Source).Range("J40").Value
 .Range("G" & liok) = Worksheets(Source).Range("K40").Value
End With

Le Pingou · Answer

Bonjour,
Eh bien pour cela il faut savoir où est le classeur en question ainsi que la feuille concernée et si possible le nom du classeur.... !
 
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
Merci pour les informations.
Donc la feuille [HISTORIC] des 2 classeurs est rigoureusement identique concernant les données et la structure   Oui / Non ? 

Note, nous ne sommes pas dans le même bureau alors un petit bonjour c'est plus convenable ...

Le Pingou · Answer

Bonsoir,
Petite confirmation le premier classeur est bien celui qui a les 2 feuilles [FDT] et [HISTORIC]
Merci de votre réponse.

Le Pingou · Answer

Bonsoir,
Merci, une proposition demain en fin de journée.
J'ai réalisé un petit montage alors vos 2 exemples sont les bienvenu, les compresser en ZIP et le mettre sur  https://www.cjoint.com/ et poster le lien

Le Pingou · Answer

Bonjour,
Merci pour le fichier. Une fois était suffisant, je suppose que c'est 2 fois le même.
Pour la prochaine, éviter d'insérer un point accoler au lien car il a tendance à si ajouter et ainsi le lien devient erroné...donc non valide.

Le Pingou · Answer

Bonjour,
Eh bien là, c'est désolant, je ne trouve pas trace de ma proposition concernant : Voici ma macro de base: Sub SAUVEGARDER() et en plus aucune macro de ce nom dans les 30 modules qui sont pratiquement vide.... !

Le Pingou · Answer

Bonsoir,
J'ai pensé que vous me donneriez une explication par rapport à mon message de ce matin.
De plus impossible de faire quoi que ce soit avec des fichiers dont la majorité des feuilles sont masqués.
 
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
C'est en ordre pour les feuilles masquées.
Par rapport au macro quasi vide ...
Je reprends :
je ne trouve pas trace de ma proposition concernant : Voici ma macro de base: Sub SAUVEGARDER() et en plus aucune macro de ce nom dans les 30 modules qui sont pratiquement vide.... !

1.- Je fais référence à ma proposition du message 1

2.- Selon : Voici ma macro de base: Sub SAUVEGARDER(), elle est introuvable dans les 30 modules dont seul 9 contiennent des procédures.

Le Pingou · Answer

Bonjour,
Pa simple de comprendre comment fonctionne votre application, cependant est-ce que ce serait correct selon fichier joint : https://www.cjoint.com/?3BsqCnqluI0

Le Pingou · Answer

Bonjour,
Ne serait-il pas plus simple de réaliser un petit exemple manuellement avec petit commentaire directement dessus et ensuite le mettre sur ci-joint.com.
Vous ne m'avez pas répondu à : ceci

Le Pingou · Answer

Bonjour,
Ma proposition traite les 2 feuilles [HISTO....] via le bouton [Mise à....] , le lien : https://www.cjoint.com/c/EBtrockPjd1

Le Pingou · Answer

Bonjour,
Content pour vous, avez-vous contrôlé que les données sont correctes ... ?

Le Pingou · Answer

Bonjour,
Eh bien non, en faisant un test plus poussée, il se trouve que les montants en colonne [I] de la feuille [HISTORIC_SEMAINE] sont incorrects et en plus les valeurs de la dernière semaine de la feuille [FTD] sont simplement ignorées par la procédure (faute d'instruction de ma part).
Dans la journée la correction... !

Le Pingou · Answer

Bonjour,
Voici la version corrigée : https://www.cjoint.com/?3BupXPNCGWS

Le Pingou · Answer

Bonjour,
Pour la condition peux ton la traduite sous une forme de macro supplémentaire? 
C'est incompréhensible.

De plus serait faire une macro permettant d'une part d'ouvrir une feuille depuis m'importe qu'elle autre feuille. 
Pas besoin de macro, Il suffit d'insérer un lien hypertexte qui ponte vers la feuille choisi 

Et enfin une macro supprimant les valeurs d'une ligne de n'importe quelle feuille?
Cela on le réalise sans macro en sélectionnant la plage des valeurs et ensuite Delete

Le Pingou · Answer

Bonjour,
Il serait bien que vous décriviez le travail que vous devez réaliser, ou le concept de l'application car là il me semble que c'est du coup par coup... ou je me trompe.

Le Pingou · Answer

Bonjour,
Merci pour l'explication.
Dans ce cas vous faite le chemin inverse soit du fichier technicien vers l'historique du fichier source en utilisant ma proposition, il faut juste attribuer les bonnes références aux 3 objets [Worhsheet].
En parcourant les divers codes et leur niveau d'écriture dans les modules, j'estime que ce doit être faisable par vos soins.
La procédure de préférence dans le fichier technicien.

Le Pingou · Answer

Bonjour,
Sans le message d'erreur, impossible de vous répondre.  
Avez-vous mis la procédure dans le classeur technicien Oui / Non ?
 
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
Eh bien c'est normal, comme la procédure est dans le classeur technicien qui est la source des données, sa référence est simplement la feuille de ce classeur soit : Sheets("FTD").
Par contre la cible est le classeur [FDT.xlsm] qui se trouve dans le répertoire  et là c'est correct avec [Workbooks("FDT").Sheets("HISTORIC")] par contre la ligne de code doit être [Set shcigl = Workbooks("FDT").Sheets("HISTORIC")] .
Autre point : les noms des variables dans la ligne de définition [Dim chemin$, Salarie$, Fichier$] doivent être identique dans la procédure et ce n'est pas le cas, par exemple [chemin$] différent de [chemin].
Pour finir je me pose une question, si vous avez dans le classeur technicien 2 feuille [Histo...] alors vous devez aussi les mettre à jour tout comme celles du classeur [FDT.xlsm]  Oui ou Non ?
Si Oui alors le réaliser dans la même procédure !

Le Pingou · Answer

Bonjour,
Ceci mérite une réponse : Pour finir je me pose une question, si vous avez dans le classeur technicien 2 feuille [Histo...] alors vous devez aussi les mettre à jour tout comme celles du classeur [FDT.xlsm]  Oui ou Non ?


Vous avez une erreur dans les 2  déclarations [shso] [shcigl], le type d'objet est Worksheet   (pas de S à la fin)
 
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
Vous avez probablement omis l'instruction pour ouvrir le fichier cible à placer juste avant la ligne:
Workbooks.Open FileName:=("C:\FDT\FDT.xlsm")

Le Pingou · Answer

Bonjour,
Impossible, mais c'est des connaissances de base, que se passe t'il lors d'un clic droit  de souris sur l'objet concerné .... ?

Le Pingou · Answer

Bonjour,
Eh bien non pas d'idée tout comme les feuilles masquée inutilement.

écraser ligne déjà existente par la nouvelle copiée macro xls

24 réponses

Discussions similaires