Copier/coller du texte sans les cellules vides et avec condition Résolu/Fermé

Question

Bonjour, 

J'aimerais en fait faire une synthèse d'une de mes feuilles excel. Pour cela, je voudrais copier les élèments de ma colonne "suggestions" de la feuille "saisie" pour les coller dans une autre feuille "comparaison services" sans copier les cellules vides. Sachant que j'aimerais mettre ces suggestion par services mais aussi en global, comment pourrais-je le faire ?

Il faut savoir que je ne suis plus douée avec VBA puisque ça fait plus de 3 ans que je ne l'utilise plus.

Merci d'avance de vos réponses.

Configuration: Windows 7 / Internet Explorer 9.0

Le Pingou · Answer

Bonjour,
Une possibilité, copier la colonne et la coller sur la nouvelle feuille et vous trier la colonne ce qui a pour effet  d'avoir les cellules vide à la fin.

Titia974 · Answer

Mais j'ai une condition : les services.
Le tableau qui accueillera les suggestions se fera par service et en dernier il y aura le global. Si je trie, elle ne remplira toujours pas cette condition.

Merci de ton aide :).

Le Pingou · Answer

Bonjour,
Oui bien sur.
 Votre demande manque de clarté ce serait bien de réaliser manuellement un petit exemple et de mettre le fichier sur https://www.cjoint.com/  et de poster le lien.

Le Pingou · Answer

Bonjour,
J'ai un petit contre temps, ce sera en fin d'après-midi.

Le Pingou · Answer

Bonjour,
Une proposition : https://www.cjoint.com/?3Clqq4IGDuU
Note : le code tient compte du nombre de ligne de la liste feuille [Saisie].

Le Pingou · Answer

Bonjour,
La structure des  2 tables de votre fichier suffise ou à défaut le fichier...!
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
La structure des 2 tables de votre fichier suffise ou à défaut le fichier...! sur https://www.cjoint.com/ et poster le lien.

Le Pingou · Answer

Bonjour,
Merci pour le fichier.
Pour la feuille [Saisie] il s'agit bien des colonnes [A H] pour service et  [AK] pour les suggestions   Oui / Non ?
Je n'ai pas trouvé mon code dans votre fichier...... !

Le Pingou · Answer

Bonjour,
Contrôler si c'est correct : https://www.cjoint.com/?3CmpBBwupO3

Le Pingou · Answer

Bonjour,
Merci, mais le fichier joint est identique au premier.
Ou se trouve la liste des services en abrégé ....... ?
Il est aussi possible de remplacer les titres de colonne de la ligne 78, feuille [Comparaisons services] par les abrégés .... ?
Est-ce que cela fonctionne .... ?

Titia974 · Answer

Oh pardon !!!! Je me suis trompée de fichier.

La liste des services en abrégés sont soit dans la saisie (où il y a des exemples) dans la colonne service soit dans "comparaison services" au niveau du tableau des suggestion sous la colonne des services.
Malheureusement j'avais essayé de mettre les abréviations à la place des services mais ça ne marchait pas malgré tout.
Voici le fichier que je voulais vous envoyer hier : http://cjoint.com/?3CnncaPjIug  

Merci à vous.

Le Pingou · Answer

Bonjour, Pour les manque : [PeumoG <> Pneumog] et dito pour : [PeumoF <> PneumoF]. Une petite correction dans le code car la ligne d'origine des données (feuille [Comparaisons services]) est 80 et pas 79 : Votre fichier : https://www.cjoint.com/?3CnqCQhSVvb

Le Pingou · Answer

Bonjour,
Eh bien je ne trouve pas la colonne d'abréviation.... ! Merci de le préciser.. !
Merci de mettre vos messages à la suite .....[Répondre au sujet] ....! 
 
Salutations.
Le Pingou

Titia974 · Answer

Merci pour tout. Le dernier fichier que vous m'avez envoyé est parfait. C'est exactement ce que je voulais.

Mais j'avais juste une question supplémentaire : si maintenant ma colonne abréviation commence à la ligne 113 par exemple, comment dois-je modifier la macro pour qu'elle prenne en compte ce changement ?

Le Pingou · Answer

Bonjour,
Concerne : si maintenant ma colonne abréviation commence à la ligne 113 par exemple
Ceci n'existe pas, par contre si vous parlez de la ligne 80 des abréviations de la feuille [Comparaisons services]) alors c'est bon.
Donc si cette ligne est en 113 la première ligne de données est 114 et c'est la valeur à mettre dans le code ici :
' origine tableau [Comparaison services]lide = 114 :.....

Titia974 · Answer

Bonjour,

Merci pour tout. J'ai réussi grâce à vous à modifier tout ça. Je suis très satisfaite. Je n'hésiterais pas à revenir, c'est sûr :).

GRAND MERCI !!!!

Le Pingou · Answer

Merci, de rien.
Content pour vous.

Copier/coller du texte sans les cellules vides et avec condition

17 réponses

Discussions similaires