VBA numéro de ligne d'une cellule

Résolu

Numéro
Valeur
Vba

ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention - 4 août 2009 à 11:42

Bonjour,
je voudrais savoir si il était possible de récupérer le numéro de ligne d'une cellule ? C'est à dire si j'ai la cellule A3 je veux récupérer 3. Comment je dois procéder (en VBA) ?

Merci beaucoup pour votre aide

Afficher la suite

Répondre (14) Posez votre question

Répondre (14)

A voir également:

Vba ligne d'une cellule
Aller à la ligne dans une cellule excel - Guide
Partager photos en ligne - Guide
Excel compter cellule couleur sans vba - Guide
Mètre en ligne - Guide
Excel cellule couleur si condition texte - Guide

14 réponses

Réponse 1 / 14

Meilleure réponse

La meilleure réponse est la réponse qui a été validée par nos équipes.

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Salut,

Sub Ligne()
  MsgBox Range("A3").Row
End Sub

Réponse 2 / 14

ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention 3

Merci !!
Je mettais .Rows avec un "s" donc je pense que c'est pour ça que ça ne marchais pas !
Autre question comment je pourrais accéder à la première et à la dernière ligne d'une plage de cellules ?
Il n'y aurait pas quelque chose du genre : Range("ma_plage").FirstRow ???

Merci

Réponse 3 / 14

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Re,

Peut être

Sub ligne_plage()
    Dim l1, l2
    Dim plage As Range
    
    Set plage = Range("A3:B6")
   
    With plage
        l1 = .Row
        l2 = l1 + .Rows.Count - 1
    End With
    
    MsgBox l1 & " et " & l2
End Sub

--
106485010510997108

Réponse 4 / 14

jjsteing Messages postés 1670 Date d'inscription Statut Contributeur Dernière intervention 181

bonjour :)

sinon..

Set plage = Range("A3:B6")
a = InStr(1, plage.Address, ":")
ligne1 = Mid(plage.Address, a - 1, 1)
ligne2 = Right(plage.Address, 1)
MsgBox "ligne1=" & ligne1 & " - ligne2=" & ligne2

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 14

ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention 3

Merci jjsteing, mais si j'ai nommé ma plage de cellule cela ne va pas marcher ??

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Re,

Ben, tu n'as qu'à tester et tu veras si ça marche ou pas.
C'est plutôt à toi de nous dire si ça marche ;-))

Réponse 6 / 14

ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention 3

Oui effectivement, autant pour moi ça marche dsl

Réponse 7 / 14

jjsteing Messages postés 1670 Date d'inscription Statut Contributeur Dernière intervention 181

cool.. donc post résolu ;):p

Réponse 8 / 14

ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention 3

Par contre mes plages de cellule sont situées dans un grand tableau qui peut tout le temps varier donc mes plages se "déplacent". Elles peuvent avoir des numéros de lignes à 2 chiffres ou à 3 chiffres, donc si je mets :

ligne2 = Right(plage.Address, 3) quand mon numéro de plage est à 2 chiffres ça ne marche pas (et je veux quelque chose de général qui puisse s'adapter à ces 2 cas de figure...)

Si par exemple ça concerne la ligne 21, la cellule dans laquelle je récupère ce numéro à pour valeur 21 € !!!! Je ne sais pas pourquoi le signe € apparaît !!

Réponse 9 / 14

jjsteing Messages postés 1670 Date d'inscription Statut Contributeur Dernière intervention 181

Il est vrai...

Alors :
Set plage = Range("AA33:BA67")
CellAdd = plage.Address
a = InStr(2, CellAdd, "$")
b = InStr(1, CellAdd , ":")

ligne1 = Mid(CellAdd , a + 1, b - a - 1)

c = InStr(b + 2, CellAdd, "$")
ligne2 = Right(CellAdd , Len(CellAdd) - c)
MsgBox "ligne1=" & ligne1 & " - ligne2=" & ligne2

pour ton signe € regarde le format de ta cellule ;)

Réponse 10 / 14

ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention 3

Ca marche super merci beaucoup !!! Ca va me permettre d'alléger considérablement mon code !!
J'ai vérifié mon format de cellule j'étais bien en format standart... c'est étrange. Bref de toute façon cela fonctionne donc c'est super !
Encore merci :-)

Réponse 11 / 14

ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention 3

Bonjour, autre petit problème ....
Je voudrais à la suite du code :

Set plage = Range("AA33:BA67")
CellAdd = plage.Address
a = InStr(2, CellAdd, "$")
b = InStr(1, CellAdd , ":")

ligne1 = Mid(CellAdd , a + 1, b - a - 1)

c = InStr(b + 2, CellAdd, "$")
ligne2 = Right(CellAdd , Len(CellAdd) - c)

faire :

Rows("ligne1:ligne2").Select

mais ça ne marche pas, ça me renvoie un message d'erreur : "incompatibilité de type"

Comment faire ???

Merci beaucoup :-)

Réponse 12 / 14

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Salut,

Rows(ligne1 & ":" & ligne2).Select

Réponse 13 / 14

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

Re,

En faite ligne1 et ligne2 sont des variables qui contiennent un nombre.
Rows à besoin des nombres de lignes et pas de chaines de caractères.
Quand tu mets les guillements VBA croit que les chaines ligne1 et ligne2 sont des nombres, c'est pour ça que tu as une erreur.
Ce qui interesse c'est le contenu de ligne1 et ligne2.

Réponse 14 / 14

ori05 Messages postés 56 Date d'inscription Statut Membre Dernière intervention 3

Super merci !!!

Répondre Posez votre question

Votre réponse

Discussions similaires

[Excel] Récupérer le NUMERO d'une colonne

0seb0 -
JohnDKD -

10 réponses

Afficher le numéro de ligne de la cellule

hakoko -
hakoko -

4 réponses

EXCEL VBA - recherche d'une valeur

olive60 -
olive60 -

18 réponses

[EXCEL] - VBA - Ecrire dans un cellule

Astrackt -
Polux31 -

2 réponses

Excel VBA : Récupérer la valeur d'une cellule

la pioche -
mikebzh -

3 réponses

VBA .Copier valeur cellule excel sans formule

sanchis81 -
toto -

10 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire