Sélectionner toute une ligne sauf les premières cellules
Résolu
Bonjour,
Je suis entrain de débuter le VBA pour programmer des petites choses sur excel et j'ai un problème dès qu'il s'agit de faire des sélections par ligne.
En ce moment, je cherche à sélectionner toute une ligne sauf les premières colonnes
(par exemple, la ligne 14 à partir de la colonne F seulement)
Pour les lignes, ça marche sans problème
où numéro_de_la_derniere_ligne est une variable (et encore je ne sélectionne même pas tout mais bon, si la variable est assez grande ça me suffit)
Pour les colonnes en revanche, impossible de faire
et je ne voudrais pas avoir à faire
je sais aussi que
bref, si l'un de vous a une idée, je suis preneur.
D'avance merci
ezor
Je suis entrain de débuter le VBA pour programmer des petites choses sur excel et j'ai un problème dès qu'il s'agit de faire des sélections par ligne.
En ce moment, je cherche à sélectionner toute une ligne sauf les premières colonnes
(par exemple, la ligne 14 à partir de la colonne F seulement)
Pour les lignes, ça marche sans problème
Range("F14:F" & numéro_de_la_derniere_ligne).Select
où numéro_de_la_derniere_ligne est une variable (et encore je ne sélectionne même pas tout mais bon, si la variable est assez grande ça me suffit)
Pour les colonnes en revanche, impossible de faire
Range("F14:" & numéro_de_la_derniere_colonne & "14").Select
et je ne voudrais pas avoir à faire
Range("F14:ZZZZ14").Select
je sais aussi que
Range("14:14").Select sélectionne toute la ligne 14 mais les première cellule me gênent et je n'arrive pas à dé-sélectionner les premières seulement
bref, si l'un de vous a une idée, je suis preneur.
D'avance merci
ezor
3 réponses
-
ModérateurBonjour,
Avec Cells(Ligne, Colonne) :
Range(Cells(14, 6), Cells(14, numdernierecolonne)).Select
Cordialement,
Franck -
Bonjour
et pour compléter la proposition de pijaku (salut à toi au passage)
Dim lifin As Long, cofin As Long
Const lideb = 6
Const codeb = 4
With ActiveSheet
' selection dans la ligne lideb depuis codeb jusqu'à cofin
cofin = .Cells(lideb, Columns.Count).End(xlToLeft).Column
.Range(.Cells(lideb, codeb), .Cells(lideb, cofin)).Select
MsgBox ""
' selection dans la colonne codeb depuis lideb jusqu'à lifin
lifin = .Cells(Rows.Count, codeb).End(xlUp).Row
.Range(.Cells(lideb, codeb), .Cells(lifin, codeb)).Select
MsgBox ""
End With
Cordialment -
salut, et merci à vous deux, c'est effectivement ce genre de chose que je voulais.
J'ai encore du mal à gérer les sélections de cellule avec le fonction Cells, et tout ce qui est compter les colonnes, vides ou non, premières dernière etc.
encore merci
