Microsoft 365 copier coller Resize

E

eric72

XLDnaute Accro
Bonsoir,
Je cherche à copier des plages de la feuille ORIGINEà DESTINATION avec un test pour savoir si la Référence Devis existe, ça j'y parviens sauf que j'aimerais coller dans un 1er temps de la colonne A à E (j'y arrive aussi!!!) puis de la colonne I à K avec une solution type RESIZE mais je n'y parviens pas.

Merci beaucoup pour votre aide.
 

Pièces jointes

  • test.xlsm
    25.8 KB · Affichages: 8
Solution
TooFatBoy
Voici la macro qui a l'air de fonctionner. A tester...

VB: 
Sub Copier_Valeurs()
' Modification/ajout des données du tableau source dans le tableau cible
Dim LigneSource As Long, LigneCible As Long
Dim MaValeur As String
Dim MaPlageDeRecherche As Range, MaCelluleTrouvee As Range

    Application.ScreenUpdating = False

    For LigneSource = 1 To Range("TbOrigine").ListObject.ListRows.Count

        MaValeur = Range("TbOrigine[Référence Devis]")(LigneSource).Value
        Set MaPlageDeRecherche = Range("TbDestination[Référence Devis]")
        Set MaCelluleTrouvee = MaPlageDeRecherche.Find(What:=MaValeur, LookIn:=xlValues, LookAt:=xlWhole)

        If MaCelluleTrouvee Is Nothing Then...
Trier par date Trier par votes
Phil69970

Phil69970

XLDnaute Barbatruc
@eric72

eric72 à dit:
ui Phil, enfin presque, on écrase uniquement les colonne de Exemple:
Range("TbOrigine[[Référence Devis]:[Téléphone]]").Copy, celles qui correspondent à notre choix
Cliquez pour agrandir...
Tu m'as perdu .....

Colonne et ligne sont 2 choses différentes !!!

En clair :
1) ==> si il y a 1 ligne avec la ref : ABC déjà dans la feuille destination on écrase et remplace la ligne ABC par la nouvelle ligne avec la Ref ABC

2) ==> si pas de ref EFG alors on copie la ligne dans la feuille destination

J’attends 2 réponses distinctes pour le point 1 et pour le point 2 et réponds juste !!!!
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
Phil69970 à dit:
@eric72


Tu m'as perdu .....

Colonne et ligne sont 2 choses différentes !!!

En clair :
1) ==> si il y a 1 ligne avec la ref : ABC déjà dans la feuille destination on écrase et remplace la ligne ABC par la nouvelle ligne avec la Ref ABC

2) ==> si pas de ref EFG alors on copie la ligne dans la feuille destination

J’attends 2 réponses distinctes pour le point 1 et pour le point 2 et réponds juste !!!!
Cliquez pour agrandir...
Réponse à la question 1: on remplace les données des colonnes copiées soit
VB: 
Range("TbOrigine[[Référence Devis]:[Téléphone]]")
et
Code: 
Range("TbOrigine[[Date Pose Annoncée]:[1er Acompte 40%]]")
pour la ligne de la réf ABC
Réponse à la question 2 : si pas de Ref alors on ajoute une ligne avec la nouvelle réf

C'est un peu comme avec un userform, bouton Ajouter, bouton Valider

J'espère être assez clair

Merci encore
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
eric72 à dit:
Mieux encore, quand tu mets fin suite au débogage tu relances et il enregistre la ligne, par contre quand il n'y a plus d'enregistrements il te crée des milliers de lignes vides au tableau
Cliquez pour agrandir...
Ah ben oui, normal ! Au temps pour moi ! :(

Ca ne devrait plus le faire avec cette pj.
Mais ça plante toujours lors de la recherche d'une valeur n'existant pas dans le tableau cible, après avoir ajouté une ligne au tableau...
 

Pièces jointes

  • test (2) - (TFB v-02).xlsm
    34.2 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
TooFatBoy à dit:
Ah ben oui, normal ! Au temps pour moi ! :(

Ca ne devrait plus le faire avec cette pj.
Mais ça plante toujours lors de la recherche d'une valeur n'existant pas dans le tableau cible, après avoir ajouté une ligne au tableau...
Cliquez pour agrandir...
en effet c'est mieux il beug sur
VB: 
        MonResultat = MaCible.Find(MaValeur, LookIn:=xlValues, lookat:=xlWhole).Row
je fais débogage puis stop à l'exécution puis je relance et ça repart autant de fois qu'il y a de lignes et il les enregistre
 
Vote positif 0 Vote négatif

Discussions similaires

E
  • Résolu(e)
Microsoft 365 Copier Coller selon condition
Réponses
5
Affichages
222
TooFatBoy
TooFatBoy
P
  • Résolu(e)
Microsoft 365 Arrondir une valeur avant de la coller
Réponses
7
Affichages
174
job75
job75
BenHarber
  • Question
Microsoft 365 Variable tableau : coller uniquement une partie des colonnes
2 3
Réponses
31
Affichages
1 K
BenHarber
BenHarber
R
  • Résolu(e)
XL 2021 Macro copier-coller colonnes précédentes
Réponses
12
Affichages
556
Retraite
R
A
  • Question
XL 2019 Copier le contenu d'un MsgBox ou d'une variable
Réponses
12
Affichages
407
Attila451
A
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
178
crocrocro
C
E
  • Résolu(e)
Microsoft 365 POWER QUERY Pivoter la colonne
Réponses
14
Affichages
404
eric72
E
S
  • Résolu(e)
Microsoft 365 Copier et coller non contigu
Réponses
3
Affichages
619
Stéfane
S
E
  • Question
Microsoft 365 Couleurs de fichiers qui changent
Réponses
1
Affichages
271
mapomme
mapomme
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
208
sebastien176
S

Membres actuellement en ligne

14 membres et 116 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 094
Messages
2 116 154
Membres
112 670
dernier inscrit
Flow87