Autres Résolu

Constantin · 8 Juillet 2019

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 · 8 Juillet 2019

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.

Ikito · 8 Juillet 2019

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 · 8 Juillet 2019

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 · 8 Juillet 2019

Bonjour Constantin, Ikito, Roblochon,

VB:

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

A+

Constantin · 9 Juillet 2019

Roblochon à dit:
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 · 9 Juillet 2019

job75 à dit:
Bonjour Constantin, Ikito, Roblochon,

VB:

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 · 9 Juillet 2019

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 · 9 Juillet 2019

job75 à dit:
Bonjour Constantin, Ikito, Roblochon,

VB:

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 · 9 Juillet 2019

Bonjour,

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

Autres Résolu

Constantin

XLDnaute Occasionnel

Pièces jointes

Ikito

Ikito

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Constantin

XLDnaute Occasionnel

Constantin

XLDnaute Occasionnel

Constantin

XLDnaute Occasionnel

Constantin

XLDnaute Occasionnel

Ikito

XLDnaute Occasionnel

Discussions similaires

Autres Résolu

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency