XL 2016 Selectionner une ligne jusqu'à dernière colonne

[maroon]

Bonjour!

Avec la macro que je fais j'aimerais mettre en couleur certaines lignes: des lignes vides qui séparent certaines parties du tableau. Je connais le numéro des lignes mais comme le nombre de colonnes varient je détermine le numéro de la dernière colonne avec le code:

ActiveCell.SpecialCells(xlLastCell).Column

Donc si je souhaite sélectionner la ligne vide numéro 15 par exemple jusqu'à la dernière colonne du tableau comment je dois écrire le code? Pour ensuite lui affecter une mise en forme.

Je n'arrive pas à trouver la syntaxe en utilisant le morceau de code que j'ai mis juste au-dessus.

Merci d'avance si quelqu'un peut m'aider!

 

[patricktoulon]

Re, Bonjour patrictoulon

Toujours basé sur le fichier exemple (cf message#18)

Sub Colorier_Lignes_Vides_III()
[Indicateurs].Resize(, [A1].CurrentRegion.Columns.Count).Offset(1).SpecialCells(4).Interior.Color = RGB(255, 133, 99)
End Sub

bonjour a tous
bon je reviens un peu comme ça vite fait
teste de la version de staple1600
comme on peu le constater si il y a une seule cellule en dehors du tableau qui est remplie ben walouh !!

Sub Colorier_Lignes_Vides_II()
[Indicateurs].Resize(, ActiveSheet.UsedRange.Columns.Count).Offset(1).SpecialCells(4).Interior.Color = RGB(255, 78, 127)
End Sub

 

[Staple1600]

Re, Bonjour jmfmarques, patricktoulon

•>patricktoulon
1) Avant de revenir sur ma version, reviens sur l'orthographe de mon pseudo: c'est Staple pas Stapple
2) Quel intérêt de revenir dessus puisque maroon utilise actuellement le code (le sien) qu'il a posté au message#54

•>mapomme
Café bu, pancake avalé
M'en vais donc étudier ta DerCol

 

[patricktoulon]

re
Bonjour Staple1600
ben j'arrive, je teste toute les solutions proposées
quel version utilise t il ?.

 

[patricktoulon]

re
ok pour 54 tu ne l'avais pas marqué

bon toujours est il qu'il faudra m'expliquer ceci

 derlig = Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

avec cela

ce qui est sur c'est que la 31 va passer

si ce tableau n'évolue pas en terme de taille pourquoi ne pas avoir créé un name le représentant ?
le name "INDICATEUR" il sert a quoi finalement? rien !
bref on voit là toute l'importance dans la conception qui nous entraîne dans un bourbier avec une simple action de colorisation de ligne vide par vba si c'est pas bien pensé au départ

obligé de déterminer un tableau qui selon ce que je vois est sensé être fixe puisqu'il y a autre chose en dessous
tout jusqu'a with plage aurait pu être évité en nommant simplement le tableau A1F29

Sub Macro1()
    Dim derlig&, dercol&
    Application.ScreenUpdating = False
    With ActiveSheet
        derlig = .Range("indicateurs").Rows.Count + .Range("indicateurs").Row
        dercol = .Range("indicateurs").Cells(1).End(xlToRight).Column
        Set plage = .Range("indicateurs").Resize(derlig, dercol)
        With plage
            .Interior.Color = xlNone
            .AutoFilter Field:=1, Criteria1:="="
            Set p = .SpecialCells(xlVisible)
            .AutoFilter
            For Each area In p.Areas
                If WorksheetFunction.CountBlank(area) = .Columns.Count Then area.Interior.Color = RGB(255, 78, 127)
            Next
        End With
    End With
End Sub

ps: si le tableau devait évoluer en terme de colonne si la ligne de titre est dûment remplie le code ne change pas

 

[patricktoulon]

re
j'upgrade rien du tout
c'est mal fagoté et c'est tout 54 ou pas 54

 For Each cel In plage
        For i = 1 To derlig
            If IsEmpty(Cells(i, 1).Value) = True Then

non mais sérieux ??????,
tu va boucler sur toute les cells du tableau

LOL et RE LOL

 

[patricktoulon]

non c'est pas vrai !!! 54 au départ ca n’était pas écrit tu l'a modifié après!!!
ne me prend pas pour un Champion Olympique de Natation
c'est dommage que j'ai pas fait comme d’habitude (capturer) sinon je te montrerais
la mauvaise fois c'est toi

mais qu'importe
il n'y en a pas un!!! qui aurait pu lui dire de nommer son tableau en entier sérieux!!!????

enfin bref

 

[Staple1600]

Re

[aparté]
Quatre pages pour du coloriage et du VBA en veux-tu en voilà
Alors que suffit de caresser son clavier
(Avec un tableau structuré nommé: Mon_Tableau)
F5 Référence:=Mon_Tableau
F5
ALT+C
ALT+D
OK
Clic-droit et on choisit sa couleur
[/aparté]

 

