Numéro de ligne via une variable date

Résolu/Fermé

conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 - Modifié par conrade82 le 26/03/2014 à 10:26
conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 - 26 mars 2014 à 13:14

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

A voir également:

Numéro de ligne via une variable date
Numero prive - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Hors ligne instagram - Guide
Aller à la ligne excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
26 mars 2014 à 10:53

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

conrade82 Messages postés 96 Date d'inscription dimanche 21 avril 2013 Statut Membre Dernière intervention 9 septembre 2016 4
26 mars 2014 à 13:14

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!

Discussions similaires

programme qui n'affiche pas le mot secret

Comment trouver un numéro à partir du nom et prénom

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Accéder à la liste de numéros de téléphone en 07

Discussions similaires

Newsletters