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]

@eric72

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

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

 

[eric72]

@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 !!!!

Réponse à la question 1: on remplace les données des colonnes copiées soit

Range("TbOrigine[[Référence Devis]:[Téléphone]]")

et

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

 

[TooFatBoy]

Tu m'as perdu .....

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

Il faut chercher si une ligne correspond.

- Si oui, on remplace les données de cette ligne, mais uniquement pour les deux groupes de colonnes concernées.

- Si non, alors on ajoute les données (uniquement des deux groupes de colonnes concernées ???) sur une nouvelle ligne en fin de tableau.

 

[eric72]

Il faut chercher si une ligne correspond.

- Si oui, on remplace les données de cette ligne, mais uniquement pour les deux groupes de colonnes concernées.

- Si non, alors on ajoute les données (uniquement des deux groupes de colonnes concernées ???) sur une nouvelle ligne en fin de tableau.

Oui en effet c'est ce que je veux mais en pratique ça s'écrit comment?🤣🤣🤣

 

[TooFatBoy]

Oui en effet c'est ce que je veux mais en pratique ça s'écrit comment?🤣🤣🤣

Je crois que je vais finir par poster mon bout de code tout moisi qui marche pô, mais qui est dans l'idée de faire ce que tu demandes... 😅

 

[eric72]

Je crois que je vais finir par poster mon bout de code tout moisi qui marche pô, mais qui est dans l'idée de faire ce que tu demandes... 😅

et bien go envoie je vais essayer

 

[TooFatBoy]

et bien go envoie je vais essayer

Chef, oui Chef ! 😂

 

[eric72]

Chef, oui Chef ! 😂

Si cela peut t'aider le Bug intervient à l'enregistrement de la deuxieme ligne, par contre si je mets fin à l'exécution que j'agrandi le tableau d'une ligne (redimensionne), je relance le code et la 2ème ligne s'enregistre, idem pour la 3ème etc...
Cela peut te permettre d'y voir plus clair, ou pas
Merci

 

[TooFatBoy]

Si cela peut t'aider le Bug intervient à l'enregistrement de la deuxieme ligne

T'es sûr de ça ???

 

[eric72]

Chef, oui Chef ! 😂

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

 

[eric72]

T'es sûr de ça ???

oui oui j'en suis sur, a chaque débogage tu fais fin tu relances il enregistre la ligne d'après et ainsi de suite

 

[TooFatBoy]

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

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

 

[TooFatBoy]

oui oui j'en suis sur, a chaque débogage tu fais fin tu relances il enregistre la ligne d'après et ainsi de suite

Bizarre car chez moi c'est au moment de la recherche que ça plante, et je ne comprends pas pourquoi. 😭

 

[eric72]

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

en effet c'est mieux il beug sur

        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

 

[eric72]

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

ce qui parait bizarre au 1er débogage MonResultat = 0, quand je relance MonResultat = 3