spitfire378
XLDnaute Occasionnel
Bonjour a tous,
J'ai dans un fichier excel 3 colonnes correspondant aux dates du 1er, 2eme et 3eme rdv d'un patient
J'aimerai comptabiliser le nombre de personnes n'ayant eu qu'un rdv, deux rdv ou trois rdv.
J'ai donc commencé avec un seul rdv
Mais ca ne marche pas, si vous pouviez m'aider merci beaucoup
J'ai dans un fichier excel 3 colonnes correspondant aux dates du 1er, 2eme et 3eme rdv d'un patient
J'aimerai comptabiliser le nombre de personnes n'ayant eu qu'un rdv, deux rdv ou trois rdv.
J'ai donc commencé avec un seul rdv
Code:
Sheets("Copie2").Select
Application.Calculation = xlCalculationManual
Dim p6 As Long
Dim y6 As Long
Dim z6 As Range
p6 = 0
On Error Resume Next
For y6 = 3 To y6 = 65536 Step 1
Cells(y6, 7) = z6
If IsDate(z6) And Cells(y6, 8) = "" And Cells(y6, 9) = "" Then
p6 = p6 + 1
Sheets("Onco-Pedia").Select
Cells(24, 6) = p6
End If
Next y6
On Error GoTo 0
Mais ca ne marche pas, si vous pouviez m'aider merci beaucoup