Message à la fermeture classeur si

[DAVID P]

Bonjour ,

je me permets de revenir vers vous car j'ai un problème à résoudre.


je voudrai que lorsque je ferme mon classeur , si la valeur de la cellule D13
est supérieure à 0 €, il faut que les cellules
B3,B4,B5,B6,B7 soit renseignées sinon:
si cellule B3 vide
msgbox 'vous n'avez pas renseigné cellule B3'
si cellule B4 vide
msgbox 'vous n'avez pas renseigné cellule B4' etc....

Merci d'avance pour votre aide
bonne journée à tous [file name=testcellulevide.zip size=2524]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testcellulevide.zip[/file]

 

[Jacques87]

Bonjour David

Voici ce que tu demandais
Un conseil, il faudrait que tu peaufines le message d'oubli et son incidence (ouverture vers une ou deux propositions)

Bonne journée [file name=testcellulevide_20060124101814.zip size=7903]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testcellulevide_20060124101814.zip[/file]

 

[PascalXLD]

Bonjour

Voici ton fichier [file name=testcellulevide_20060124102217.zip size=8813]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testcellulevide_20060124102217.zip[/file]

 

[PascalXLD]

Oups

Excuse Jacques je ne t'avais point vu

Bonne journée

 

[DAVID P]

Je tiens à vous remercier tous les 2 pour votre rapidité .



Encore un grand merci pour votre aide



Bonne journée à tous le forum

 

[lio]

Bonjour DAVID P, Jacques, Pascal et toi le forum,

Pascal, pourrez-tu un peu commenter ton code notamment cette partie ( je suis débutant VBA)

If Sheets('Feuil1').Range('D13') > 0 Then
For x = 3 To 7
If Sheets('Feuil1').Range('B' & x) = '' Then
y = y + 1
ReDim Preserve tablo(1 To y)
tablo(y) = x
End If
Next
If y > 0 Then
For x = 1 To y
message = IIf(message = '', 'B' & tablo(x), message & '; B' & tablo(x))
Next


Merci pour tes explications.

Salutations. Lio.

 

[PascalXLD]

RE

'Si la cellule D13 de la feuille 1 supérieur à 0
If Sheets('Feuil1').Range('D13') > 0 Then
'Balayage des lignes 7 à 13 de la colonne B
For x = 3 To 7
'Si la cellule est vide je note dans un tableau le numero de la ligne
If Sheets('Feuil1').Range('B' & x) = '' Then
y = y + 1
ReDim Preserve tablo(1 To y)
tablo(y) = x
End If
Next
'si mon nombre de cellules où il manque un élément est supéreur à 0
If y > 0 Then
For x = 1 To y
'mise en forme du message qui apparaitra dans la mesgbox
message = IIf(message = '', 'B' & tablo(x), message & '; B' & tablo(x))
Next

 

[lio]

Merci Pascal et bonne journée.

Message édité par: lio, à: 24/01/2006 11:16