Numéro de ligne via une variable date
Résolu
conrade82
Messages postés
96
Date d'inscription
Statut
Membre
Dernière intervention
-
conrade82 Messages postés 96 Date d'inscription Statut Membre Dernière intervention -
conrade82 Messages postés 96 Date d'inscription Statut Membre Dernière intervention -
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
- Partage de photos en ligne - Guide
- Numero prive - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Mètre en ligne - Guide
- Aller à la ligne excel - 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!