Numéro de ligne via une variable date
Résolu
conrade82
Messages postés
105
Statut
Membre
-
conrade82 Messages postés 105 Statut Membre -
conrade82 Messages postés 105 Statut Membre -
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:
Cordialement,
Conrade82
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
A voir également:
- Numéro de ligne via une variable date
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Partage de photos en ligne - Guide
- Numero prive - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
1 réponse
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
' ???????? 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!