Numéro de ligne via une variable date

[Résolu/Fermé]
Signaler
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
-
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
-
Bonjour,

Je travaille sur une petite macro (une partie d'un long code) sur laquelle je bute:

J'utilise une boucle en "for each ... in" et je veux, si la condition if est vrai, que le numéro de la ligne concernée soit enregistrée dans une variable. C'est là où je bute car je ne sais pas comment faire. J'ai tenté :

decal1 = row(rCell) mais ça me renvoie une erreur... Quelqu'un peut m'aider ?

Merci d'avance.

Voici mon code:


Sub a_MAJ_Mec_Actuelle()

Dim decal1 As Integer, rCell As Range, lastli As Integer

lastli = Workbooks("MEC 2014-03-17").Sheets("Base").Range("A1").End(xlDown).Row

For Each rCell In Workbooks("MEC 2014-03-17").Sheets("Base").Range("A3:A" & lastli)
If rCell = Workbooks("MEC FR").Sheets("Base").Range("A6").Value Then
decal1 = ' ligne de rcell ?
If decal1 = "0" Then Exit Sub
exit for
End If
Next rCell
End Sub




Cordialement,
Conrade82

1 réponse

Messages postés
15831
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 juillet 2021
1 512
Bonjour,

Sub a_MAJ_Mec_Actuelle()

Dim decal1 As Integer, rCell As Range, lastli As Integer

lastli = Workbooks("MEC 2014-03-17").Sheets("Base").Range("A1").End(xlDown).Row

For Each rCell In Workbooks("MEC 2014-03-17").Sheets("Base").Range("A3:A" & lastli)
If rCell = Workbooks("MEC FR").Sheets("Base").Range("A6").Value Then
decal1 = rCell.Row ' ligne de rcell ?
' ???????? quoi-t-est-ce
If decal1 = "0" Then Exit Sub
Exit For
End If
Next rCell
End Sub
Messages postés
96
Date d'inscription
dimanche 21 avril 2013
Statut
Membre
Dernière intervention
9 septembre 2016
4
Bonjour,

' ???????? quoi-t-est-ce = une erreur, avant j'avais écrit un code qui utilisait un msg box. J'ai oublié de supprimer cette ligne qui ne sert à rien dans cette autre version de code.

Merciiiiiiiii beaucoupppppppp!