Macro : Navigation entre onglets, coller horizontalement
Bonjour,
Je suis un peu débutant dans les macros (j'en ai déjà fait mais en utilisant l'enregistrement de macros et en adaptant en fonction de ce que je voyais sur les différents forum). Je n'arrive plus à faire ce que je veux avec cette méthode et je n'ai pas le savoir pour récupérer des morceaux de code qui m'intéressent et les compiler ensemble. Je sollicite donc votre aide.
Je voudrais créer une macro qui me permette d'effectuer la liste d'action suivante :
- aller à l'onglet situé après mon tableau de référencement
- définir si c'est une "activité" ou "un projet"
- Si activité : copier toutes les informations contenues dans la colonne B. Aller dans l'onglet "activités" et insérer horizontalement les données (à noter que j'aurais plusieurs acitivités donc je ne voudrais pas réécrire sur la même ligne a chaque fois)
- Si projet : faire la même chose que pour "activités" pour tous les onglets projet (avec le nom de l'onglet "projets")
- continuer à effectuer cette opération jusqu'à ce qu'on arrive à la fin des onglets du tableau Excel (nota si on arrive sur un onglet et qu'il n'y a pas la référence activité ou projet on passe simplement à l'onglet suivant).
J'espère avoir été le plus claire possible. Voici en pièce jointe le fichier excel.
Je vous remercie d'avance
Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Bye !
Bonjour,
L'essai que tu m'as passé fonctionne très bien cependant, je n'arrive pas à me l'adapter comme il faut.
Le flag que tu utilises te sert à quoi ? De plus, tu utilises un message mais je ne vois pas dans quelles conditions il va apparaître.
Enfin, je n'arrive pas à comprendre la dernière boucle For.
Je suis vraiment désolé mais est ce que tu pourrais m'expliquer ?
En tout cas merci beaucoup pour la solution qui fonctionne parfaitement.
Cordialement
Bonjour
Même fichier mais avec macro commentée.
...je n'arrive pas à me l'adapter comme il faut.
Si tu n'y arrives pas, envoie ton nouveau fichier et j'essaierai.
OK ?
Bye !