Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Al1_44

XLDnaute Junior
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
 

Pièces jointes

  • Test transfert.xlsm
    28.1 KB · Affichages: 6

Al1_44

XLDnaute Junior
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

XLDnaute Barbatruc

Al1_44

XLDnaute Junior
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

XLDnaute Barbatruc
Re

@Al1_44


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

XLDnaute Junior
@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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Transfert entre 2 feuilles V2.xlsm
    31.3 KB · Affichages: 2

Al1_44

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

Discussions similaires

Réponses
7
Affichages
377
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…