Sélectionner toute une ligne sauf les premières cellules

Résolu/Fermé
ezor Messages postés 177 Date d'inscription dimanche 1 mars 2009 Statut Membre Dernière intervention 27 octobre 2016 - Modifié par ezor le 14/08/2014 à 14:34
ezor Messages postés 177 Date d'inscription dimanche 1 mars 2009 Statut Membre Dernière intervention 27 octobre 2016 - 17 août 2014 à 23:20
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
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
A voir également:

3 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié par pijaku le 14/08/2014 à 14:59
Bonjour,

Avec Cells(Ligne, Colonne) :

Range(Cells(14, 6), Cells(14, numdernierecolonne)).Select



Cordialement,
Franck
0
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
14 août 2014 à 16:47
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
0
ezor Messages postés 177 Date d'inscription dimanche 1 mars 2009 Statut Membre Dernière intervention 27 octobre 2016 11
17 août 2014 à 23:20
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
0