Microsoft 365 copier coller Resize

[eric72]

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.

 

[Phil69970]

Re

Le code de mon fichier

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

vous allez tous me hair 🙄

Pas encore 😉

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

 

[TooFatBoy]

vous allez tous me hair

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

 

[eric72]

Re

Le code de mon fichier

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]

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

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

 

[TooFatBoy]

Très belle chanson d'ailleurs😉

Voui, ça fait du bien à mes oreilles. 😉

 

[TooFatBoy]

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]

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]

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]

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]

Je n'arrive pas à adapter le code

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

 

[eric72]

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

le voilà

 

[eric72]

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

oups je t'ai perdu là😁

 

[eric72]

Re

Le code de mon fichier

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]

@eric72

si Réf ChantierDevis 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]

@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