[patricktoulon]

re
la oui je suis d'accords avec un TABLEAU STRUCTURE tout aurait été plus facile même en vba
quatre page et il n'y en a pas un!! qui lui a dit
c'est du bancale, mal fagoté , et je teste pas mais certainement non pérenne !!!!

 

[patricktoulon]

Re

•>patricktoulon
Où tu vois une date d’édition dans le message #62 de 9h48 ???
Ça te réussit pas Office 2013...
Tu t'énerves tout seul (lol)

PS: Et le 54 j'en causais aussi dans le message#64 (non édité aussi)

bon bref ca change rien
je m’énerve par ce si il ny a quelque chose que l on peut pas me dire c'est bien que je suis de mauvaise fois c'est même plutôt le contraire je suis plutôt du genre coup de boule ca passe ou ca casse et cela dans tout
si je te dis que ton post s’arrêtait a "message#" chez moi c'est que c'est vrai

 

[patricktoulon]

pour te le prouver
message précédent

je réédite pour l’expérience tout de suite après

tu le vois ou!!!! toi le signalement de réédition hein !!!!!

 

[patricktoulon]

Re

Mauvaise foi ou pas
Personnellement, ce matin quand je me suis connecté sur ce fil, personne n'a eu à me dire quel code le demandeur utilise à l'heure actuelle
Sans doute parce que j'avais mes lunettes sur le nez.

je l'ai vu et qu'importe c'est bancale quand même !!!!!!!chronophage,

tu me diras tout les chemins mènent a Rome mais quand on est a pied ça peut faire la différence

 

[jmfmarques]

Bon ... efforçons-nous de mettre tout le monde d'accord (mais sans rapprochement, hein, Connard-virus obligeant) :
Moi, ce que je n'aime pas, ce sont les fraises au poivre. Et heureusement, que je ne les aime pas ... Car si je les aimais, j'en mangerais ... Et comme je ne les aime pas ... !

 

[patricktoulon]

Re

•>patricktoulon
Tu devrais aussi sortir ta serpillière

aurais je besoins de te rappeler un proverbe bien de chez nous qui parle de balai et de porte !!!

 

[mapomme]

Bonjour à tous et aux autres ,

edit : Bonjour @patricktoulon

Utilisons les outils qu'Excel met à notre disposition -> Les tableaux dits "structurés" (ou ListObject en VBA).

La détection des données du tableau devient simplissime et les codes tout riquiqui. Plus de risque de se trouver en dehors du tableau.

Un exemple dans le fichier joint.

Pour les réfractaires aux téléchargements (je ne les citerai pas mais j'en connais ), le code est fourni avec en plus quelques explications.

Le code dans module1:

Option Explicit
Const Fuchsia = 8343295, Menthe = 5158934, Tablo = "MesData"

Sub EnFuchsia()
'Pour les lignes "vides", on affecte couleur Fuchsia
'pour les autres lignes, on remet la couleur implicite du tableau structuré
Dim xligne As Range
   For Each xligne In Range(Tablo).Rows
      xligne.Interior.ColorIndex = xlColorIndexNone
      If Walou(xligne) Then xligne.Interior.Color = Fuchsia
   Next xligne
End Sub

Sub alterner()
'Pour les lignes "vides", on alterne entre la couleur Menthe et Fuchsia
'pour les autres lignes, on remet la couleur implicite du tableau structuré
Dim xligne As Range
   For Each xligne In Range(Tablo).Rows
      If Walou(xligne) Then xligne.Interior.Color = IIf(xligne.Interior.Color = Menthe, Fuchsia, Menthe) Else xligne.Interior.ColorIndex = xlColorIndexNone
   Next xligne
End Sub

Function Walou(xrg As Range) As Boolean
' Retourne TRUE si xrg ne contient que des cellules vides (sinon renvoie FALSE)
' Une cellule vide ne contient ni une erreur, ni une formule, ni la constante ""
Dim s, xcell
   Walou = True
   For Each xcell In xrg.Cells
      If IsError(xcell) Then
         Walou = False: Exit Function     ' la valeur de la cellule est une valeur d'erreur
      ElseIf xcell.HasFormula Then
         Walou = False: Exit Function     ' la cellule contient une formule
      ElseIf Len(xcell) > 0 Then
         Walou = False: Exit Function     ' la cellule contient quelque chose dont la longueur n'est pas nulle
      End If
   Next xcell
End Function

Quelques explications :

 

[Staple1600]

Re

Merci mapomme
Vous trouverez ci-dessous ma petite contribution en guise de remerciements.

Sub Walou_Maker()
Range("A:G").Delete
Cells(1).Resize(11 + 11, 7 * 11 / 11) = Split(StrConv("mapomme", 11 + 11 + 11 + 11 + 11 + 9), Chr(0))
Range("3:3,5:6,8:10,14:17,21:21") = ""
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$22"), , xlNo).Name = "MesData"
End Sub