XL 2019 transfère une ligne entre deux onglet dans un même tableau

cp4

XLDnaute Barbatruc

• 31 Janvier 2023

• #2

Bonjour,

Bienvenue! Il faudrait joindre un fichier avec quelques lignes anonymisées.

Bonne journée.

 

Vote positif 0 Vote négatif

R

riv

XLDnaute Nouveau

• 31 Janvier 2023

• #3

cp4 à dit:

Bonjour,

Bienvenue! Il faudrait joindre un fichier avec quelques lignes anonymisées.

Bonne journée.

Cliquez pour agrandir...

voici un tableau créer pour exemple

 

Pièces jointes

• Classeur1.xlsm

  17.6 KB · Affichages: 4

Vote positif 0 Vote négatif

R

riv

XLDnaute Nouveau

• 31 Janvier 2023

• #4

voici un début de travail que j'ai effectuer

 

Pièces jointes

• testselect-4.xlsm

  20.6 KB · Affichages: 4

Vote positif 0 Vote négatif

R

riv

XLDnaute Nouveau

• 31 Janvier 2023

• #5

je suis pas loin du bute je pense

1: j'ai besoin de ramplacr .Range ("A8") par la sélection juste au dessus
2: j'ai besoin de supprimer que dans la feuille com

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 31 Janvier 2023

• #6

Bonsoir,

@riv : Je pense que tu n'es pas vraiment sûr de ta démarche. Ton fichier joint au post#3 en retour. Tu trouveras des explications succinctes pour utiliser le fichier.

Bonne soirée.

 

Pièces jointes

• Riv_Cp4.xlsm

  27.9 KB · Affichages: 3

Vote positif 0 Vote négatif

R

riv

XLDnaute Nouveau

• 1 Février 2023

• #7

cp4 à dit:

Bonsoir,

@riv : Je pense que tu n'es pas vraiment sûr de ta démarche. Ton fichier joint au post#3 en retour. Tu trouveras des explications succinctes pour utiliser le fichier.

Bonne soirée.

Cliquez pour agrandir...

bonjour cp4

je vient de regarder ta programmation merci a toi d'avoir pris le temps, c'est ce que je voulais par contre dans la feuille fini les ligne n'apparaisse pas a la suite du tableau et il fau que la ligne sélectionner sois supprimer de la ca feuille de base base après le transfère entre feuille.

merci encore

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 1 Février 2023

• #8

riv à dit:

bonjour cp4

je vient de regarder ta programmation merci a toi d'avoir pris le temps, c'est ce que je voulais par contre dans la feuille fini les ligne n'apparaisse pas a la suite du tableau et il fau que la ligne sélectionner sois supprimer de la ca feuille de base base après le transfère entre feuille.

merci encore

Cliquez pour agrandir...

Bonjour,
c'est ce que fait exactement le code. Tu ne t'en rends pas compte car tu as des lignes en doublons voire triplons ou plus. Dans le fichier joint, j'ai modifié pour l'exemple le n° d'affaire (plus de doublon).

1 - De la feuille source, si le mot fini est mis en colonne "état", le code transfert la ligne vers la feuille fini en ajoutant la date du jour et la supprime de la feuille source.

2 - De la feuille fini, il faut effacer mot fini est mis en colonne "état", le code transfert la ligne vers la feuille source en ajoutant la date du jour et la supprime de la feuille fini.

Bonne journée.

 

Pièces jointes

• Riv_Cp4_2.xlsm

  28 KB · Affichages: 3

Vote positif 0 Vote négatif

R

riv

XLDnaute Nouveau

• 1 Février 2023

• #9

J'ai tester et ca marche comme voulu


peut tu m'expliquer la phrase stp:
Set Fini = Sheets("fini").ListObjects("TbFini")

merci beaucoup

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 1 Février 2023

• #10

riv à dit:

J'ai tester et ca marche comme voulu


peut tu m'expliquer la phrase stp:
Set Fini = Sheets("fini").ListObjects("TbFini")

merci beaucoup

Cliquez pour agrandir...

Fini est une variable à laquelle on affecte le tableau structuré nommé TbFini de la feuille Fini.
Une fois cette variable définie, on la réutilise dans le code pour ne pas réécrire à chaque fois sheets("fini").ListObjects("TFini").
J'aurai dû prendre un autre nom de variable car ça prête à confusion.
Tu peux la modifier en modifiant aussi dans la déclaration Dim Fini as Listobject.
Tu peux faire comme ci-dessous:

VB:

Dim c As Range, Toto As ListObject, Lig As ListRow, dl As Integer, i As Integer
   Set Toto = Sheets("fini").ListObjects("TbFini")

Bonne Continuation.

 

Vote positif 0 Vote négatif

Solution

R

riv

XLDnaute Nouveau

• 1 Février 2023

• #11

ok tous fonctionne je te remercie beaucoup de ton temps passé

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 1 Février 2023

• #12

Pour que ta contribution au forum soit utile à d'autres. Il ne te reste plus qu'à pointer le numéro du fil (à droite de la fenêtre, flèches haut/bas) donnant la solution.

Bonne journée.

 

Vote positif 0 Vote négatif