Recherche:

Trop fort ! ça marche nickel

Encore un grand merci !

J'ai testé et ça marche pour le tri des fréquences mais du coup, les autres paramètres de tri sont perdus.
Il regroupe des taxons complétement différents (le tri de la colonne D "regroupement" est...

Voici ce qui s'affiche
Cordialement

Re-bonjour,

Voici le tableau de l'image avec 53 lignes (pièce jointe).

Cordialement.

Bonjour,

Désolée pour le délai de ma réponse. J'ai décidé de réorganiser les colonnes de mon tableau (je ne l'avais pas fait hier de peur de ne pas savoir comment réadapter le code). Maintenant...

Super, ça marche, merci beaucoup.

J'avais une autre demande mais je crains que ce soit trop compliqué à mettre en place :
- Serait-il possible de reprendre ces "regroupements" de taxons et, en...

Voici le tout dernier code (j'ai commencé à le modifier en mettant 9 au lieu de 8), et en image le tableau qui en sort.


Private Sub Exporter_RQT_Click()

Dim oRst As Recordset
Dim oDb As...

Bonsoir Eric,

Je suis désolée de vous déranger à nouveau. J'ai dû rajouter une colonne à mon tableau, du coup mes échantillons s'affichent désormais à partir de la colonne I (auparavant c'était...

Bonjour,

Une fois de plus, un grand merci pour votre aide. Cela marche parfaitement.

Voici le tableau que j'arrive à obtenir. Je crois que c'est tout ...pour l'instant ;)

Bonsoir,
J'ai testé mais il y a juste une partie qui marche. Le titre apparaît bien à sa place mais pas les résultats des calculs (voir image). Là pour le coup je ne sais pas d'où vient le problème...

Merci beaucoup, je vous ai envoyé le dernier message car je n'avais pas vu votre message précèdent. Je vais tester et je reviens vers vous !

Cordialement,

Bonjour,

Merci beaucoup. J'ai rencontré un problème avec l'ajout des lignes 138-139, mais j'ai adapté le code et ça marche.

Voici mon tout dernier code :


Private Sub Exporter_RQT_Click()...

Bonjour,

Je ne vous remercierai jamais assez pour toute votre aide. Le code marche parfaitement.
J'ai rajouté une colonne et bougé la colonne "Catégories" de place, du coup j'ai adapté le code et...

Bonjour,

Je vous remercie pour votre aide. Après quelques corrections, ça marche !
- Il y avait un problème avec un point au niveau de la ligne 131, c'est réglé.
- Il y avait un problème avec...

Bonsoir,
Merci ! ça marche parfaitement.
J'ai rajouté deux lignes dans l'en-tête du tableau, du coup j'ai modifié les cellules à partir desquelles je voulais obtenir les totaux. Voici mon dernier...

C'est une très bonne nouvelle ! Pour répondre à la question, non, je ne souhaite pas faire de sous-totaux par catégorie.

Bonjour Eric,
Encore un grand merci pour votre aide. Cela marche parfaitement. J'ai dû juste rajouter .Range("B" & i).Font.Italic = False à la ligne 130 pour enlever l'italique des sous-titres....

Bonsoir,

Alors, voici ce que ça donne (image). Pour le problème de police en gras c'est réglé. Par contre, il doit y avoir quelque chose dans la partie du code "mise en italique" qu'il n'aime pas,...

Jusque là ça marche très bien, j'ai rajouté xlWs.Cells.ClearFormats et cela enlève la fonction gras de l'ancien tableau. C'est donc très bien. Par la suite, il faudrait que je dise dans mon code que...

J'ai fait plusieurs tests mais malheureusement ça ne marche pas, à l'ouverture du fichier, Excel se bloque et n'exécute pas tout ce qu'on lui demande, on dirait qu'il ne termine pas la tâche...

Re-bonjour,

Bien sûr, voici le code avec xlWs.Cells.ClearContents

Merci par avance



Option Explicit

Bonjour Eric,
En effet, vous avez raison. Je vous explique. Après avoir obtenu le code avec Cells.ClearContents qui marchait très bien, j'ai fait plusieurs tests et j'ai été confrontée à un problème...

Bonjour,

Je suis désolée de vous déranger encore une fois, cette fois-ci je souhaite que la plage de données collée avec transposition sois mise en gras.

Pour cela, à la partie du code collage...

Bonsoir,

Une fois de plus, merci beaucoup pour votre aide et votre réactivité. Cela marche parfaitement ! J'ai réussi à avoir le tableur que dont j'avais besoin.
Merci et bonne continuation !

Bonsoir,

Merci beaucoup pour votre remarque, du coup j'ai essayé avec If InStr(1, Range("A" & x).Value, "cf.") > 0 et ça marche !