Selection plusieurs cellules en langage VBA

Résolu/Fermé

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018 - Modifié par crapoulou le 21/09/2016 à 12:03
lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018 - 17 oct. 2016 à 10:35

Bonjour,
je souhaite que toutes les cellules vides de certaines colonnes dans mon tableau Excel se masquent automatiquement. J'ai créé une macro mais ça ne fonctionne que si la première cellule de la colonne contient du texte, et moi je voudrais que les lignes disparaissent quand toutes les cellules sont vides, et pas seulement la première.
Quelqu'un aurait-il une solution à mon problème?
Merci bcp

Voici la macro :

For Each cel In Range("A3:A226")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next

A voir également:

Vba selectionner plusieurs cellules
Formule excel pour additionner plusieurs cellules - Guide
Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Selectionner plage jusqu'à la dernière cellule non vide vba - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA

7 réponses

Réponse 1 / 7

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié par crapoulou le 21/09/2016 à 12:04

Bonjour

Pour masquer les lignes dont toutes les cellules sont vides et ... pour les reafficher

Const lideb = 2

Public Sub masquer()
Dim li As Long, cofin As Long, lifin As Long
lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row
For li = lideb To lifin
  cofin = Cells(li, Columns.Count).End(xlToLeft).Column
  If cofin = 1 And Cells(li, 1) = "" Then Rows(li).EntireRow.Hidden = True
Next li
End Sub

Public Sub demasquer()
Dim lifin As Long
lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Rows(lideb & ":" & lifin).EntireRow.Hidden = False
End Sub

Cdlmnt

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018
21 sept. 2016 à 13:17

Merci ccm81
mais je débute vraiment en VBA et en copiant et collant ton code dans ma macro ça ne fonctionne pas.
En fait j'ai un bouton sur lequel j'appuie et les lignes concernées (en occurrence pour mon tableau cela concerne des groupes de cellules de A26 à O57, A64 à O154...) disparaissent lorsque les cellules y sont vides.
Merci d'avance pour tes explications.

cdlmnt

Réponse 4 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 sept. 2016 à 14:15

je te laisse continuer, je dois plier boutique !

moi aussi...

1 ou plusieurs cellules vides dans tableau entre A et O

Option Explicit
'--------------------------------------
Sub nettoyer_tableaux()
'A26 à O57, A64 à O154...)
    Call cacherligvide("A26:O57")
    Call cacherligvide("A64:O156")
End Sub
'-------------------------------------------------
Sub cacherligvide(plage)
    On Error Resume Next
     Range(plage).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018
21 sept. 2016 à 14:25

Bonjour Michel_m
En fait je ne veux pas que la ligne se masque lorsqu'il y a au moins une cellule pleine.
Donc la seule condition pour que la ligne se masque, c'est si toutes les cellules de la ligne sont vides.
Merci

Réponse 5 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 sept. 2016 à 17:30

re
en attendant la soupe

Option Explicit
Const Col_deb As String = "A"
Const Col_fin As String = "O"

'-----------------------------------------------
Sub nettoyer_tableaux()
'A26 à O57, A64 à O154...)

    Application.ScreenUpdating = False
    Call cacherligvide(26, 57)
    Call cacherligvide(64, 154)
End Sub

'-------------------------------------------------
Sub cacherligvide(deb, fin)
Dim Plage As Range, Nbre As Byte, Lig As Byte, Cptr As Byte

    Set Plage = Range(Cells(deb, Col_deb), Cells(fin, Col_deb))
    Nbre = Application.CountIf(Plage, "")
    Lig = deb - 1
    For Cptr = 1 To Nbre
        Lig = Columns(Col_deb).Find("", Cells(Lig, Col_deb), xlValues).Row
        If Application.CountA(Range(Cells(Lig, Col_deb), Cells(Lig, Col_fin))) = 0 Then
        Rows(Lig).Hidden = True
        End If
    Next
End Sub

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018
22 sept. 2016 à 16:58

Bonjour Michel,

merci pour ce code, ça fonctionne bien en effet. Mais je ne parviens pas à l'utiliser avec un bouton de commande activeX.
Le but est que lorsque j'appuie sur ce bouton, toutes les lignes vides doivent se masquer. Merci encore et désolé de mon amateurisme dans le langage VBA.

Réponse 6 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 sept. 2016 à 17:32

Le bouton activeX se trouve dans le module feuille concerné

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018
23 sept. 2016 à 13:29

Oui, je sais où est le bouton activeX mais en fait ce qui ne fonctionne pas c'est l'ordre du code. Voilà ce que j' ai mis, mais ça m'affiche un message d'erreur lors de l'exécution.

