> Tous les forums > Forum Bureautique
 Excel - plages de cellulesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Claire1461
  Posté le 22/04/2021 @ 11:36 
Aller en bas de la page 
Petite astucienne

Bonjour à tous,

J'aurai besoin d'aide s'il vous plait car j'ai un petit problème dans mon code VBA. Il me sert à afficher des lignes en fonction de certaines données.

Mais voilà, je dois en masquer certaines entre deux plages.

Mon code simplifié que j'ai essayé :

Me.Range("aa276:aa302").EntireRow.Hidden = True

If Me.Range("S120").Value = "x" Then Me.Range("AA276:AA281").EntireRow.Hidden = False

If Me.Range("S120").Value = "x" And Me.Range("S119").Value = "1" Then Me.Range("AA282:AA296").EntireRow.Hidden = False

If Me.Range("S120").Value = "x" And Me.Range("S119").Value = "2" Then Me.Range("AA282:AA290").EntireRow.Hidden = False And Me.Range("AA297:AA302").EntireRow.Hidden = False => ça affiche que jusqu'à 290 mais pas la deuxième plage

Je l'ai tenté aussi comme ça :

Then Me.Range("aa282:aa290", "AA297:AA302").EntireRow.Hidden = False => ça affiche de 282 à 302

Ce que je voudrai obtenir : quand j'ai x et 2, affiche les lignes 282 à 290 et les lignes 297 à 302

Merci d'avance



Modifié par Claire1461 le 22/04/2021 11:42
Publicité
Debrief
 Posté le 23/04/2021 à 14:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour Claire1461,

Peut-être simplement

If Me.Range("S120").Value = "x" And Me.Range("S119").Value = "2" Then
Me.Range("AA282:AA290").EntireRow.Hidden = False
Me.Range("AA297:AA302").EntireRow.Hidden = False
End if

Une autre écriture est possible mais perso je n'aime pas tellement les lignes avec plusieurs instructions, ça prête à confusion car pas toujours facile à lire.

If Me.Range("S120").Value = "x" And Me.Range("S119").Value = "2" Then Me.Range("AA282:AA290").EntireRow.Hidden = False : Me.Range("AA297:AA302").EntireRow.Hidden = False

Claire1461
 Posté le 23/04/2021 à 15:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour Debrief,

Oui c'est pas le top

Mais ouf merci de ton aide...

Ca fonctionne très bien les deux solutions

(j'avais fini par écrire deux lignes avec les mêmes conditions et juste après le "then" les autres cellules....donc vraiment pas génial !)

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
69,90 €Boîtier PC ATX Fractal Design Meshify C avec vitre en verre trempé à 69,90 €
Valable jusqu'au 27 Janvier

Cdiscount solde le très bon boîter moyen tour Fractal Design Meshify C avec panneau latéral en verre trempé à 69,90 € alors qu'on le trouve ailleurs à plus de 95 €. Intelligemment conçu, le boîtier Meshify C de Fractal Design s'adresse avant tout à toutes les personnes recherchant un boîtier silencieux prêt à recevoir un système puissant et expansible de refroidissement par air ou par liquide mais également à ceux qui recherche un boîtier au look ravageur. 

Combinant design, espace et aération, le Meshify C peut accueillir jusqu'à jusqu’à 2 disques durs 3.5" HDD/SSD (et 3 x 2.5" SSD), une alimentation ATX, une carte graphique de plus de 315 mm et des possibilités de refroidissement allant de 7 ventilateurs de 120 mm ou 140 mm à du watercooling (240 mm au dessus, 360 mm en façade).


> Voir l'offre
796,84 €PC portable Dell Inspiron 14 2 en 1 (FHD tactile, Ryzen 7 5700U, 16Go/512Go, Windows 11) à 796,84 €
Valable jusqu'au 27 Janvier

Dell fait une promotion sur le PC portable 14 pouces Dell Inspiron 14 7415 qui passe à 796,84 € avec le code DLBINSP2 au lieu de 999 €. 

Ce portable possède un écran Full HD tactile que vous plier à 360° pour transformer l'ordinateur en tablette. Il a un processeur AMD Ryzen 7 5700U, 16 Go de RAM et un SSD M.2 NVMe de 512 Go. Le tout tourne sous Windows 11. Au niveau connectique, vous trouverez 2 x USB 3.1, 1xUSB 4.0 Type-C avec DisplayPort et Power Delivery, un port HDMI 1.4b, un lecteur microSD, le WiFi 6 et le bluetooth 5.1. Comptez une autonomie d'une dizaine d'heures. Une excelle affaire !

Pour profiter de l'offre, sélectionnez dans la liste le portable Inspiron 14 2 en 1 à 838,76 € avec la remise immédiate de 160 €. Utilisez le code DLBINSP2 dans votre panier pour passer le prix à 796,84 €.


> Voir l'offre
25,70 €Lot de 2 switchs Gigabit D-Link 5 ports en métal à 25,70 €
Valable jusqu'au 01 Février

Cdiscount propose actuellement le lot de 2 switchs Gigabit D-Link DGS105 5 ports (10/100/1000) avec boîtier métal à 25,70 €. On les trouve habituellement autour de 17 € l'unité.


> Voir l'offre

Sujets relatifs
Excel - Ajouter un nombre à un groupe de cellules
Excel 2003 : changer couleur de cellules par macro
Pb de dim. de cellules entre EXCEL & LIbre Office
excel 2013, formule de cellules
excel 2013, déplacement de cellules
VBA Excel valeur en fonction de cellules
Excel - Copie de cellules selon choix
(Excel) Comment enregistrer sous avec nom de 2 cellules
[Excel 2013] Fusion personnalisée de cellules
Excel, comptage de cellules conditionnel
Plus de sujets relatifs à Excel - plages de cellules
 > Tous les forums > Forum Bureautique