Discussion :

[azerty1956]

Salut tout le monde,

J'ai un tableau qui commence à partir de la ligne 3 et 5ème colonne
je veux supprimer les lignes où il n y a pas de valeurs insérées avec une macro..
J'ai mis en place un code mais ca ne marche pas
voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CacherLigneVide()
Dim i As Integer
Dim imax As Integer
Dim mysheet As Worksheet
 
Set mysheet = Sheets("sheet2")
 
mysheet.Select
'Déterminer la dernière ligne renseignée
imax = mysheet.Range("B65536").End(xlUp).Row
 
For i = 3 To imax
If Range(Cells(i, 5), Cells(i, 5).End(xlToRight)) = "" Then
   Range(Cells(i, 5), Cells(i, 5).End(xlToRight)).Select
   Selection.Hidden = True
End If
Next i
Set mysheet = Nothing
End Sub

Merci d'avance pour l'aide

[NEC14]

Bonjour,

Essaies ceci
Tu mets tes références de colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("A3:E") & Range("A").End(xlUp).Row)SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[Invité]

Bonjour,

Vous pouvez aussi essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CacherLigneVide()
Dim i As Integer
Dim imax As Integer
Dim mysheet As Worksheet
 
Set mysheet = Sheets("Sheets2")
 
mysheet.Select
'Déterminer la dernière ligne renseignée
imax = mysheet.Range("B65536").End(xlUp).Row
 
For i = 3 To imax
If Range(Cells(i, 5), Cells(i, 5)).End(xlToRight) = "" Then
Cells(i, 5).Rows.Hidden = True
End If
Next i
Set mysheet = Nothing
End Sub

[azerty1956]

Avec le code suivant j'arrive à supprimer toutes les lignes vides sans avoir de pbm...
Merci pour vos codes qui m'ont beaucoup aidé, je les ai amélioré, en effet il y avait un pbm causé par la décalage créé lorsqu'on supprime une ligne vide, la ligne d'après change de numéro et par conséquent n'ai pas traité par le code et donc pas supprimé même si elle est vide...

Voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub deleteLigneVide()
 
    Dim i As Integer, j As Long
    Dim imax As Integer
    Dim mysheet As Worksheet
 
    Set mysheet = Sheets("sheet1")
 
    'Déterminer la dernière ligne renseignée
    imax = mysheet.Range("B65536").End(xlUp).Row
    mysheet.Select
    j = 3
    For i = 3 To imax
        If Range(Cells(i, 4), Cells(i, 4)).End(xlToRight) = "" Then
    '    If Cells(i, 3).End(xlToRight).Column = 256 Then
            Cells(i, 4).EntireRow.Delete
            i = i - 1
        End If
        j = j + 1
        If j = imax + 1 Then Exit For
    Next i
 
    Set mysheet = Nothing
End Sub

[Invité]

Bonjour,

D'après votre réponse on peut supposer que votre problème est résolu ?

Si c'est bien le cas, pensez à cliquer sur le bouton "Résolu".

[azerty1956]

Resalut tout le monde,
En fait non , je viens de m'apercevoir qu'il faut que j'améliore encore une fois mon code..

En effet mon tableau est composé d’activités et sous activités et sous sous activités…
Le code précédent me permet de supprimer les lignes vide ( les valeurs étant insérées à droite dans le tableau suivant un critère précis précisé dans la ligne 1 dans mon vrai tableau)

En fait je ne sais pas quelle est la marche à suivre pour coder ça :

Dans le cas où j’ai une valeur qui correspond à une sous sous activités => Ne pas supprimer la sous activité et l’activité d’origine.
Dans le cas où j’ai une valeur qui correspond à une sous activités => Ne pas supprimer l’activité d’origine.
Ceci va me permettre de savoir à quelle activité correspond mes ss activités et ss ss activités, pour pouvoir me repérer…
NB : voir tableau joint

Merci d'avance

[Invité]

Je ne sais pas si j'ai bien compris mais si c'est le cas vous voulez dire que dans votre exemple seule la ligne 30 qui contient le mot "DIRE" en colonne "A" est à supprimer ?

Remarque : je dis bien "à supprimer" car dans votre titre vous indiquez "Masquer".