Option Explicit

Private Sub CommandButton1_Click()

Const Col_deb As String = "A"
Const Col_fin As String = "O"

Sub nettoyer_tableaux()
Application.ScreenUpdating = False
Call cacherligvide(4, 13)
Call cacherligvide(19, 31)

Sub cacherligvide(deb, fin)
Dim Plage As Range, Nbre As Byte, Lig As Byte, Cptr As Byte

Set Plage = Range(Cells(deb, Col_deb), Cells(fin, Col_deb))
Nbre = Application.CountIf(Plage, "")
Lig = deb - 1
For Cptr = 1 To Nbre
Lig = Columns(Col_deb).Find("", Cells(Lig, Col_deb), xlValues).Row
If Application.CountA(Range(Cells(Lig, Col_deb), Cells(Lig, Col_fin))) = 0 Then
Rows(Lig).Hidden = True
End If
Next
End Sub

Réponse 7 / 7

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 23/09/2016 à 13:43

Option Explicit
Const Col_deb As String = "A"
Const Col_fin As String = "O"

'-----------------------------------------------
Private Sub CommandButton1_Click()
'A26 à O57, A64 à O154...)

Application.ScreenUpdating = False
Call cacherligvide(26, 57)
Call cacherligvide(64, 154)
End Sub

'-------------------------------------------------
Sub cacherligvide(deb, fin)
Dim Plage As Range, Nbre As Byte, Lig As Byte, Cptr As Byte

Set Plage = Range(Cells(deb, Col_deb), Cells(fin, Col_deb))
Nbre = Application.CountIf(Plage, "")
Lig = deb - 1
For Cptr = 1 To Nbre
Lig = Columns(Col_deb).Find("", Cells(Lig, Col_deb), xlValues).Row
If Application.CountA(Range(Cells(Lig, Col_deb), Cells(Lig, Col_fin))) = 0 Then
Rows(Lig).Hidden = True
End If
Next
End Sub

Michel

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018
26 sept. 2016 à 08:17

Merci Michel, c'est tout à fait ça.
Bonne journée.

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018 > lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018
12 oct. 2016 à 13:12

Bonjour Michel,

j'ai encore une erreur qui s'affiche lors de l'exécution de la macro : "erreur d'exécution 6"
Serais tu me dire de quoi cela provient? La macro fonctionnait pourtant au départ lorsque je l'ai mise puis quand j'ai rajouté des lignes, ça m'a affiché ce message d'erreur.
Voici le code que j'ai mis :

Option Explicit
Const Col_deb As String = "A"
Const Col_fin As String = "O"

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Call cacherligvide(25, 42)
Call cacherligvide(44, 73)
Call cacherligvide(78, 102)
Call cacherligvide(105, 134)
Call cacherligvide(139, 171)
Call cacherligvide(177, 197)
Call cacherligvide(201, 205)
Call cacherligvide(209, 212)
Call cacherligvide(216, 219)
Call cacherligvide(221, 238)
Call cacherligvide(243, 267)
Call cacherligvide(270, 299)

End Sub

Sub cacherligvide(deb, fin)
Dim Plage As Range, Nbre As Byte, Lig As Byte, Cptr As Byte

Set Plage = Range(Cells(deb, Col_deb), Cells(fin, Col_deb))
Nbre = Application.CountIf(Plage, "")
Lig = deb - 1
For Cptr = 1 To Nbre
Lig = Columns(Col_deb).Find("", Cells(Lig, Col_deb), xlValues).Row
If Application.CountA(Range(Cells(Lig, Col_deb), Cells(Lig, Col_fin))) = 0 Then
Rows(Lig).Hidden = True
End If
Next
End Sub

Merci beaucoup

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018
27 sept. 2016 à 11:13

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018
Modifié par michel_m le 12/10/2016 à 14:00

Bonjour
comme tu dépasses 255, il faut passer en integer au lieu de Byte, tu peux alors aller jusqu'à 32767

Dim Plage As Range, Nbre As Integer, Lig As Integer, Cptr as integer

lolau88 Messages postés 20 Date d'inscription dimanche 15 décembre 2013 Statut Membre Dernière intervention 25 juillet 2018 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
17 oct. 2016 à 10:35

Super, ça marche nickel. T'es trop fort...
Bonne journée

Discussions similaires

Extraire une partie de texte et en garder le reste.

Fonction NB.SI renvoie valeur cellule!

Supprimer des données précises dans une colonne Excel

extraire plusieurs chaîne de carractères excel

Inserer un tiret dans l'affichage d'une cellule

extraire le texte de cellules a partir d'un caractere

Discussions similaires

Newsletters