Discussion :

[TSAFACK-M]

Salut le forum !

J'ai un petit souci avec l’identification dynamique des lignes et des colonnes.
En fait je voudrais obtenir ceci :

Code :

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

1
2
3
4
5
6
7
8
 
 
      Lrow = .Cells(Rows.Count, 1).End(xlUp).Row
      Lcolumn = .Cells(1, Columns.Count).End(xlToLeft).Column
 
      For J = 3 To Lr Step 2
            .Range("A" & J & ":L" & J).Interior.Color = RGB(183, 222, 232)
      Next J

Mais de de sorte que A et L soit déterminés intelligemment.

Un coup de main me serait un grand soulagement

Cordialement.

[Marc-L]

Bonjour,

une explication claire et exhaustive aiderait déjà à comprendre le besoin …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Menhir]

Mais de de sorte que A et L soit déterminés intelligemment.

"intelligemment", c'est un bon début mais ça reste assez vague comme règle à appliquer.

[Marc-L]

« Intelligemment » je m’intéresserais plutôt aux propriétés   CurrentRegion   ou   UsedRange   et à la collection   Rows   …

[patricktoulon]

re
bonjour

surtout que deja des les premieres lignes il y a une coquille: "Lr" c'est quoi

Code :

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

1
2
3
4
Lrow = .Cells(Rows.Count, 1).End(xlUp).Row
      Lcolumn = .Cells(1, Columns.Count).End(xlToLeft).Column
 
      For J = 3 To Lr Step 2

essaie un peu cela

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    With ActiveSheet
        colonnedefin = Cells(1, "L").Column
        For J = 3 To .Cells(Rows.Count, 1).End(xlUp).Row Step 2
            .Range("A" & J).Resize(1, colonnedefin).Interior.Color = RGB(183, 222, 232)
        Next J
    End With
End Sub

[TSAFACK-M]

Merci de vous être penché sur mon problème.

Le problème était qu'il fallait mettre en forme la requête SQL dont le nombre colonne importé varie
selon l'instruction contenu dans le Recordset. j'ai trouvé en cherchant un peu sur le forum

voici la solution que j'ai adapté

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
 
Function GetColumnAddress(ClnIndex As Variant)
    If IsNumeric(ClnIndex) Then
        GetColumnAddress= Split(Columns(ClnIndex).EntireColumn.Address, ":$")(1)
    Else
        GetColumnAddress= Val(Mid(Columns(ClnIndex).Address(ReferenceStyle:=xlR1C1), 2))
    End If
End Function
Sub testGetColumnAddress()
    Lcol = Feuil1.UsedRange.Cells(2, Columns.Count).End(xlToLeft).Column
    Lr = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    For J = 3 To Lr Step 2
        For I = 1 To Lcol
            Feuil1.Range(GetColumnAddress(I) & J & ":" & _
            GetColumnAddress(Lcol) & J).Interior.Color = RGB(183, 222, 232)
            Debug.Print (GetColumnAddress(I) & J) & ":" & (GetColumnAddress(Lcol) & J)
        Next I
    Next J
End Sub
'La fonction permet de recupérer dynamiquement les Adresses de colonne sans avoir
'besoin de les définir en Dur Comme Ceci (ex: Range("A" & J & ":L" & J) où seul l'index de la ligne
'est dynamique et la colonne statique

Merci à Patrick pour sa proposition qui marche. sauf qu'il faut remplacer colonnedefin = Cells(1, "L").Column par
colonnedefin = UsedRange.Columns.Count
Cordialement !

[patricktoulon]

re
Ok mais tu en fait un cinema pour repérer la colonne
pas besoins de fonction
si tu utilise usedrange c'est la derniere(.specialcells(xllastcell).column)et puis c'est tout
je vois aussi que tu met en couleur colonne par colonne tu va boire un café entre temps c'est ca tu travaille chez roico tu fait des pauses
et que n'a tu pas compris dans le (resize )
bref OK comme tu veux ci ca te convient c'est bon pour moi

[Marc-L]

Comme déjà indiqué, avec CurrentRegion (ou UsedRange) + Rows connaître la colonne est inutile ‼