Cellule non vide ou date en VBA

[Tiger2020]

Bonsoir,

Je suis presque ignorant en VBA...J'ai une macro que je voudrais modifier afin de detecter si une date est présente dans une colonne au lieu du texte "Y"
Ligne à modifier -> .FormulaR1C1 = "=1/(RC5=""Y"")"

Merci !!!!


Sub Update()

Const NomSrc = "PSM_Report_SHU.xlsm"
Dim ClsSrc As Workbook, FSrc As Worksheet, PlgM As Range, DerLig As Long
On Error Resume Next
Set ClsSrc = Workbooks(NomSrc)
If Err Then Err.Clear: Set ClsSrc = Workbooks.Open(NomSrc)
If Err Then MsgBox "Il ne semble pas exister de classeur """ & NomSrc & """" _
& vbLf & "sur """ & CurDir & """.", vbCritical, "Ouverture " & ThisWorkbook.Name
On Error GoTo 0
Set FSrc = ClsSrc.Worksheets(1)

With Intersect(FSrc.[R2:R50000], FSrc.UsedRange)
.FormulaR1C1 = "=1/(RC5=""Y"")"
On Error Resume Next
Set PlgM = .SpecialCells(xlCellTypeFormulas, 1)
On Error GoTo 0
If Not PlgM Is Nothing Then Intersect(FSrc.[A:R], PlgM.EntireRow).Copy Coms.[A2]
.ClearContents
End With
Dim NbLgn As Long
NbLgn = Coms.UsedRange.Rows.Count - 1
Coms.[S2].Resize(NbLgn).FormulaR1C1 = "=INDEX(Taux,MATCH(RC10,Codes,0))"
Coms.[T2].Resize(NbLgn).FormulaR1C1 = "=RC13*RC[-1]"

End Sub

 

[phlaurent55]

Re : Cellule non vide ou date en VBA

Bonjour Tiger,

...........J'ai une macro que je voudrais modifier afin de detecter si une date est présente dans une colonne au lieu du texte "Y"

voir fichier joint (comment savoir si une cellule contient une date)

à+
Philippe