Autres Résolu

[Constantin]

Bonjour à tous,
Le fichier joint contient deux onglets (Liste et Renseignements).
Dans la feuille Renseignements je voudrais masquer les lignes 51 à 85 selon que ma thématique concerne les inspections.
La liste déroulante est contenue dans l'onglet liste.
Si quelqu'un a une idée, j'en serai ravi ! J'ai bien sûr consulté de nombreux échanges à ce sujet mais cela ne marche pas avec les menus déroulants.

Bien cordialement,

Pierre Constantin

 

[Ikito]

Bonjour Constantin,

Ci-joint le fichier modifié.
Je n'ai traité que le cas que tu décris ci-dessus. Il suffit de modifier à ta guise par la suite.

 

[Hasco]

Bonjour,

Dans le fichier joint vous trouverez un code VBA (click sur le nom d'onglet de la feuille/visualiser le code).
Si le mot "inspection" est trouvé en A4, les lignes sont cachées, sinon elles sont visibles

P.S. : à votre place je ne posterai pas de fichier avec le logo de l'ars.

Bonne soirée

Edit: bonjour @Ikito

 

[job75]

Bonjour Constantin, Ikito, Roblochon,

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("51:85").Hidden = UCase(Right([A4], 10)) = "INSPECTION"
End Sub

A+

 

[Constantin]

Bonjour,

Dans le fichier joint vous trouverez un code VBA (click sur le nom d'onglet de la feuille/visualiser le code).
Si le mot "inspection" est trouvé en A4, les lignes sont cachées, sinon elles sont visibles

P.S. : à votre place je ne posterai pas de fichier avec le logo de l'ars.

Bonne soirée

Edit: bonjour @Ikito

Bonjour Roblochon et surtout merci. Ça fonctionne super bien bien !
Concernant le logo de mon administration, j'aurai effectivement pu l'enlever. Mais ce logo n'est pas classé secret défense et mes grilles sont destinées à être diffusées mais je ferai plus attention la prochaine fois.
Bien cordialement,
Pierre Constantin

 

[Constantin]

Bonjour Constantin, Ikito, Roblochon,

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("51:85").Hidden = UCase(Right([A4], 10)) = "INSPECTION"
End Sub

A+

Bonjour Ikito.

Merci de votre réactivité. La macro marche très bien tout comme celle de Roblochon d'ailleurs.
Bonne journée !
Pierre Constantin

 

[Constantin]

Bonjour job75,
Trois réponses à mon message et trois macros qui marchent très bien. La votre diffère un peu des deux autres et je vais "l'éplucher" en détail car elle me servira dans un autre cas.
Merci à tous pour votre réactivité et votre maitrise de la programmation.
Pierre Constantin

 

[Constantin]

Bonjour Constantin, Ikito, Roblochon,

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("51:85").Hidden = UCase(Right([A4], 10)) = "INSPECTION"
End Sub

A+

Désolé de vous déranger à nouveau.
Je voudrai indiquer que mon problème est résolu mais je ne sais pas (ou plus) comment procéder.

Bonne journée !

 

[Ikito]

Bonjour,

Premier post du fil -> Editer -> Changer tag en Résolu au niveau du titre.