XL 2016 Transfert de données non contiguës entre 2 feuilles avec compteur de lignes

[Al1_44]

Bonjour à tous,

Selon la valeur x en colonne AC et un bouton je transfère des données de colonnes non contiguës d'une feuille à une autre.
J'ai "bricolé" un code en VBA qui fonctionne, mais à mon sens qui pourrait être un peu amélioré.
De plus je souhaiterai ne transférer que 25 lignes.

Merci d'avance,

AL1_44

 

[Phil69970]

Bonjour @Al1_44

Je te propose ce fichier
Le code ne copie que les 25 premières ligne qu'il trouve

Merci de ton retour

@Phil69970

 

[Al1_44]

Bonjour @Phil69970

Merci pour la simplification du code, je vais regarder cela de plus près.
Le transfert d'uniquement 25 lignes s'effectue bien, mais qu'en une seul fois.
J'aurais dû préciser plusieurs sélections et transferts pour un total de 25.

 

[Phil69970]

Bonjour @Al1_44

J'ai pas compris ceci :

J'aurais dû préciser plusieurs sélections et transferts pour un total de 25

Pourtant tu as été très clair dans ta demande initial :

De plus je souhaiterai ne transférer que 25 lignes.

Pour moi cela signifie que tu veux transférer uniquement les 25 premières lignes si c'est pas cela explique clairement ce que tu veux.

@Phil69970

 

[Al1_44]

Bonjour @Phil69970,

Effectivement au vue de ta réponse ma demande n'est pas très bien formulée.
La feuille source contient quelques 300 lignes et je souhaite transféré 25 lignes max de la feuille 1 vers la 2 en une (25 lignes d'un coup) ou plusieurs fois (5 puis 10 puis 5 par exemple) et, quelques soit le numéro des lignes sélectionnées.
Et encore merci de l'intérêt porté à cette demande.

@Al1_44

 

[Phil69970]

Re

@Al1_44

La feuille source contient quelques 300 lignes et je souhaite transféré 25 lignes max de la feuille 1 vers la 2 en une (25 lignes d'un coup) ou plusieurs fois (5 puis 10 puis 5 par exemple) et, quelques soit le numéro des lignes sélectionnées.

C'est exactement ce que fait mon fichier il transfère max 25 lignes de la feuille 1 vers la feuille 2.
Et comme tu n'as pas compris le fonctionnement de mon fichier je précise que ce qui fait le transfert ou pas c'est les X dans la colonne AC
Dans l'exemple ci dessous les lignes 1,2,5 et 8 seront transféré

et après le transfère il y aura des ok sur les lignes 1,2,5, et 8

Donc pour moi cela correspond EXACTEMENT à ta demande

Maintenant si tu souhaites SUPPRIMER les lignes après le transfert il faut le préciser mais pour moi la logique est de ne pas supprimer les lignes dans la feuille source mais juste les noter d'où le OK après copie.

Merci de ta réponse

@Phil69970

 

[Al1_44]

@Phil69970

Le fichier fonctionne parfaitement lorsque l'on sélectionne de 1 à plus de 25 lignes en une seul fois.
Désolé, peut-être pas bien réveiller pour donner les bonnes informations!
Si on sélectionne 10 lignes puis on actionne le bouton transfert les 10 lignes sont transférés, nickel.
Je poursuis, je resélectionne 16 lignes et on actionne le bouton transfert, les 16 lignes sont transférés et là le total des transferts dépasse 25.

@Al1_44

 

[Phil69970]

Re

@Al1_44

Ok c'est plus clair pour moi

Voici la V2 qui limite le nombre de ligne à 25 ligne copié dans la feuille 2
Tu peux supprimer la colonne K de la feuille 2 après les tests que tu peux faire

Merci de ton retour

@Phil69970

 

[Al1_44]

Impec, cela fonctionne parfaitement. Merci Phil6970.
Encore désolé de ne pas avoir exprimé de façon plus clair mon besoin.
Je serai plus attentif à mes demandes à l'avenir.
Encore merci.
Bon Week end à tous!

 

[Phil69970]

@Al1_44

La logique est de valider le post contenant la réponse que tu as choisi et non pas ton propre post car tu n'as rien trouvé du tout

@Phil69970