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

Résolu/Fermé

ezor Messages postés 176 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 176 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:

Excel sélectionner toutes les lignes sauf la première
Aller à la ligne excel - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Excel trier par ordre alphabétique en gardant les lignes - Guide

3 réponses

Réponse 1 / 3

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

Bonjour,

Avec Cells(Ligne, Colonne) :

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

Cordialement,
Franck

Réponse 2 / 3

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
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

Réponse 3 / 3

ezor Messages postés 176 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

Discussions similaires

Afficher toutes les lignes masquées excel

remettre toutes les colonnes et les lignes masquées

Probleme d'affichage de ligne dans Excel

Excel ne filtre pas les derniere donnée ecrite

Discussions similaires

Newsletters