Discussion :

[Nonno 94]

Bonjour le Forum,

pouvez-vous m'aider pour modifier le code ci-dessous qui permet de sélectionner sur la ligne "a" une plage de cellules (colonnes "K" à "X")

Code :

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

 Range("K" & a.Row & ":" & "X" & a.Row).Select

pour ne sélectionner par exemple sur la ligne "a" que les cellules K, L, R, T, U et X.

Avec mes remerciements, en vous souhaitant un bon après-midi.

Cordialement.

Nonno 94.

[Theze]

Bonjour,

Il y a une multitude de possibilités mais en voilà trois pour l'exemple :

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
 
Sub Test()
 
    Dim a As Long
    Dim Chaine As String
 
    a = 10
 
    'avec Range
    Union(Range("K" & a), Range("L" & a), Range("R" & a), Range("T" & a), Range("U" & a), Range("X" & a)).Select
 
    'avec Cells
    Union(Cells(a, 11), Cells(a, 12), Cells(a, 18), Cells(a, 20), Cells(a, 21), Cells(a, 24)).Select
 
    'en construisant une chaîne
    Chaine = "K" & a & ":L" & a & ",R" & a & ",T" & a & ":U" & a & ",X" & a
    Range(Chaine).Select
 
End Sub

Hervé.

[Nonno 94]

Bonjour Theze,

je n'ai que l'embarras du choix avec ces 3 réponses pertinentes.

et BRAVO.

Bonne fin de journée.