Etablir une liste dans une feuille selon un critère de date

[orpheus111]

Bonjour,

J'ai un programme qui fonctionne bien, et je voudrais le modifier.
J'ai un tableau reprenant le nom de personne ayant subi une formation avec les dates de ces formations. Maintenant je voudrais voir celle qui n'ont pas de date donc les cases vides.
Que dois-je écrire à la place de "date" dans mon programme pour avoir la liste des gens qui ne sont pas programmé à une formation. Merci d'avance.

Voilà mon programme :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Sub RECHERCHE()
 
Dim i, j, k As Integer
Dim Echeance, Today, Date_Formation As Date
 
Today = Date
Echeance = DateAdd("m", 1, Today)
k = 2
 
Worksheets("RESULTAT").Range("A2:C100").Select
Selection.ClearContents
 
For i = 2 To 500
    For j = 4 To 50
        If Not IsEmpty(Worksheets("LILLE").Cells(i, j).Value) Then
        Date_Formation = Worksheets("LILLE").Cells(i, j).Value
            If Date_Formation <= Echeance Then
                    Worksheets("RESULTAT").Cells(k, 1).Value = Worksheets("LILLE").Cells(i, 1).Value
                    Worksheets("RESULTAT").Cells(k, 2).Value = Worksheets("LILLE").Cells(1, j).Value
                    Worksheets("RESULTAT").Cells(k, 3).Value = Date_Formation
                    k = k + 1
            End If
        End If
    Next j
Next i
End Sub

[orpheus111]

Pour la mise en page, je suis désolée, je ne connais absolument comment faire une mise en page sur le forum.

[jfontaine]

Bonjour,

Pour commencer, il faut savoir que quand tu déclares tes variables comme cela

Code :

Dim i, j, k As Integer

seul k en integer, i et j sont de type Variant car non typée
Faire comme cela

Code :

Dim i as Integer, j as Integer, k As Integer

-----------------------------------------------------------------------

Que dois-je écrire à la place de "date" dans mon programme pour avoir la liste des gens qui ne sont pas programmé à une formation. Merci d'avance.

Je présume que si une personne n'a pas de date, la cellule est vide
je commencerais par déclarer la variable Date_Formation en String au lieu de Date. Cela permettra l'affectation d'une chaine vide

Code :

Dim Date_Formation  as String

Si Worksheets("LILLE").Cells(i, j).Value est vide alors la recherche se fera sur les personnes sans formation

A toi de nous dire si cela fonctionne