Microsoft 365 copier coller Resize

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

TooFatBoy

XLDnaute Barbatruc
je pense qu'après le 1er enregistrement, il fait la recherche dans une ligne qui est en dehors du tableau, ce qui le fait beuguer
J'ai pensé aussi à une bêtise de ce genre, c'est pourquoi j'ai ajouté une ligne pour réinitialiser MaCible, mais ça ne change rien

Ca plante toujours (après l'ajout d'une première ligne) lorsque la valeur n'est pas trouvée. :(
En revanche, si la valeur est trouvée, ça ne plante pas.

Après l'ajout d'une première ligne, tant que les nouvelles valeurs cherchées sont trouvées dans le tableau cible, tout se passe bien, ça ne plante pas.
En revanche, dès qu'une valeur n'est pas trouvée dans le tableau cible, ça plante.



Bref, comme je disais au départ, mon code est tout moisi !...
Il faut chercher une autre façon de faire.
 

eric72

XLDnaute Accro
J'ai pensé aussi à une bêtise de ce genre, c'est pourquoi j'ai ajouté une ligne pour réinitialiser MaCible, mais ça ne change rien

Ca plante toujours (après l'ajout d'une première ligne) lorsque la valeur n'est pas trouvée. :(
En revanche, si la valeur est trouvée, ça ne plante pas.

Après l'ajout d'une première ligne, tant que les nouvelles valeurs cherchées sont trouvées dans le tableau cible, tout se passe bien, ça ne plante pas.
En revanche, dès qu'une valeur n'est pas trouvée dans le tableau cible, ça plante.



Bref, comme je disais au départ, mon code est tout moisi !...
Il faut chercher une autre façon de faire.
en fait
VB:
Set MaCible = Nothing
il semble que cela ne change rien
 

TooFatBoy

XLDnaute Barbatruc
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
            Range("TbDestination").ListObject.ListRows.Add
            LigneCible = Range("TbDestination").ListObject.ListRows.Count
        Else
            LigneCible = MaCelluleTrouvee.Row - Range("TbDestination[#headers]").Row
        End If

        Range("TbDestination[[Référence Devis]:[Téléphone]]").Rows(LigneCible).Value = Range("TbOrigine[[Référence Devis]:[Téléphone]]").Rows(LigneSource).Value
        Range("TbDestination[[Date Pose Annoncée]:[1er Acompte 40%]]").Rows(LigneCible).Value = Range("TbOrigine[[Date Pose Annoncée]:[1er Acompte 40%]]").Rows(LigneSource).Value

    Next LigneSource

End Sub
 

Pièces jointes

  • test (2) - (TFB v-03).xlsm
    32.3 KB · Affichages: 5

eric72

XLDnaute Accro
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
            Range("TbDestination").ListObject.ListRows.Add
            LigneCible = Range("TbDestination").ListObject.ListRows.Count
        Else
            LigneCible = MaCelluleTrouvee.Row - Range("TbDestination[#headers]").Row
        End If

        Range("TbDestination[[Référence Devis]:[Téléphone]]").Rows(LigneCible).Value = Range("TbOrigine[[Référence Devis]:[Téléphone]]").Rows(LigneSource).Value
        Range("TbDestination[[Date Pose Annoncée]:[1er Acompte 40%]]").Rows(LigneCible).Value = Range("TbOrigine[[Date Pose Annoncée]:[1er Acompte 40%]]").Rows(LigneSource).Value

    Next LigneSource

End Sub
je veux tester plus en détail demain matin mais en effet ça fonctione, you're the champion
Merci merci et encore merci
Tu as mérité un petit apéro.
Bonne soirée
 

eric72

XLDnaute Accro
En revanche, ça n'utilise pas le .Resize demandé à l'origine.
Ca convient quand même ?




Ah ! Trop cool ! Merci.
A notre notre bonne santé !!! 🍻
🤣🤣🤣
@eric72

A la bourre car absent cet après midi
Je te propose ce fichier
Bonjour Phil,
Pas grave pour le retard, c'est déjà bien sympa de m'aider.
Par contre cela ne fonctionne pas bien , cela ajoute les lignes.
- quand on fait une modif dans Origine cela ne modifie pas la ligne existante mais ça l'ajoute.
Toofatboy a trouvé la bonne formule alors ne t'inquiète pas.
Merci 1000 fois pour tout le boulot fourni et bonne journée.
 

Phil69970

XLDnaute Barbatruc
@eric72

Par contre cela ne fonctionne pas bien , cela ajoute les lignes.
- quand on fait une modif dans Origine cela ne modifie pas la ligne existante mais ça l'ajoute.

Tu es sur de ça ??

Car avec les tests que j'ai fait :
==> une ligne est rajouté seulement si la Ref_Devis est modifié ou si c'est une nouvelle ref_ Devis dans tous les autres cas de modification la ligne est juste remplacé

Par contre il est possible que les lignes dans la feuille destination ne soit plus dans le même ordre
 

Discussions similaires

Réponses
14
Affichages
186
Réponses
5
Affichages
225

Statistiques des forums

Discussions
313 192
Messages
2 096 072
Membres
106 488
dernier inscrit
mathieu.boiseau@semmaris.