Message d'alerte si certaines cellules ne sont pas remplit.

[shmider]

Bonsoir tout le monde,

J'aurais aimé avoir votre avis sur le problème mentioné dans le titre.

En effet, je voudrais mettre une condition, m'assurant que les utilisateurs qui vienderont exploiter mon tableau auront remplit les cellules dont j'aurais besoin.

En pièce jointe un petite apérçu du problème.

Amicalement,
ShimdeR.

@+

 

[ERIC S]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

Bonjour

si les gens qui l'utilisent sont de bonne volonté tu peux utiliser les MFC (mises en forme conditionnelle) pour indiquer les cellules à remplir

voir exemple joint

 

[Robert]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

Bonjour Shmider, Éric, bonjour le forum

Une proposition VBA avec la macro événementielle BeforeClose à placer dans le composant ThisWorkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'avant la fermeture du classeur
For Each cel In Range("B8:F20") 'boucle su rtoutes les cellules de la plage B8:F20
    If cel.Value = "" Then 'condition ; si la cellule est vide
        cel.Select 'sélectionne la cellule
        MsgBox "Vous devez éditer cette cellule !" 'message
        Cancel = True 'annule la fermeture d'excel
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next cel 'prochaine cellule de la cellule
End Sub

 

[job75]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

Bonjour shmider, Eric, Robert,

Peut-être que la dernière ligne du tableau n'est pas toujours la ligne 20.

Il faut alors déterminer cette dernière ligne, puis rechercher les cellules vides des colonnes obligatoires.

Donc sur le même principe que Robert :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim dercel As Range, plage As Range
Set dercel = Sheets("enoncé").Range("B8:K65536").Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) 'dernière cellule renseignée
If dercel Is Nothing Then Exit Sub
Set plage = Sheets("enoncé").Range("B8:F" & dercel.Row) 'plage obligatoire du tableau
If Application.CountBlank(plage) Then
plage.SpecialCells(xlBlanks).Select 'sélection des cellules vides
MsgBox "Renseignez la (les) cellule(s) sélectionnée(s)", 48
Cancel = True
End If
End Sub

A+

 

[shmider]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

Bonjour tout le monde,

Désolé pour le retard. j'ai toujours pas reussi à trouver le temps pour tester vos propositions. Je vous repondrai bientot dés que c'est fait...

Merci encore et bon courage !
ciao !!!

 

[shmider]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

Bonjour les jeunes, bonjour le forum et bonjour à nos sauveur XLD accro

Désolé pour mon post tardif, j'ai été malade "fatigue des oeils" MDRRR!

Voilà, j'ai eu l'occasion de tester vos propositions, et:
- pour celle de Robert, elle marche bien, sauf qu'on peut pas detecter la dérnière ligne!
- Donc, je suis plus partie pour exploiter celle de job75, et elle marche tranquille sauf que lorsqu'il y a plus de cellules vides, là elle bug !!

Ci joint les resultats avec les comments

@+ et Mille merci les gars !

 

[job75]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

Bonjour le fil,

Shmider, il faut savoir adapter ma macro, vraiment pas sorcier , et au lieu d'écrire :

Set plage = Sheets("test1").Range("[COLOR="Red"]B16:E16[/COLOR]" & dercel.Row)

écrire correctement :

Set plage = Sheets("test1").Range("[COLOR="Red"]B16:E[/COLOR]" & dercel.Row)

A+

 

[shmider]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

hello,

En fait, j'avais pas bien compris ce passage au depart. Le problème, c'est que ça me prends toute la colonne dés la première ligne !!!

dans tout les cas je refais un check et je te dirai quoi.

ciao et gracie mille
@+

Bonjour le fil,

Shmider, il faut savoir adapter ma macro, vraiment pas sorcier , et au lieu d'écrire :

Set plage = Sheets("test1").Range("[COLOR="Red"]B16:E16[/COLOR]" & dercel.Row)

écrire correctement :

Set plage = Sheets("test1").Range("[COLOR="Red"]B16:E[/COLOR]" & dercel.Row)

A+

 

[shmider]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

La classe
ça marche nickel.

Encore un challenge de ganger grace à job75

[Résolu] !!

@+

 

[Pimp92a]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

Merci pour la réponse

 

[elleana]

Re : Message d'alerte si certaines cellules ne sont pas remplit.

Bonjour,

Comment faire dans mon cas:

Je souhaite effectuer un remplissage obligatoire de la cellule A à la cellule G. => OK
la cellule I doit-être également remplie obligatoirement. - > ?
Et en fonction du contenu de la cellule I (OUI ou NON):
- si I = OUI remplir la cellule H et J
- si I= NON les cellules H et J ne doivent pas être remplies. -> ?

Merci d'avance de vos réponses