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

Résolu
Titia974 -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
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.

A voir également:

17 réponses

Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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

1
Titia974
 
Ah super merci beaucoup.

J'aimerais juste savoir, si par exemple ma colonne d'abréviation (donc tout le reste du tableau) commence à partir de 113, comment changer la macro pour qu'elle puisse prendre en compte ces abréaviations ?
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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 :.....

1
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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.

0
Titia974
 
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 :).
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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.

0
Titia974
 
J'ai créé un exemple représentatif de ce que je cherche à faire. Voici le lien :
http://cjoint.com/?3CkwiKIX93i

C'est dans la feuille "comparaison services" que j'aimerais que les suggestions soient placées automatiquement.

Merci de votre aide.
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
J'ai un petit contre temps, ce sera en fin d'après-midi.
0
Titia974
 
Pas de souci.

Merci pour tout.
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Une proposition : https://www.cjoint.com/?3Clqq4IGDuU
Note : le code tient compte du nombre de ligne de la liste feuille [Saisie].

0
Titia974
 
Bonjour,

Je n'arrive pas à transposer la formule sur mon vrai fichier sachant que les cellules ne sont pas les mêmes. Comment faire ?
Doi-je vous renvoyer un fichier plus précis avec les mêmes cellules et tout ?
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
La structure des 2 tables de votre fichier suffise ou à défaut le fichier...!
Salutations.
Le Pingou
0
Titia974
 
Je n'arrive vraiment pas. En fait quand je le fais des chiffres apparaient au lieu des textes. Aussi j'aimerais qu'il commence à partir de la ligne 117 mais ça ne fonctionne pas quand je le change.

Désolé de vous importuner autant mais je n'utilise plus VBA depuis plus de 5 ans.
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Eh bien faites se que j'ai proposé dans le message.
Salutations.
Le Pingou
0
Titia974
 
C'est à dire ?
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
La structure des 2 tables de votre fichier suffise ou à défaut le fichier...! sur https://www.cjoint.com/ et poster le lien.

0
Titia974
 
Oh pardon !!!!

Voici le lien : http://cjoint.com/?3CmnZnYEqxK

Milles merci
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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...... !

0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Contrôler si c'est correct : https://www.cjoint.com/?3CmpBBwupO3

0
Titia974
 
Désolé de ne pas vous avoir répondu mais c'est bien ça.
Oui j'avais enlever votre code, désolé.
Le dernier que vous m'avez envoyé est bien. C'est ce que je voulais. Malheureusement mes services sont écrits en abrégé et pas entier comme dans votre fichier et ça fausse la macro. C'est de ma faute j'aurais du mettre des exemples à l'interieur. Je vous renvoie un exemple et avec les services en abrégé. Voici le lien : http://cjoint.com/?3Cmqd36NJZP

Merci beaucoup.
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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 .... ?

0
Titia974
 
Ca marche en fait, quand je mets les abrégés dans la ligne 78 mais certains services ne sont pas pris en compte dans la macro.
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
S'ils ne sont pas pris par la macro (une suggestion doit exister) c'est que les chaîne ne sont pas les même.
Si vous ne trouvez pas, me mettre le fichier avec l'exemple qui pose problème.
Salutations.
Le Pingou
0
Titia974
 
Voici le lien avec le fichier qui pose problème : http://cjoint.com/?3Cnp3ezwwcO
Effectivement il y a des bugs. Des suggestions partent dans d'autres cellules au lieu des cellules qui leurs sont associées.
0
Titia974
 
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.
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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
0
Titia974
 
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 ?
0
Titia974
 
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 !!!!
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Merci, de rien.
Content pour vous.
0