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!

 

[mapomme]

Bonjour @jmfmarques ,

Chez moi, ça ne marche pô à tout les coups :

• uniquement un petit tableau avec un filtre automatique
• on filtre pour ne pas afficher les dernières lignes
• la macro renvoie la dernière ligne visible et non la dernière ligne du tableau et donc de la feuille

Toujours le souci avec les instructions du type Find(), End() et d'autres sinon ce serait trop simple.

 

[mapomme]

Re, @jmfmarques , @Staple1600,

(t'as raison ... ta machine est lente ...)

Elle s'est adaptée au rythme du confinement (ou bien au propriétaire, c'est une autre possibilité envisageable) . Bon, je sors...

 

[Staple1600]

Re

[humour]
Je vous em*erde !!!
Laissez mon PC tranquille !!!
Il est juste comme moi , il suit le mouvement
[/humour]

 

[jmfmarques]

Bonjour mapomme

Je ne vois pas ce que tu veux dire car chez moi la feuille tremplin affiche les lignes masquées de la feuille source.

 

[Staple1600]

RE

Quelles lignes masquées ?

 

[jmfmarques]

Quelles lignes masquées

des lignes que je saisis et masque avant le lancement de la procédure. Elles sont affichées (et donc comptées) sur la feuille tremplin.

 

[Staple1600]

Re

Ceci n'était point indiqué dans la procédure à suivre non?
Mon test a consisté à:
1) Créer une feuille tremplin dans un classeur vierge (contenant déjà 1 feuille)
2) Exécuter la macro du message#85
3) Exécuter la macro du message#88
2)

 

[jmfmarques]

Oui, Staple, ce n'était pas prévu, mais rien n'empêche de faire aussi ceci (masquer manuellement, pour voir) avant le lancement de la procédure.

 

[Staple1600]

Re

ce que je viens de faire
Feuil1|$A$1:$F$29 (ListObject)
(avec lignes 24 à 29 masquées)
0,015625
29
6

 

[patricktoulon]

re
a ben nous voila transporté sur une autre feuille maintenant
c'est quoi l'idée là ???
@jmfmarques on a eu la même idée pour le usedrange on range
sauf que je comprends pas tres bien tout du moins pourquoi un sheets tremplin

Sub test()
    Set tableau = Range("c3:h25")
    MsgBox UsedrangeOnRange(tableau).Address
End Sub

Function UsedrangeOnRange(tableau) As Range
    Dim lig&, col&, adresse$, cel1 As Range, cel2 As Range
    With tableau
        Set cel1 = .Cells(1)
        col = .Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
        lig = .Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Set cel2 = Cells(lig, col)
        Set UsedrangeOnRange = .Parent.Range(cel1, cel2)
    End With
End Function

 

[jmfmarques]

sauf que je comprends pas tres bien tout du moins pourquoi un sheets tremplin

C'est tout simplement le moyen de transformer en cellules con tenant des constantes celles de la feuille sources qui contiendraient le résultat de formules.
Et on fait dans la foulée disparaitre du "recensement" les cellules formatées.

 

[Staple1600]

Re

•>jmfmarques
J'ai fait le test que tu demandais.
(cf mon précédent message)

 

[jmfmarques]

J'ai vu Staple. Et t'en remercie.

 

[maroon]

Bonjour à tous
@Marcel32 Merci pour #55 ça 'a permis de comprendre un peu mieux ce que j'avais fait (je fais des choses à tâtons des fois) et le code est plus court et surement plus rapide (@jmfmarques ).
Je n'ai pas de légitimité pour dire ça mais je crois aussi que @patricktoulon se trompe en disant que mon code bouclait sur toutes les cellules du tableau (#65) puisque je suis dans la plage "plage"...

@Staple1600 je confirme ce que @patricktoulon disait ce code

ActiveSheet.UsedRange.EntireRow.SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(255, 78, 127)

met en couleur toutes les cellules vide du tableau! Ca ne se voit pas sur mon exemple car "toutes les cellules" sont pleines.

@jmfmarques merci pour la technique #59 je vais y penser maintenant quand j'écris du code (même quand ce sont des petits code ça permet de choisir ce qui est mieux)

@patricktoulon c'est bizarre le code #64 met toute la ligne en couleur et ne s'arrête pas à la dernière colonne du tableau sur mon fichier alors qu'il le fait sur ta vidéo! Je vais essayer de voir pourquoi...

@mapomme merci pour ces codes je vais eessayer de les comprendre pour les faire fonctionner car pour l'instant c'est un peu laborieux

 

[Staple1600]

Bonjour le fil,

Spoiler: Il suffit de nommer les choses pour...

Sub Les_Xipéhuz(Optional Confinement_Oblige_READ_IT)
Dim X As Range, Y As Range, m²$
Sheets(1).Range("A1:S1600").Name = "Zone_51"
With [Zone_51]: .Parent.Select: Set X = .Item(1): Set Y = .Cells(.Cells.Count): End With
m² = [Zone_51].Address & Chr(13): m² = m² & X.Row & Chr(13): m² = m² & Rows(X.Row).Address & Chr(13)
m² = m² & Y.Column & Chr(13): m² = m² & Columns(Y.Column).Address & Chr(13)
m² = m² & Split([Zone_51].Address(0, 0), ":")(0) & Chr(13): m² = m² & Split([Zone_51].Address(0, 0), ":")(1) & Chr(13)
m² = m² & [Zone_51].Cells.Count & Chr(13): m² = m² & [Zone_51].Rows.Count & "| " & [Zone_51].Columns.Count
MsgBox m², vbExclamation, "I always know where I'am !"
End Sub

Un bon petit déjeuner à tous !
Et confinons explicitement avec option .