aide pour tableur excel

[Patrice27]

Bonjour,
Nouveau ici besoin d'un coup de main, mon niveau vba je me débrouille.
j ai une exporte de tableau via un autre soft cela crée des semaines soit 52 feuilles nommer semaine 1.2.3.etc , dedans il y a des informations multiples et des phrases clef pour des étudiants, j aimerai prendre ces texte ou un mot clef qui transformerait cette info en chiffre ou en couleur pour compiler l'ensemble et avoir un visuel annuel en couleur de réservation de salles dans une feuille appelé annuel
actuellement j ai un tableau vide des 52 semaines en petit carré prêt, mes je n'arrive pas a trouver une vba qui ferais cela

vous comprendrez mieux avec le tableur que je vous joints pouvez vous m'aider ???

 

[pierrejean]

Bonjour Patrice27

Un essai
La feuille annuel est mise a jour à l'activation
les feuilles de semaines doivent s'appeler S1 S2 ......
et il ne doit pas y avoir d'autre feuille commençant par S
voir les commentaires des cellules en rouge

 

[Patrice27]

un grand merci pour votre travail, petit souci j ai essayer de rentrer la semaine 17 pour essai mais ca m'affiche une erreur " lacolonne = y.Column".
après quelques testes en faite je suis bloqué a 9 onglet de semaines une fois appeler 10 ca ne marche plus.
je vais abuser un peu, est-il possible d'ajouter en fonction de ce qu'il y a d'écris "2016 ou 2017 en fonction des promos la couleur qui leurs correspond?

 

[Patrice27]

personne pour me filer un coup de main ????

 

[pierrejean]

Re

A tester

 

[Patrice27]

Re

A tester

Super pas mal du tout trop fort juste que je comprenne c'est a quelle niveau que l'on accepte des onglets supérieur a 10 car j ai cherché un moment. c'est exactement ce que je cherche par contre j ai perdu les commentaires.
je me sentais abandonné mais je présume que vous avez beaucoup de demande.

 

[pierrejean]

Re

Il s'agit d'un problème de Find que j'ai contourné par une boucle (for n= 2 to 105)

 

[Patrice27]

par contre j ai perdu les commentaires des cellules je vais essayer en comparant les anciens fichiers, pas sur de trouver.

 

[Patrice27]

Re

Il s'agit d'un problème de Find que j'ai contourné par une boucle (for n= 2 to 105)

pas réussi a récupérer les commentaires dans les cellules si vous avez une idée suis preneur, c'est énervant de pas réussir a le faire grrrrr

 

[pierrejean]

Re

Voila
J'avais réutilisé p comme variable alors qu'elle servait deja
Modification:
For q = 2 To 105
If Sheets("annuel").Cells(8, q) = sem Then
col = q
End If
Next

Aulieude
For p = 2 To 105
If Sheets("annuel").Cells(8, p) = sem Then
col = p
End If
Next

toutes mes excuses

 

[Patrice27]

Re

Voila
J'avais réutilisé p comme variable alors qu'elle servait deja
Modification:
For q = 2 To 105
If Sheets("annuel").Cells(8, q) = sem Then
col = q
End If
Next

Aulieude
For p = 2 To 105
If Sheets("annuel").Cells(8, p) = sem Then
col = p
End If
Next

toutes mes excuses

vous excusé pas avec ce que vous faite et le temps que vous donnez au autre déjà super sympa de faire cela, sinon effectivement j ai récupéré les commentaire, mais maintenant j ai une erreur a chaque réinitialisation du tableau

 

[Patrice27]

vous excusé pas avec ce que vous faite et le temps que vous donnez au autre déjà super sympa de faire cela, sinon effectivement j ai récupéré les commentaire, mais maintenant j ai une erreur a chaque réinitialisation du tableau

j ai trouvé l'erreur un grand merci.