Syntaxe

Bonjour,

Je cherche la syntaxe pour sélectionner plusieurs cellules en ligne à partir de la cellule C2 et allant jusqu'à la case L.

Le nombre de cellule dépend d'une variable exemple: si ma variable = 2, sélectionner C2 et D2, si elle est égale à 3, sélectionner C2 D2 et E2 et ainsi de suite. J'ai essayé Set maplage = Range("C2" & ":L" & i) où i est égale à la valeur d'une cellule mais ça ne fonctionne pas :/

Je continue à chercher

Merci !!

Bonjour,

Si ta variable se trouve en I essaies la syntaxe suivante : Range(Cells(2, 3), Cells(2,2+I)).Select

Syntaxe Cells(ligne,colonne). L'intérêt est que l'on peut calculer les lignes ou les colonnes.

Merci de confirmer si cela t'as aidé.

A+

Chris

Bonjour,

Tu peux utiliser

Range("C2").Resize(, i).Select

A+

bonjour

je n'y connais pas grand chose ;mais je taterai du offset(0, la variable) a l'instar de DECALER

cordialement

Super merci !!!

Je profite du coup pour vous demander la syntaxe pour récupérer la dernière cellule colorée de la ligne C ? Il n'y a que de la couleur sans texte :/

Est-ce possible déjà ??

Re,

J'ai trouvé celle-ci :

Dim iCol As Long
    Dim cnt As Long, iCell As Long
    With Range("C2:X2")
        For iCol = .Columns.Count To 1 Step -1
            For iCell = .Columns(iCol).Cells.Count To 1 Step -1
                If .Cells(iCell, iCol).Interior.ColorIndex <> xlColorIndexNone Then
                MsgBox .Cells(iCell, iCol).Address

                Exit Sub
            End If
            Next
        Next
    End With

comment puis-je l'adapter pour avoir la cellule vide juste après ?

Merci.

Comme ça

Dim iCol As Long
    Dim cnt As Long, iCell As Long
    With Range("C2:X2")
        For iCol = .Columns.Count To 1 Step -1
            For iCell = .Columns(iCol).Cells.Count To 1 Step -1
                If .Cells(iCell, iCol).Interior.ColorIndex <> xlColorIndexNone Then
                MsgBox .Cells(iCell, iCol + 1).Address

                Exit Sub
          End If
        Next
       Next
    End With