Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut,
A adapter selon tes besoins :
Sub SelectionColonne() Dim ColMin As Integer, ColMax As Integer Dim rg As Range ColMin = 1: ColMax = 5 Set rg = Columns(ColMin) For i = ColMin + 2 To ColMax Step 2 Set rg = Union(rg, ActiveSheet.Columns(i)) Next rg.Select End Sub
A+ Nicolas B.
Bonjour à tous,
Je desirerais trouver une solution par macro pour selectionner une colonne sur 2
Exemple :
selectionner les colonnes 1,3,5
Merci pour votre aide
Le Lauxeti
Salut,
A adapter selon tes besoins :
Sub SelectionColonne()
Dim ColMin As Integer, ColMax As Integer
Dim rg As Range
ColMin = 1: ColMax = 5
Set rg = Columns(ColMin)
For i = ColMin + 2 To ColMax Step 2
Set rg = Union(rg, ActiveSheet.Columns(i))
Next
rg.Select
End Sub
A+
Nicolas B.
Bonjour à tous,
Je desirerais trouver une solution par macro pour selectionner une
colonne sur 2
Sub SelectionColonne() Dim ColMin As Integer, ColMax As Integer Dim rg As Range ColMin = 1: ColMax = 5 Set rg = Columns(ColMin) For i = ColMin + 2 To ColMax Step 2 Set rg = Union(rg, ActiveSheet.Columns(i)) Next rg.Select End Sub
A+ Nicolas B.
Bonjour à tous,
Je desirerais trouver une solution par macro pour selectionner une colonne sur 2