Déterminer dynamiquement l’adresse la colonne en VBA

Version imprimable

Salut le forum !

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

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.

07/02/2018, 11h48
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, …
07/02/2018, 12h21
Menhir

Citation:

Envoyé par TSAFACK-M

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. :mrgreen:
07/02/2018, 12h25
Marc-L

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

re
bonjour

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

Code:

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:

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

Déterminer dynamiquement l’adresse la colonne en VBA

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:

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 !

07/02/2018, 16h43
patricktoulon

re

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 :calim2::oops::aie: tu va boire un café entre temps c'est ca tu travaille chez roico tu fait des pauses :mouarf:
et que n'a tu pas compris dans le (resize )
bref OK comme tu veux ci ca te convient c'est bon pour moi
07/02/2018, 19h44
Marc-L

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