Contraindre le format de sortie d'une date (sus au format anglais)

bonjour,
je ne vois pas la déclaration de ta variable

dateopti

.

Effectivement c'est une piste, dateopti() est défini comme variant. J'ai fait ce choix car à un moment dans mon code je supprime des lignes en utilisant =Null, ce qui ne marche pas en définissant dateopti() comme date.

J'espérai trouver quelque chose qui formaterai ou reformaterai la cellule ou la valeur de l'array au format jj/mm/aaaa

Dim dateopti() as variant

'remplissage de dateopti avec des dates

 For i = 1 To UBound(dateopti)
   
        Worksheets(Nomfeuille).Range("A" & i) = dateopti(i)
        
    Next i 

Ok bon passons aux choses sérieuses alors :D

J'ai un peu menti; en fait j'ai deux arrays en parallèles. Je sais c'est pas dingue mais pour le moment ça me permet plus de flexibilité je regrouperai tout plus tard.

En gros j'ai plusieurs dates (datesopti()) qui s'appliquent sur une liste de machines (num()) mais pour chaque machine je cherche a récupérer la (ou les) dates la (ou les) plus proche(s) de moi.
Ici ma stratégie consiste à prendre la dernière case la comparer à toutes les cases en partant de la fin et si il y a une machine dont la date est plus lointaine je décale toute les lignes d'un cran vers le début pour "recouvrir" la ligne que je ne veut pas et je supprime la dernière ligne qui fait doublon.
Ensuite je compare l'avant dernière ligne à toutes les autres ect...

Mais la seule façon m'a-t-il semblé de supprimer la dernière case de l'array dateopti() est de le déclarer comme Variant et assigner à la dernière ligne Null.

Voilà j'espère que ça te permettra d'éclaircir un peu le problème

Dim dateopti() as Variant
Dim num() as String
Dim date4mois as Date
date4mois = DateAdd("d", 120, dateajd)

Dim b As Long
Dim e As Long
Dim k As Long

'Remplissage des tableaux

    e = Ubound(dateopti)
    b = e

    While b >= 0                                         'première iteration
    
        d = e
        
        While d >= 0                                      'seconde iteration
             
            If  num(b) = num(d) And dateopti(b) < dateopti(d) And dateopti(b) > date4mois And dateopti(d) > date4mois Then
                 
                For k = d + 1 To e                      'Décalage vers le bas
                    num(k-1) = num(k)
                    dateopti(k - 1) = dateopti(k)
                Next k                                        'Suppression de la dernière ligne
                    dateopti(e) = Null
                    num(e)=""
                e = e - 1                                    'Reduction de la taille max du tableau
                    
            End If
            
            d = d - 1
          
        Wend
        
        b = b - 1
        
    Wend

 For i = 1 To UBound(dateopti)
   
        Worksheets(Nomfeuille).Range("A" & i) = dateopti(i)
        Worksheets(Nomfeuille).Range("B" & i) = dateopti(i)
        
    Next i 

Concernant l'assignation ça ressemble à ça:

Dim i as Long
Dim a as Long
Dim date4mois as Date
Dim date6mois as Date

date4mois = DateAdd("d", 120, dateajd)
date6mois = DateAdd("d", 180, dateajd)

a = 0
i = 1

While Worksheets(Nomfeuille1).Cells(i, 1) <> ""
        
        If date4mois < Worksheets(Nomfeuille1).Cells(i, 17) And Worksheets(Nomfeuille1).Cells(i, 17) < date6mois Then

            ReDim Preserve nom(a)
            ReDim Preserve dateopti(a)

            nom(a) = Worksheets(Nomfeuille1).Cells(i, 1)
            dateopti(a) = Worksheets(Nomfeuille1).Cells(i, 2)
            
            a = a + 1
       End If
i = i + 1
Wend

Merci beaucoup yg_be, effectivement il n'y avait nul besoin de supprimer ces dernières lignes! Maintenant il ne me reste plus qu'à regrouper sous forme de tableau