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

Résolu
ezor Messages postés 177 Date d'inscription   Statut Membre Dernière intervention   -  
ezor Messages postés 177 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

Avec Cells(Ligne, Colonne) : 

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



Cordialement,
Franck
0
Réponse 2 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
Réponse 3 / 3
ezor Messages postés 177 Date d'inscription   Statut Membre Dernière intervention   11
 
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