Copy Sheet

[jeanphi]

Bonjour


Je souhaite faire la macro suivante:
Si dans la colonne S il n'y a pas de valeuret que la date de la colonne C est égale à la date système - 30 jours, je souhaite que la valeur de la colonne B se copie dans la feuille "Temp"
Le code de ma macro fonctionne sauf que parfois il récupère la valeur de la colonne B même s'il y a une valeur dans la colonne S et il ne tient pas compte des 30 jours avant la date système
Merci pour votre aide!!!! 😉

 

[Banzai64]

Re : Copy Sheet

Bonjour

Pour plus de clarté il vaut mieux mettre les macros qui ne sont pas événementielles dans un module

Mais à mon avis ce n'est pas grave (quoique ...)

Sinon je pense que c'est due à un manque de parenthèses

If IsEmpty(cell) And _ 
   [COLOR="Red"][SIZE="4"]([/SIZE][/COLOR]cell.Offset(0, -14).Value = "Validation ACHATS" Or _ 
   cell.Offset(0, -14).Value = "Traitement ACHATS"[COLOR="red"][SIZE="4"])[/SIZE][/COLOR] _ 
  And cell.Offset(0, -16).Value <= (Date - 30) Then

 

[fifi]

Re : Copy Sheet

bonjour, je me demande si faudrait pas mettre ceci dans ton code

If IsEmpty(cell) = True And cell....

en plus du fait de mettre la macro dans un module et pas dans thisworkbooks.

 

[jeanphi]

Re : Copy Sheet

bonjour banzai et merci


je vais tester ton code!!
bonne journée

 

[jeanphi]

Re : Copy Sheet

bonjour fifi et merci


je vais tester ton code!!
bonne journée