Copy Sheet

[jeanphi]

Bonjour

Je souhaite faire la macro suivante:
Si dans la colonne S il n'y a pas de date et que la date de la colonne C est égale à la date système - 10 jours, je souhaite que la valeur de la colonne B se copie dans une feuille temporaire (qui se crée qu'au lancement de la macro)
J'ai essayé avec le code ci dessous mais cà fonctionne pas 🙁



Sub CdePasFaite()
Dim cell As Range

For Each cell In Sheets("FEB").Range("S7:E" & Sheets("FEB").Range("S65536").End(xlUp).Row)
If cell.Value = "" And cell.Offset(0, -15).Value = (Date - 10) Then
cell.Offset(0, -16).Copy Sheets("Temp").Range("A" & Sheets("Temp").Range("A65536").End(xlUp).Row + 1)
End If
Next


Quelqu'un peut t'il m'aider SVP?
Merci
Bonne journée à tous
End Sub

 

[Spitnolan08]

Re : Copy Sheet

Bonjour,

Sub CdePasFaite()
Dim cell As Range

For Each cell In Sheets("FEB").Range("S7:S" & Sheets("FEB").Range("C65536").End(xlUp).Row)
If cell.Value = "" And cell.Offset(0, -16).Value = (Date - 10) Then
cell.Offset(0, -16).Copy Destination:=Sheets("Temp").Range("A" & Sheets("Temp").Range("A65536").End(xlUp).Row + 1)
End If
Next
End Sub

Cordialement

 

[jeanphi]

Re : Copy Sheet

bonjour et merci pour ton aide


mais ca plante toujours!
a ce niveau

cell.Offset(0, -16).Copy Destination:=Sheets("Temp").Range("A" & Sheets("Temp").Range("A65536").End(xlUp).Row + 1)

je pense que c'est le -16 (colonne B) qui est pas bon???

 

[Spitnolan08]

Re : Copy Sheet

Re,

Il n'y a pas de raison...
As tu bien une feuille qui s'intitule Temp ?
Et pas temp ou TEMP ou... ?

Sinon il faudrait un bout de fichier.

Cordialement

 

[jeanphi]

Re : Copy Sheet

bonjour 😉


non ca y est j'ai réussi à la faire fonctionner (pb d'adressage au niveau de l'offset)
par contre j'aurais aimé que la feuille se crée au lancement de la macro et non pas qu'elle existe préalablement
aurais tu une idée?
par ailleurs sais tu comment spécifier en VB "compris entre"? (je veux que la date soit comprise entre 10 et 20 jours par rapport à la date du jour)
merci pour ton aide et bonne soirée à toi!! 🙂

 

[Pierrot93]

Re : Copy Sheet

Bonjour JeanPhi, Spitnolan🙂

essaye peut être comme ceci pour tester une date comprise entre 10 et 20 jours par rapport à la date du jour :

If ActiveCell.Value >= Date + 10 And ActiveCell.Value <= Date + 20 Then

bonne fin d'après midi
@+

 

[jeanphi]

Re : Copy Sheet

bonjour pierrot et spitnolan

je vais essayer!!!
merci bcp
bon we 😉