VBA numéro de ligne d'une cellule

Résolu/Fermé

Numéro
Valeur
Vba

ori05 Messages postés 56 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 - 30 juil. 2009 à 09:30
ori05 Messages postés 56 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 - 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

Posez votre question

A voir également:

Récupérer le numéro de ligne d'une cellule excel vba
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Numero prive - Guide
Recuperer video youtube - Guide
Verrouiller cellule excel - 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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
30 juil. 2009 à 09:49

Salut,

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

Réponse 2 / 14

ori05 Messages postés 56 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 3
30 juil. 2009 à 11:30

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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
30 juil. 2009 à 11:48

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 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
30 juil. 2009 à 12:24

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 lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 3
30 juil. 2009 à 14:13

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

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
30 juil. 2009 à 14:14

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 lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 3
30 juil. 2009 à 14:17

Oui effectivement, autant pour moi ça marche dsl

Réponse 7 / 14

jjsteing Messages postés 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
30 juil. 2009 à 14:58

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

Réponse 8 / 14

ori05 Messages postés 56 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 3
30 juil. 2009 à 15:43

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 1669 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
30 juil. 2009 à 18:25

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 lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 3
31 juil. 2009 à 09:50

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 lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 3
4 août 2009 à 11:33

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 jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
4 août 2009 à 11:38

Salut,

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

Réponse 13 / 14

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
4 août 2009 à 11:40

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 lundi 13 juillet 2009 Statut Membre Dernière intervention 7 septembre 2009 3
4 août 2009 à 11:42

Super merci !!!

Posez votre question

Discussions similaires

Afficher le numéro de ligne de la cellule

hakoko - 8 févr. 2017 à 16:53
hakoko - 8 févr. 2017 à 17:31

4 réponses

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

0seb0 - 10 oct. 2007 à 16:56
JohnDKD - 17 juin 2015 à 13:29

10 réponses

[vba] recherche d'une valeur EXACTE

cel92 - 13 févr. 2008 à 12:06
Mimi - 13 avril 2018 à 16:56

10 réponses

Compter dans VBA le nombre de cellule non vide dans une colonne

Padawan_95 - 13 juil. 2015 à 17:56
ccm81 - 15 juil. 2015 à 11:57

4 réponses

Masquer des lignes en fonction de la valeur d'une cellule

Luke94 - 5 nov. 2015 à 21:17
Luke94 - 17 nov. 2015 à 21:57

23 réponses

Méthode find dans VBA - Recherche de données sous Excel

baissaoui - 23 juin 2022 à 14:55
baissaoui - 23 juin 2022 à 14:55

0 réponse

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

Discussions similaires

Newsletters