philou7168
XLDnaute Nouveau
Bonjour,
Je ne peux hélas fournir de fichier car même compresser je ne peux pas allé en dessous de 77 ko, je vais donc essayer d'être le plus explicite possible.
Je travaille avec excel 2007
Les données du tableau de test sont:
feuille 1 case B7 choix de l'unité par liste déroulante
feuille 1 Case B8 choix du poste par liste déroulante
feuille 4 plage unité de E1 à N1 en deux cases
feuille 4 plage poste de E3 à N3
feuille 4 colonne D4 à D27 les formations
Ma logique que je n'arrive pas à programmer est la suivante:
Tout cela sous condition d'un changement de la case B8 de la feuille 1, et donc de devoir tout programmer en VBA sur le feuille 1. Je ne sais pas si c'est possible mais ca devrait tenir dans la balise if .... endif suivante de la feuille1.
En espérant être assez clair dans ma demande, merci d'avance.
Je ne peux hélas fournir de fichier car même compresser je ne peux pas allé en dessous de 77 ko, je vais donc essayer d'être le plus explicite possible.
Je travaille avec excel 2007
Les données du tableau de test sont:
feuille 1 case B7 choix de l'unité par liste déroulante
feuille 1 Case B8 choix du poste par liste déroulante
feuille 4 plage unité de E1 à N1 en deux cases
feuille 4 plage poste de E3 à N3
feuille 4 colonne D4 à D27 les formations
Ma logique que je n'arrive pas à programmer est la suivante:
- je commence par une recherche du poste en ligne 3 de la feuille 4
- je contrôle si l'unité est la bonne en ligne 1 de la feuille 4.
- Si non on cherche la suivante
- Si oui, il faut sélectionner/activer cette case
- Ensuite je cache les colonnes inutiles et si je ne me trompe pas ce devrait être cettte commande
Enfin j'espere.Sheets(4).Columns("E:N").Hidden = True
Sheets(4).Target.ColumnWidth = 8.25
Tout cela sous condition d'un changement de la case B8 de la feuille 1, et donc de devoir tout programmer en VBA sur le feuille 1. Je ne sais pas si c'est possible mais ca devrait tenir dans la balise if .... endif suivante de la feuille1.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8")) Is Nothing Then
End If
End Sub
En espérant être assez clair dans ma demande, merci d'avance.