Masquer des lignes vides

Question

Bonjour,



Qui aurait la gentillesse d'aider une d&#233;butante!!!!!

J'ai un code qui me supprime les colonnes vides :



 Sub Coupe_Colonne()

     nbcolonne = ActiveSheet.UsedRange.Columns.Count

     nbcolonne = nbligne + ActiveSheet.UsedRange.Row - 1

     Application.ScreenUpdating = False 'Supprime les lignes vides

         For i = nbcolonne To 1 Step -1

        If Application.WorksheetFunction.CountA(Columns(i)) = 0 Then Columns(i).Delete

 End Sub



Je ne parvient pas vraiment &#224; mon but puisque je
voudrais que cette macro, teste les cellules uniquement &#224; partir de la
ligne 2 et qu'au lieu de les supprimer, elle les masquent..

Comment faire

Je vous donne un exemple pour pr&#233;ciser : 

                  
        A     
             
      B        
              
  C            
          D

1                 
n&#176; offre             
   nb de pi&#232;ce        
   D&#233;lais           
   Commande

2     
            
12            
         140     
              
              
             01/01
                
       

3     
            
10              
         20     
              
              
            08/03

4





Dans mon exemple je voudrais qu'apr&#232;s avoir test&#233; les cellules &#224; partir
de la deuxi&#232;me ligne, ma macro constatent que la colonne C (&#224; partir de
la ligne 2) est vide et qu'elle la masque.





Merci d'avance &#224; tous



Aur&#233;lie

crogiez · Answer

tu veux masquer ou supprimer
it is not the same

http://crogiez.free.fr

Lyly601 · Answer

Je voudrais masquer svp

cs_Le routier · Answer

Salut .. 
Je suis pas un expert mais je peux te proposer &#231;a :

a = 2
    While Cells(a, 1) <> "" ' boucle pour que la macro s'arr&#234;te quand colonne a est vide
    If Cells(a, 3) = "" Then
    Rows(a).Select
    Selection.EntireRow.Hidden = True
    End If
    a = a + 1
    Wend

voila... j'esp&#232;re que &#231;a t'ira
Bye

Les routiers sont sympas !!!

Pensez &#224; r&#233;ponse accept&#233;e ...

crogiez · Answer

pour masquer

    Columns("C:C").Select
    Selection.EntireColumn.Hidden = True

http://crogiez.free.fr

Lyly601 · Answer

Je d&#233;bute donc je ne sait pas vraiment o&#249; placer ceci dans ma macro.

De plus comment faire pour tester les cellules qu'a partir de la ligne 2 comme dans mon exemple ci dessus



Merci de votre patience

Lyly601 · Answer

je vais peut pass&#233; pour une chiante mais &#231;a ne marche pas

cs_Le routier · Answer

Le a = 2 s'ignifie qu'il cherche &#224; patrtir de la ligne 2

Un ptit conseil : supprime toute ta macro et colle celle-ci pour tester ....

Sub essais()
a = 2
    While Cells(a, 1) <> "" ' boucle pour que la macro s'arr&#234;te quand colonne a est vide
    If Cells(a, 3) = "" Then
    Rows(a).Select
    Selection.EntireRow.Hidden = True
    End If
    a = a + 1
    Wend
End sub

Bon courage

Les routiers sont sympas !!!
Pensez &#224; r&#233;ponse accept&#233;e ...

crogiez · Answer

Cet exemple montre comment balayer une colonne de donn&#233;es intitul&#233;e &#171; myRange &#187;. Si une cellule contient la m&#234;me valeur que celle situ&#233;e imm&#233;diatement au-dessus, l'adresse de la cellule contenant le doublon est affich&#233;e.

Set r =  Range("myRange")
For n = 1 To r.Rows.Count
    If r. Cells (n, 1)  = r.Cells(n + 1, 1) Then
        MsgBox "Duplicate data in " &amp; r.Cells(n + 1, 1).Address
    End If
Next n


http://crogiez.free.fr

Lyly601 · Answer

non d&#233;sol&#233; &#231;a ne marche pas, en plus tu veux me masquer une ligne Selection.EntireRow.Hidden = True 
 alors que moi c'est la colonne que je veux masquer.

crogiez · Answer

Worksheets("Feuil1").Activate
    Range("A1:IV65536").Select
    areaCount = Selection.Areas.Count
    MsgBox Selection.Columns.Count
    MsgBox Selection.Rows.Count
    

http://crogiez.free.fr

cs_Le routier · Answer

Excuse j'avais mal compris c'que tu voulais (a cause du titre de ton mess ptêtre " Masquer des lignes vides") ça ca devrait te convenir par contre elle est super lente (bricolage oblige) ... mais c'est tout c'que je peux te proposer (j'débute aussi ..) si kk'1 sais mieux faire, ça m'intéresse aussi .... Sub Macro1() ' a = 1 While Cells(1, a) <> "" Columns(a).Select numblanks = 0 For Each Cel In Selection If Cel.Value <> "" Then numblanks = numblanks + 1 End If Next Cel If numblanks <= 1 Then Columns(a).Select Selection.EntireColumn.Hidden = True End If a = a + 1 Wend ' End Sub TSHUSSS Les routiers sont sympas !!!

Masquer des lignes vides

11 réponses

Discussions similaires