Alors on ne sait plus trop (en l'occurrence ce n'est pas très grave mais il vaut mieux que le titre reflète le problème) :

-Masquer dans le titre
-dans le code d'origine c'est "masquer"
-dans votre dernier code c'est "supprimer".

D'autre part à l'origine vous écrivez :

J'ai un tableau qui commence à partir de la ligne 3 et 5ème colonne

Or, le fichier que vous donnez en exemple commence en ligne 2 et en colonne 1.

[azerty1956]

le tableau que j'ai mis ci-joint n'est qu'un exemple (effectivement il est décalé mais c'est pas grave je veux juste voir la démarche à suivre, je l'adapterai après à mon vrai tableau) ...mon vrai tableau est en réalité plus grand....

Si j'ai décidé finalement de supprimer les lignes c'est parce que j'insere des ascenseurs par la suite dans mon tableau, et le fait de cacher les lignes crée une confusion au niveau de mon code....

Je ne sais pas si j'ai bien compris mais si c'est le cas vous voulez dire que dans votre exemple seule la ligne 30 qui contient le mot "DIRE" en colonne "A" est à supprimer ?
Non, mon Tableau n'est pas complet je vous ai mis ci joint que les colonnes, les valeurs normalement sont insérées à droite de ces colonnes ( ce que je n'ai pas fais dans cet exemple) d'après le tableau ci joint on ne peux pas juger laquelle faudra supprimer ( normalement on devrait supprimer toutes les activités et ss activités et ss ss activités puiskil n y a aucune valeur insérées à droite sur aucune ligne)...
Le fichier joint est bien un fichier générale...
Si ce n'est pas clair je suis à votre disposition pour plus d'explications

[Invité]

Bonjour,

En effet, je comprends mieux maintenant ce qu'il faut faire et cela me paraît même plus simple que prévu.

Il me reste à apporter quelques modifications et bien sûr à tester et je vous adresse le code.

[azerty1956]

Merci jacques_jean,

Je suis en train de réfléchir la dessus aussi...

a toute

[Invité]

Re Azerty1956,

Délai un peu plus long que prévu. La maîtresse de maison m'a rappelé que le mercredi matin était le jour des courses.

Essayez ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
Sub deleteLigneVide()
 
Dim i%, c%, pcol%, plgn&
Dim imax As Integer
Dim mysheet As Worksheet
 
'A modifier si la 1ère colonne n'est pas = 1
pcol = 1
'A modifier si la 1ère ligne n'est pas = 2
plgn = 2
Set mysheet = Sheets("sheet1")
 
mysheet.Select
imax = ActiveSheet.UsedRange.Rows.Count
 
    For i = imax To plgn Step -1
    c = Range(Cells(i, 256), Cells(i, 256)).End(xlToLeft).Column
 
        If c = 1 And Cells(i + 1, pcol + 1) = "" And Cells(i + 1, pcol + 2) = "" Then
        Cells(i, 1).EntireRow.Delete
        ElseIf c = 2 And Cells(i + 1, pcol + 2) = "" Then
        Cells(i, 1).EntireRow.Delete
        ElseIf c = 3 Then
        Cells(i, 1).EntireRow.Delete
        End If
    Next i
 
Set mysheet = Nothing
End Sub

Remarque :
1) j'ai fait des essais mais le meilleur testeur est l'utilisateur.
2) vous ne pouvez pas utiliser votre ligne de code pour détecter la dernière ligne utile soit :
imax = mysheet.Range("B65536").End(xlUp).Row
car on ne peut savoir si cette dernière ligne se trouvera dans la 1ère, la 2ème ou la 3ème colonne.
3) dans le cas de suppression de ligne il est conseillé de commencer par la dernière. Mais dans votre cas c'est encore plus vrai.
4) pour adapter à votre tableau, il doit suffire de modifier les variables :
"pcol" et "plgn".

Tenez-nous au courant de vos essais en cas de problèmes restants.

[azerty1956]

Merci ca marche

[Invité]

OK, tout va bien.
J'étais en train de vous répondre.

Je pense que vous avez vu qu'il fallait garder la valeur de la 1ère colonne du fichier pour la variable "pcol" et non la 4ème.