Microsoft 365 Aide sur macro (débutant inside)

[Misterjarvis]

Bonjour à tous,

ça fait quelques temps que je parcours le forum (très riche) et à mon tour de poser ce qui est un souci pour moi, je vais essayer de formuler clairement (en plus en termes de macro je suis niveau -2)

sur la base de ce tableau en appuyant sur un bouton (cachant une macro donc..)


j'aimerais pouvoir sortir dans un nouvel onglet un tableau qui ne donnerait que les cellules non vides de avril / mai / juin / juillet pour une personne donnée

par exemple pour marc cela donnerait ce tableau


on ne prend donc en compte que les lignes 5 et 8 car la 6 est vide sur les mois concernés

la cerise sur le gâteau serait d'avoir aussi un menu déroulant avec item rouge / orange / vert

j'avoue je ne sais pas trop par quel bout prendre l'histoire (sachant bien sur que le tableau initial est bien plus complexe que les copies d'écran mais bon..)

Si vous savez faire je suis preneur d'explications, j'espère que l'exposé aura été clair

 

[Phil69970]

Bonjour @Misterjarvis et bienvenu sur XLD

J'ai pas vu ton fichier

sachant bien sur que le tableau initial est bien plus complexe que les copies d'écran mais bon..)

Raison de plus pour avoir ton fichier car en ayant une vue d'ensemble cela permet de mieux comprendre ton besoin et y répondre. 😉

 

[Misterjarvis]

En fait quand je dis complexe c’est surtout qu’il y a beaucoup de colonnes (qui ne servirons pas dans ce que je veux faire) mais si c’est vraiment nécessaire je le joindrai dans un prochain message (il faut que je l’anonymise au maximum car données touchy)

 

[Phil69970]

C'est toi qui vois ......
Mais une chose qui est sur j'ai pas envie de créer le fichier que tu possèdes sur ton PC

 

[Misterjarvis]

Je poste ça ce soir (tard) 🙂 merci d’avance pour le coup de main

 

[Misterjarvis]

voici l'archi complète du fichier, aucun titre sauf les cellules concernées par la macro mais le bon nombre de colonnes y est (si c'est important)

 

[Phil69970]

@Misterjarvis

Je te propose ce fichier

J'ai commenté le code 😉
Tout se met à jour quand tu vas sur la feuille "Resultat"

Par contre pour ceci j'ai rien compris !!! (Ni à quoi cela va te servir ! )

la cerise sur le gâteau serait d'avoir aussi un menu déroulant avec item rouge / orange / vert

Merci de ton retour

 

[Misterjarvis]

Hello

ok j'avance, j'ai bien donc d'affiché que les lignes qui comprennent des données sur avril, mai, juin et juillet.

En terme d'affichage je me suis mal exprimé (ou pas exprimé en fait) mais je souhaiterais qu'on ait un onglet par personne n'affichant "que" les colonnes concernées (donc dans le fichier les colonnes B, AM, AN, AO, AP et AY).

Concernant ton point
Par contre pour ceci j'ai rien compris !!! (Ni à quoi cela va te servir ! )

la cerise sur le gâteau serait d'avoir aussi un menu déroulant avec item rouge / orange / vert

En fait c'est pour indiquer une tendance (doc utilisé pour des entretiens mais c'est vraiment pas mandatory

Dans tous les cas merci bcp pour le fichier

 

[Phil69970]

@Misterjarvis

Et ton fichier réel comporte combien de nom différant ?

 

[Misterjarvis]

@Misterjarvis

Et ton fichier réel comporte combien de nom différant ?

A date 5 mais ça peut bouger mais pour le démarrage on va dire 5

 

[Misterjarvis]

et donc là on parle d'afficher les mois de Q2 + juillet, pour faire le même sur Q3+1 mois il faut mettre les bonnes cellules dans la partie code suivante ? :
If .Range("AM" & i) <> "" Or .Range("AN" & i) <> "" Or .Range("AO" & i) <> "" Or .Range("AP" & i) <> "" Then
Derlig = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1

 

[Phil69970]

@Misterjarvis

Je te propose cette nouvelle version

Il faut cliquer sur le bouton "Résultat"

Merci de ton retour

 

[Misterjarvis]

ouahhhhh mais c'est excellent !!!!
me reste à savoir comment effectivement modifier le truc pour changer les mois

Juste un grand merci (et le mot est faible..)

 

[Phil69970]

@Misterjarvis

Cette ligne va tester si ces 4 zones sont vides

If .Range("AM" & i) <> "" Or .Range("AN" & i) <> "" Or .Range("AO" & i) <> "" Or .Range("AP" & i) <> "" Then

Si les 4 zones sont vides on ne fait rien et si au moins une zone n'est pas vide (donc elle est remplie) alors on s'en occupe....
Et il faut aussi ajuster les cellules à prendre...

Voir les commentaires que j'ai mis dans le code VBA

 

[Phil69970]

@Misterjarvis

Dans cette version tu ajustes les colonnes des mois ici
==> En clair tu mets les lettres des 4 colonnes que tu veux avoir en BB2, BC2, BD2 et BE2

Exemple :

Et tu aurais ceci

Dans mon exemple Aout remplace Juillet

J’espère avoir été clair ..... 😉