Microsoft 365 copier coller Resize

eric72 · 26 Janvier 2024

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.

TooFatBoy · 29 Janvier 2024

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...

Phil69970 · 29 Janvier 2024

Re

Le code de mon fichier

VB:

Option Explicit

Sub Copier_Valeurs2()
Application.ScreenUpdating = False
Dim NbLig&

NbLig = Range("TbDestintion").ListObject.ListRows.Count
Range("TbOrigine[[Référence Devis]:[Téléphone]]").Copy _
Destination:=Range("TbDestintion[Référence Devis]").Cells(NbLig + 1, 1)
Range("TbOrigine[[Date Pose Annoncée]:[1er Acompte 40%]]").Copy _
Destination:=Range("TbDestintion[Date Pose Annoncée]").Cells(NbLig + 1, 1)

MsgBox "Valeurs copiées ", vbInformation, "Super"
End Sub

eric72 à dit:
vous allez tous me hair

Pas encore

Re dit calmement ce que tu veux exactement ....

TooFatBoy · 29 Janvier 2024

eric72 à dit:
vous allez tous me hair

eric72 · 29 Janvier 2024

Phil69970 à dit:

Re

Le code de mon fichier

VB:

Option Explicit

Sub Copier_Valeurs2()
Application.ScreenUpdating = False
Dim NbLig&

NbLig = Range("TbDestintion").ListObject.ListRows.Count
Range("TbOrigine[[Référence Devis]:[Téléphone]]").Copy _
Destination:=Range("TbDestintion[Référence Devis]").Cells(NbLig + 1, 1)
Range("TbOrigine[[Date Pose Annoncée]:[1er Acompte 40%]]").Copy _
Destination:=Range("TbDestintion[Date Pose Annoncée]").Cells(NbLig + 1, 1)

MsgBox "Valeurs copiées ", vbInformation, "Super"
End Sub

Pas encore

Re dit calmement ce que tu veux exactement ....

Alors comme tu dis calmement , le TbOrigine Récupère par POWER QUERY, un ensemble de commandes, ces commandes peuvent être modifiées d'un jour à l'autre, ce que j'aimerais c'est qu'après chaque actualisation, copier les colonnes choisies dans TbDestination, MAIS si la Réf Chantier existe déjà dans TbDestination, alors j'actualise les informations provenant de TbOrigine de la ligne correspondante.
Pour résumer si Réf Chantier n'existe pas alors j'ajoute, si existe je modifie les colonnes choisies.
Tu as vu j'ai tenté de rester calme
Merci beaucoup

eric72 · 29 Janvier 2024

TooFatBoy à dit:

Ah ça pourrait être moi ça, pourquoi pas mais il y quelques décennies
Très belle chanson d'ailleurs

TooFatBoy · 29 Janvier 2024

eric72 à dit:
Très belle chanson d'ailleurs

Voui, ça fait du bien à mes oreilles.

TooFatBoy · 29 Janvier 2024

eric72 à dit:
Pour résumer si Réf Chantier n'existe pas alors j'ajoute, si existe je modifie les colonnes choisies.

Ben c'est déjà ce que tentait de faire ton code initial.
(Et c'est aussi ce que tente de faire mon code, mais ça ne marche que jusqu'au premier ajout d'une linge)

Y a rien de nouveau. Ou alors j'ai encore loupé un épisode...

eric72 · 29 Janvier 2024

TooFatBoy à dit:
Ben c'est déjà ce que tentait de faire ton code initial.
Y a rien de nouveau. Ou alors j'ai encore loupé un épisode...

Exact mais du fait que ça soit un tableau structuré, la méthode est peut-être différente non?

TooFatBoy · 29 Janvier 2024

eric72 à dit:
mais du fait que ça soit un tableau structuré, la méthode est peut-être différente non?

Oui et non.

Oui tu peux utiliser les spécificités des TS si tu veux, mais non tu n'es pas obligé.

eric72 · 29 Janvier 2024

TooFatBoy à dit:
Oui et non.

Oui tu peux utiliser les spécificités des TS si tu veux, mais non tu n'es pas obligé.

Je n'arrive pas à adapter le code

TooFatBoy · 29 Janvier 2024

eric72 à dit:
Je n'arrive pas à adapter le code

Et le mien ne marche pas, donc je ne saurais t'aider.

eric72 · 29 Janvier 2024

TooFatBoy à dit:
Et le mien ne marche pas, donc je ne saurais t'aider.

le voilà

eric72 · 29 Janvier 2024

TooFatBoy à dit:
Et le mien ne marche pas, donc je ne saurais t'aider.

oups je t'ai perdu là

eric72 · 29 Janvier 2024

Phil69970 à dit:

Re

Le code de mon fichier

VB:

Option Explicit

Sub Copier_Valeurs2()
Application.ScreenUpdating = False
Dim NbLig&

NbLig = Range("TbDestintion").ListObject.ListRows.Count
Range("TbOrigine[[Référence Devis]:[Téléphone]]").Copy _
Destination:=Range("TbDestintion[Référence Devis]").Cells(NbLig + 1, 1)
Range("TbOrigine[[Date Pose Annoncée]:[1er Acompte 40%]]").Copy _
Destination:=Range("TbDestintion[Date Pose Annoncée]").Cells(NbLig + 1, 1)

MsgBox "Valeurs copiées ", vbInformation, "Super"
End Sub

Pas encore

Re dit calmement ce que tu veux exactement ....

ca n'est Réf Chantier mais Référence Devis, même calmement je me trompe quand même, ça doit être l'âge
Merci

Phil69970 · 29 Janvier 2024

@eric72

eric72 à dit:
si Réf ~~Chantier~~Devis n'existe pas alors j'ajoute, si existe je modifie les colonnes choisies.

Donc si il y a la même Ref Devis alors on écrase l'ancienne ligne par la nouvelle ligne ?

Réponds calmement mais juste !!!

eric72 · 29 Janvier 2024

Phil69970 à dit:
@eric72

Donc si il y a la même Ref Devis alors on écrase l'ancienne ligne par la nouvelle ligne ?

Réponds calmement mais juste !!!

Oui 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

Microsoft 365 copier coller Resize

eric72

XLDnaute Accro

Pièces jointes

TooFatBoy

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

Pièces jointes

eric72

XLDnaute Accro

eric72

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

eric72

XLDnaute Accro

Discussions similaires