> Tous les forums > Forum Bureautique
 masquage d'une ligne automatiquement sous excelSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
mbarbar
  Posté le 30/12/2008 @ 11:22 
Aller en bas de la page 
Petit astucien

bonjour

sur un fichier excel je masque des lignes manuellement suivant leurs résultats; Il y a t'il un pas de programme qui me permettrer de masquer une ligne suivant une condition de requise (ex: si A28=0, masquage de la ligne...).merci.

Publicité
vieuxmonsieur
 Posté le 30/12/2008 à 13:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour mbarbar, le forum,

vu que tu n'as pas encore de réponse, je te propose ce que j'ai trouvé ceci dans mes notes, à adapter bien sur :

Masquer lignes si condition

Private Sub CommandButton1_Click()
For I = 2 To Range("A65536").End(xlUp).Row
If Now() - Cells(I, 1) * 1 > 90 Then
Rows(CStr(I) & ":" & CStr(I)).Select
Selection.EntireRow.Hidden = True
End If
Next I
End Sub

Supprimer lignes si condition

Private Sub CommandButton1_Click()
For I = 2 To Range("A65536").End(xlUp).Row
If Now() - Cells(I, 1) * 1 > 90 Then
Rows(CStr(I) & ":" & CStr(I)).Select
Selection.EntireRow.Delete
End If
Next I
End Sub

Voici un petit code à coller dans VBA:

Sub CheckDate()
For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
If cell.Value + 60 > Date Then ActionIf
Next cell
End Sub

Sub ActionIf()
MsgBox "OK"
End Sub

Columns(8).SpecialCells(xlCellTypeBlanks).Rows.Hidden = True

Cette formule produit un résultat, il suffit d'inclure celui-ci dans le test.. exemple en colonne C, on a la formule = A1+B1 (ceci recopié dans toute la colonne avec adresse relative) si A et B sont vides, la formule va produire 0 en résultat on peut donc créer la procédure suivante

Sub masquerlignes()
Dim cel As Range
For Each cel In Range("C1:C100") 'Teste sur la colonne C
If cel = "" Or cel = 0 Then
cel.EntireRow.Hidden = True
End If
Next
End Sub

http://www.cathyastuce.com/w-agora/download_thread.php?site=cathyastuce&bn=cathyastuce_vba&thread=11 43298629

cette macro est à placer dans le module de la feuille concernée.
Si tu saisis un x dans la cellule A1, la colonne C est masquée. Si tu effaces ou saisis autre chose, la colonne est affichée.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1") = "x" Then
Columns("C:C").EntireColumn.Hidden = True
Else
Columns("C:C").EntireColumn.Hidden = False
End If
End If
End Sub

Pour une feuille, la macro devient :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1") = "x" Then
Sheets("Feuil2").Visible = False
Else
Sheets("Feuil2").Visible = True
End If
End If
End Sub

en te présentant mes meilleurs voeux de bonheur et joie au seuil de cette nouvelle année

Marmotte18
 Posté le 30/12/2008 à 18:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Pour répondre directement au problème posé, c'est à dire masquer la ligne 28 si A28=0 :

Sub MasqueLigne()
If Range("A28").Value = 0 Then Rows("28:28").EntireRow.Hidden = True
End Sub


Modifié par Marmotte18 le 30/12/2008 18:18
mbarbar
 Posté le 31/12/2008 à 13:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

merci

je vais pouvoir mettre en application vos solutions

tout mes voeux pour 2009

Marmotte18
 Posté le 31/12/2008 à 16:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour mbarbar et vieuxmonsieur,

Si l'une des soltutions te convient, merci de mettre en place l'épingle verte



Modifié par Marmotte18 le 31/12/2008 16:42
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
Chargeur allume cigare INIU 60W (1xUSB C PD 3.0 + 1xUSB A QC) à 4,99 €
4,99 € 12,99 € -62%
@Amazon
Chargeur USB UGREEN Nexode 65W GaN 3x USB C à 27,99 €
27,99 € 39,99 € -30%
@Amazon
Carte mémoire Samsung 1 To MicroSDXC Evo Select U3 (160 Mo/s) à 83,87 €
83,87 € 129 € -35%
@Amazon Espagne
Ecran PC 27 pouces MSI Pro MP273A (FullHD, IPS, 100 Hz, HP) à 99,99 €
99,99 € 119,99 € -17%
@Amazon
Chargeur rapide VOLTME 35W GaN 2xUSB C à 12,81 €
12,81 € 30 € -57%
@Amazon
SSD PNY CS900 SATA 250 Go à 14,99 €
14,99 € 25,99 € -42%
@Amazon

Sujets relatifs
Suprimer 1 ligne sur 2 sous Excel
graphique ligne sous excel
Macro - Insérer une ligne vierge sous Excel 2007
Moyenne sous Excel 2003 une ligne sur 2
surbrillance d'une ligne sous excel
ligne cachée sous excel
Aller à la ligne sous EXCEL
Couleur de ligne sous Excel
organiser mes contacts sous Excel
Excel 2013 sous Windowss 8.1
Plus de sujets relatifs à masquage d''une ligne automatiquement sous excel
 > Tous les forums > Forum Bureautique