Message à l'ouverture du fichier

[Gexk5]

Bonsoir le forum,
Je voudrai afficher un message lors de l'ouverture de mon fichier , le problème est que je n'arrive pas a afficher ce que je voudrai dans la msgbox,reprendre des infos de ma base.

Je joint un fichier pour plus d'explications

Merci d'avance pour votre aide

 

[SergiO]

Re : Message à l'ouverture du fichier

Bonsoir Gexk5,

Essaie ce code:

Private Sub Workbook_Open()
For L = 5 To 500
If Cells(L, 7) > 500 And Cells(L, 7) < 1000 Then
Message = MsgBox("Attention, " & Cells(L, 2) & " est présent depuis " & Cells(L, 7) & " jours!", vbExclamation, "Alerte")
End If
Next L
End Sub

@+

 

[Gexk5]

Re : Message à l'ouverture du fichier

Re le forum, sergiO
Merci pour ta reponse mais bug
Erreur sur L, je declare la variable ; Dim L as byte, puis ca bug sur message
Voici un code que j'ai adapté , c'est le message que je n'arrive pas a programmer

Private Sub Workbook_Open()
Dim cell As Range
Dim plg As Range
With Sheets("Listeinterim")
Set plg = .Range("G5:G" & .Range("G500").End(xlUp).Row)
For Each cell In plg
If cell > 500 and cell < 1000Then
MsgBox "" & cell.Offset(0, -1) & " : " & " " & cell.Offset(0, 9) & " Congé(s) d'Ancièneté à prendre avant le " & Format(cell.Value, "dd/mm") & "/" & Year(madate), 64, "Congé(s) d'Anciènneté à prendre"
End If
Next
End With

Je n'arrive a faire corespondre l'offset et en plus ca me met une erreur sur offset

Merci de ton aide

 

[SergiO]

Re : Message à l'ouverture du fichier

Re,

Pour l'erreur à ma réponse, il faut aussi déclarer Dim Message as String.

Pour ton code, j'essaie de comprendre.

@+

 

[Gexk5]

Re : Message à l'ouverture du fichier

Re SergiO, le forum
apres declaration des variables L et Message
Bug sur For L = 5 To 500

Y a pas d'erreurs pourtant!!!!!!
@+

 

[SergiO]

Re : Message à l'ouverture du fichier

Re,

Excuses, j'avais pas vu il faut déclarer : Dim L As Integer

Pour ton code, Offset se fait à partir de la colonne G.
Je pense qu'il y a des erreurs mais ton fichier exemple est incomplet pour vérifier.
@+

 

[Gexk5]

Re : Message à l'ouverture du fichier

Re sergiO, le forum

C'est bon, ca fonctionne avec L as integer.
Merci encore, j'ai un peut de mal pour la declaration des variables
savoir si c'est byte, integer, variant etc
Y a il une technique ou un truc pour savoir comment declarer les variables???

Merci encore pour ton aide

 

[SergiO]

Re : Message à l'ouverture du fichier

Re,

Regarde ici : https://www.excel-downloads.com/threads/vba-types-de-variables.81052/