Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Pb dans proc

Pb dans proc

5 réponses
Avatar
Titus
Bonsoir,

cette super proc me permet d'avoir dans un msgbox les dates qui manque, mais
voilà, malgré mes efforts, je n'arrive pas à séparer les dates entre elles
dans ce msgbox.
Merci
Titus

Public Function eXtraieDoublons_classés(Tableau_dates As Range)
Dim i As Long, j As Long
Dim D As String, C As Range

D = ""
For Each C In Tableau_dates
If Application.CountIf(Tableau_dates, C) > 1 Then
' la cellule a des doublons dans la plage
If InStr(1, D, C) = 0 Then ' pas déjà là
D = D & C & "/"
End If
End If
Next C

eXtraieDoublons_classés = Application.Substitute(D, "/", ".")
End Function
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Bonjour,

En supposant que D soit une série de dates:

Public Function eXtraieDoublons_classés(Tableau_dates As Range)
Dim i As Long, j As Long
Dim D As String, C As Range
D = ""
For Each C In Tableau_dates
If Application.CountIf(Tableau_dates, C) > 1 Then
' la cellule a des doublons dans la plage
If InStr(1, D, C) = 0 Then ' pas déjà là
D = D & C & "/" & " "
End If
End If
Next C
D= trim(D)
eXtraieDoublons_classés = Application.Substitute(D, "/", ".")
End Function


"Titus" a écrit dans le message de
news:%
Bonsoir,

cette super proc me permet d'avoir dans un msgbox les dates qui
manque, mais

voilà, malgré mes efforts, je n'arrive pas à séparer les dates entre
elles

dans ce msgbox.
Merci
Titus





Avatar
Titus
Merci Clément, cela fonctionne très bien.
Titus

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

En supposant que D soit une série de dates:

Public Function eXtraieDoublons_classés(Tableau_dates As Range)
Dim i As Long, j As Long
Dim D As String, C As Range
D = ""
For Each C In Tableau_dates
If Application.CountIf(Tableau_dates, C) > 1 Then
' la cellule a des doublons dans la plage
If InStr(1, D, C) = 0 Then ' pas déjà là
D = D & C & "/" & " "
End If
End If
Next C
D= trim(D)
eXtraieDoublons_classés = Application.Substitute(D, "/", ".")
End Function


"Titus" a écrit dans le message de
news:%
Bonsoir,

cette super proc me permet d'avoir dans un msgbox les dates qui
manque, mais

voilà, malgré mes efforts, je n'arrive pas à séparer les dates entre
elles

dans ce msgbox.
Merci
Titus








Avatar
Titus
Dernier truc Clément, est-il possible d'avoir le format pour les dates dans
le msgbox du genre "dddd dd mmmm yyyy" ?
Merci
Titus

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

En supposant que D soit une série de dates:

Public Function eXtraieDoublons_classés(Tableau_dates As Range)
Dim i As Long, j As Long
Dim D As String, C As Range
D = ""
For Each C In Tableau_dates
If Application.CountIf(Tableau_dates, C) > 1 Then
' la cellule a des doublons dans la plage
If InStr(1, D, C) = 0 Then ' pas déjà là
D = D & C & "/" & " "
End If
End If
Next C
D= trim(D)
eXtraieDoublons_classés = Application.Substitute(D, "/", ".")
End Function


"Titus" a écrit dans le message de
news:%
Bonsoir,

cette super proc me permet d'avoir dans un msgbox les dates qui
manque, mais

voilà, malgré mes efforts, je n'arrive pas à séparer les dates entre
elles

dans ce msgbox.
Merci
Titus








Avatar
Pierre CFI [mvp]
bonjour

MsgBox Format(ici la date,"dddd dd mmmm yyyy")
--
Pierre CFI

Mail : http://cerbermail.com/?z0SN8cN53B




Avatar
Titus
Ok pierre, je voulais une adaptation, de la proc ci-dessus, je n'arrive pas
à adapter.
Merci
Titus

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour

MsgBox Format(ici la date,"dddd dd mmmm yyyy")
--
Pierre CFI

Mail : http://cerbermail.com/?z0SN8cN53B