Bonjour,

je suis débutant VBA. J'ai besoin de faire apparaître un message avec une somme.

J'ai une colonne J avec une date et colonne L avec une date

dans le MsgBox je voudrais la somme des cellules où la date de la col L est supérieur à la date de la col J

J'ai essayé plusieurs écriture et j'ai des erreur de syntaxe, des demandes de fin d'instructions ou des erreurs '424' objet requis...

je sais plus quoi faire.

voici ma dernière écriture:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub notif_prise_en_charge()
 
 
Dim N, derl
 
Dim date1 As String
Dim date2 As String
Dim result As String
 
 
Workbooks("Assurés suivi des dossiers LCF .xlsx").Activate
 
 
Sheets("En cours en 2017").Activate
 
derl = Sheets("En cours en 2017").Range("A" & Rows.Count).End(xlUp).Row
date1 = Range("L" & N)
date2 = Range("J" & N)
result = totalvalue date1 > date2
 
For N = 4 To derl
 
 
' introduction d'un message à l'ouverture du fichier pour signaler la non prise en charge de dossier
 
    If date1 > date2 Then
 
    result = MsgBox "ne sont pas pris en charge", vbOKOnly + vbInformation, "mDF XLpages.com"
 
    End If
 
    If Reponse = vbOK Then 'Si on clique sur OK
 
 
   Unload UserForm1
 
 
    End If
 
Next
 
End Sub
Merci pour votre aide....