Si recherche valeur alors

Bonjour,

Cà coince sur ce programme : si une valeur d'une colonne est retrouvée dans une autre colonne alors on indique dans une autre cellule "PAYEE"

Si la recherche de la valeur de chaque ligne de la colonne L de l'onglet "FACTURATION"

dans la feuille "PAIEMENT" colonne E

alors on indique "PAYEE" dans la colonne O de l'onglet "FACTURATION"

Voilà le code que j'ai fait :

Sub RechPaiement()
'Si une facture est réglée, la mention PAYEE doit apparaître dans colonne O

Dim plage As Range, cel As Range
Dim valcherch As Long

'valeur à chercher
valcherch = Sheets("facturation").Range("L" & Rows.Count).End(xlUp).Row
'plage de recherche
Set plage = Sheets("paiement").Range("E1:E")

'test plage
For Each cel In plage
    If cel = valcherch Then
    cel.Sheets("facturation").Range("O3:O").Value = "PAYEE"
    End If
Next cel

End Sub

J'ai l'erreur 1004 - erreur définie par l'application ou par l'objet

Un coup de main

Merci

bonsoir

Je pense que la réponse soit comme ca

Sub Comparer()

Dim SH1 As Worksheet

Dim SH2 As Worksheet

Dim Lr1 As Long

Dim Lr2 As Long

Dim r1 As Range

Dim r2 As Range

Set SH1 = Sheets("PAIEMENT")

Set SH2 = Sheets("facturation")

Lr1 = SH1.Cells(Rows.Count, 5).End(xlUp).Row

Lr2 = SH2.Cells(Rows.Count, 12).End(xlUp).Row

For Each r1 In SH1.Range("E2:E" & Lr1)

For Each r2 In SH2.Range("L2:L" & Lr2)

If r1.Value = r2.Value Then r2.Offset(, 3) = "PAYEE"

Next

Next

End Sub

Bonsoir,

en effet ceci :

cel.Sheets("facturation").Range("O3:O").Value = "PAYEE"

ne correspond pas à l'idée VBA et son orientation objet, qui va du "moins précis" au "plus précis", là vous partez de la cellule, pour revenir sur la feuille puis la plage de cellule, et la valeur des cellules de cette plage !!!

belkacem64 a un code beaucoup plus propre !

@ bientôt

LouReeD

Merci pour votre aide,

Je me suis trompée dans la définition de ma condition

Si on ne trouve pas le n° de facture, c'est que la facture est payée.

Voici le tableau pour mieux comprendre.

J'ai repris le code fourni en l'annotant.

Merci à nouveau pour le coup de main.

Salut

Est-ce que cela vous convient

Bonsoir,

Impec !!

J'ai remplacer la valeur 1 par 0 par contre.

Merci beaucoup