Récupération de données une cellule sur deux

Theof · 14 Mai 2014

Bonjour à tous,

Etant un novice sur Excel je rencontre quelques difficultés pour regrouper des données. En effet je dois récupérer sur une feuille des données présentes en ligne une cellule sur deux (commencant à la colonne B1) jusqu'à la colonne AYB pour les regrouper dans une cellule sur une autre feuille.

J'a commencé à le faire via la commande =A1&", "&B1 mais répéter la commande environ 1200 fois me parait bien fastidieux.

Si vous avez une macro qui peut répondre à ma question je vous en serais très reconnaissant.

Merci d'avance pour vos réponses !

gilbert_RGI · 14 Mai 2014

Re : Récupération de données une cellule sur deux

Bonjour et Bienvenue sur XLD

Comme d'habitude un fichier exemple serait le mieux sans donnée confidentielle

Ce qui permettra une réponse plus appropriée

Merci

Theof · 14 Mai 2014

Re : Récupération de données une cellule sur deux

Merci de ta réponse. Ci-joint un fichier exemple.A savoir que mon fichier réel dispose d'environ 1200 répétition.

gilbert_RGI · 14 Mai 2014

Re : Récupération de données une cellule sur deux

Voilà un essai

gilbert_RGI · 14 Mai 2014

Re : Récupération de données une cellule sur deux

et enfin avec le choix des colonnes pairs ou impairs

Theof · 21 Mai 2014

Re : Récupération de données une cellule sur deux

Bonjour,

Tout d'abord merci de votre aide et désolé de revenir vers vous que maintenant. Le dernier fichier que vous m'avez donné marche parfaitement cependant ma base de donnée comporte une centaine de lignes et la macro n'effectue le travail que pour une ligne. Auriez vous une solution à ce problème ? Je vous remercie d'avance pour votre aide.

gilbert_RGI · 21 Mai 2014

Re : Récupération de données une cellule sur deux

il y a des solutions

avec des boucles !!!!

Theof · 21 Mai 2014

Re : Récupération de données une cellule sur deux

Oui j'y ai pensé. J'ai regardé sur d'autres forums afin d'intégrer une ligne tel que :

ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select

J'ai essayé de créer une boucle mais ca ne me copie qu'une seule ligne (celle sélectionnée au départ).
J'ai ajouté une boucle while ainsi que Dim numero As integer afin de déterminer la ligne de départ, l'ennui est que ca répète bien la commande mais ne copie pas a la ligne.

gilbert_RGI · 21 Mai 2014

Re : Récupération de données une cellule sur deux

Voilà un test

à vous de me dire !!!

il faut pour commencer que la cellule B2 soit active ;-)))

Theof · 21 Mai 2014

Re : Récupération de données une cellule sur deux

Je viens de l'adapter à mon fichier et ca marche nickel !

Merci beaucoup pour votre aide !

Theof · 21 Mai 2014

Re : Récupération de données une cellule sur deux

Seul soucis il ne récupère pas toutes les données de chaque ligne...

gilbert_RGI · 21 Mai 2014

Re : Récupération de données une cellule sur deux

Theof à dit:
Seul soucis il ne récupère pas toutes les données de chaque ligne...

peut-être

Nombre maximal de caractères qu’une cellule peut contenir

32 767 caractères

gilbert_RGI · 21 Mai 2014

Re : Récupération de données une cellule sur deux

une petite erreur

remplacer le 4 par i dans cette ligne

dercol = sh2.Cells(i, Columns.Count).End(xlToLeft).Column 'dernière colonne de la ligne 4

Theof · 21 Mai 2014

Re : Récupération de données une cellule sur deux

C'était ca effectivement. Je dépasse le nombre de caractère autorisé également. Je vais remédier à ca.

Merci pour ton aide !

Récupération de données une cellule sur deux

Theof

XLDnaute Nouveau

gilbert_RGI

XLDnaute Barbatruc

Theof

XLDnaute Nouveau

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

Theof

XLDnaute Nouveau

gilbert_RGI

XLDnaute Barbatruc

Theof

XLDnaute Nouveau

gilbert_RGI

XLDnaute Barbatruc

Pièces jointes

Theof

XLDnaute Nouveau

Theof

XLDnaute Nouveau

gilbert_RGI

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

Theof

XLDnaute Nouveau

Discussions similaires