copy cellule

[AIGLON74]

BONJOUR

je copy la cellule E6 PAGE modiffiche
en page base cellule D3

CA MARCHE TRES BIEN

premier = Sheets("modiffiche").Range("E6").Value
Resultat = premier
Sheets("base").Range("D3").Value = Resultat


MAIS JE VOUDRAIS
COPY la cellule E6 PAGE MODIFICHE si elle est vide (E6) copy la cellule E5
en page base cellule D3


MERCI PAR AVANCE


AIGLON74

 

[Épaf]

Re : copy cellule

If Sheets("modiffiche").Range("E6").Value <> "" then
     Sheets("base").Range("D3").Value = Sheets("modiffiche").Range("E6").Value 
   else
     Sheets("base").Range("D3").Value = Sheets("modiffiche").Range("E5").Value
endif

Bon après-midi

 

[Banzai64]

Re : copy cellule

bonjour

Essayes

With Sheets("modiffiche")
Sheets("base").Range("d3") = Iif(.Range("e6")<>"", .Range("e6"), .Range("E5") )
End With

Heuuu J'ai pas teste alors je sais pas

 

[AIGLON74]

Re : copy cellule

bonjour

ca marche tres bien Épaf Banzai64

merci a vous 2

A+

Aiglon74