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

R
  • Résolu(e)
XL 2021 Macro copier-coller colonnes précédentes
Réponses
12
Affichages
372
Retraite
R
S
  • Résolu(e)
Microsoft 365 Copier et coller non contigu
Réponses
3
Affichages
409
Stéfane
S
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
336
gwenn49
G
MCenpls
  • Résolu(e)
Microsoft 365 Automatisation - Copier coller
Réponses
6
Affichages
337
MCenpls
MCenpls
N
  • Question
XL 2019 Copier plage de cellule et coller avec offset
Réponses
4
Affichages
214
netparty
N
J
  • Question
Microsoft 365 Recherchev sur plusieurs feuilles
Réponses
5
Affichages
134
nat54
nat54
M
  • Question
Microsoft 365 Copier coller bizarre…
2
Réponses
15
Affichages
501
Phil69970
Phil69970
A
  • Question
XL 2016 Filtrage personnalisé avec copie conditionnelle
Réponses
2
Affichages
342
amgue
A
A
  • Question
Insérer un copier / coller
Réponses
0
Affichages
184
aziz
A
S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
288
sambio2
S

Membres actuellement en ligne

10 membres et 120 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
312 207
Messages
2 086 247
Membres
103 163
dernier inscrit
Pelaez