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

[Theof]

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]

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]

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]

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

Voilà un essai

 

[gilbert_RGI]

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

et enfin avec le choix des colonnes pairs ou impairs

 

[Theof]

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]

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

il y a des solutions

avec des boucles !!!!

 

[Theof]

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]

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]

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]

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]

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

peut-être

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

32 767 caractères

 

[gilbert_RGI]

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]

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 !