bonjour,
j'ai un code
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
j'ai un code
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