> 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
19,99 €Tapis de souris Corsair MM300 PRO (93x30 cm) à 19,99 €
Valable jusqu'au 29 Novembre

Cdiscount fait une promotion sur le tapis de souris Corsair MM300 PRO Extended qui passe à 19,99 € au lieu de 34,99 €. Ce tapis de souris extra large mesure 93 x 30 cm et vous permettra de couvrir votre bureau et disposer dessus votre clavier et votre souris qui ne risquera plus de sortir du tapis. Le tapis résiste à l'eau, peut être lavé et possède des contours cousus pour éviter l'effilochement.


> Voir l'offre
193,94 €Ecran PC LED 28 pouces Samsung U28E590D (4K UHD, 1 ms, Freesync) à 193,94 € livré
Valable jusqu'au 28 Novembre

Amazon Allemagne fait une promotion sur l'écran PC LED 28 pouces Samsung U28E590D qui passe à 180,50 € (avec la TVA ajustée). Comptez 13,44 € pour la livraison en France, soit un total de 193,94 € livré alors qu'on le trouve ailleurs à partir de 250 €. Cet écran au format 16/9 offre une dalle 4K (résolution 3840x2160) avec un temps de réponse de 1 ms. Il est compatible FreeSync. Une bonne affaire ! 

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
99 €Smartphone Oppo A15 (6.52 pouces, 3 Go / 32 Go, 4G, Android 10) à 99 €
Valable jusqu'au 29 Novembre

Auchan fait une promotion sur le smartphone Oppo A15 qui passe à 99,90 € alors qu'on le trouve ailleurs autour de 129 €. Ce smartphone est compatible 4G, possède un écran 6.52 pouces HD+, un SoC Mediatek Helio P35 à 8 coeurs, 3 Go de RAM, 32 Go de stockage extensibles par MicroSD, des capteurs photos 13/2/2 Mpixels et d'une batterie 4230 mAh. Le WiFi, bluetooth et GPS sont présents. Le tout tourne sous Android 10.


> 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