compléter ma macro

[bpol]

bonjour,

j'ai un code

With Sheets([B19].Value)
        If Err > 0 Then MsgBox "Onglet inexistant": Exit Sub
            Ligne = .[A65536].End(xlUp).Row + 1
            .Cells(Ligne, 1) = Format(Range("B20"), "mm/dd/yy")
            .Cells(Ligne, 2) = Range("B21")
            .Cells(Ligne, 3) = Range("B22")
            
 End With
 Sheets("caisse").Select
 'and
 Range("D22") = Format(Range("B20"), "mm/dd/yy")
 'and
 'Range("C18") = DateAdd("d", 1, Range("B20"))
 
'and
Range("B9").Select

je voudrais y ajouter une condition
if sheets("caisse").range("B20")=sheets("caisse").range("D22")
then
etc .....


et si elle sont égales un MsgBox " déjà enregistrer" de même qu'arrêter la macro
Comment fait on ?


Merci
Bpol

 

[ROGER2327]

Re : compléter ma macro

Bonjour bpol

Peut-être :

[COLOR="DarkSlateGray"][B]If Sheets("caisse").Range("B20") = Sheets("caisse").Range("D22") Then MsgBox " déjà enregistrer": Exit Sub[/B][/COLOR]

Votre code est trop incomplet pour que je sois plus précis.​

ROGER2327
#2832

 

[bpol]

Re : compléter ma macro

Bonjour ROGER,

Merci cela me convient.



Bpol