Le vérificateur

[Ben&Bee]

Bonjour Exceliens Exceliennes..

Je developpe un formulaire.. J´aimerai y créer un vérificateur de remplissage de cellule..

Veuillez svp vous reporter au fichier joint...

Merci a tous ceux qui tenteront de relever ce défi...

Ben&Bee [file name=Verificateur.zip size=7618]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Verificateur.zip[/file]

 

[Robert]

Salut Ben&Bee, salut le forum,

je te propose de rajouter ce code en debut de macro :

Dim rens As Range
Dim cel As Range
Set rens = Application.Union(Range('C10'), Range('D14'), Range('C20'), Range('G19'), Range('E24'), Range('D26'))
For Each cel In rens
If cel.Value = '' Then
MsgBox 'la cellule ' & cel.Address(False, False) & ' n'est pas renseignée.'
cel.Select
Exit Sub
End If
Next cel

 

[Creepy]

Hello,

Defi relevé avec Succès !

J'ai séléctionné tes cellule, je les ai nommé 'TESTE'

Et apres dans la macro je check !

++

Creepy

[file name=Verificateur_20050525135320.zip size=10148]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Verificateur_20050525135320.zip[/file]

 

[Ben&Bee]

SI je nomme chacune de mes cellule avec un chiffre
1
2
3
4
5

j´applique une boucle sur ces cellulesqui s´arrête à chaque cellule vide.
Une fonction qui me donne la référence de cette cellule vide V(x,z).
Et un msg box m´indiquant le contenu de la cellule V(x,y-1) qui indiquera ce qui manque...

Qu est ce que vous en pensez??
C´est bien bo mais pour l´écrire en VBA.. C pas aussi facile

 

[BEn&Bee]

Tu es un Excelminator
Rien à dire
Je croyais aue personne n´avait osé s´y attaquer..

Mais toi tu l as creepytiser..

merci beaucoup.. Avec ce que tu m as envoyé ca devrait faire l affaire

en bonus
est-il possible d´empêcher l´envoie du mail tant que les cellules ne sont pas remplis.. et d´afficher tous les cases non remplis ds une meme fenetre..

 

[Robert]

Re Ben&Bee, Christophe, le forum,

La méthode que je t'ai porposée sélectionne la cellule non renseignée et sort de la procédure sans envoyer l'e-mail. Sinon la méthode de nommer la plage de Creepy me paraît plus simple que le code Set rens... mais nos approches sont très similaires.

 

[Hervé]

Bonjour tout le monde

si je peux me permettre cette intervention, une autre approche pour éviter les msgbox à répétition fatiguantes, 🙂

Sub envoiLink()
Dim Koa As Range
Dim texte As String

For Each Koa In Range('teste')
    If Koa.Value = '' Then
        texte = texte & vbNewLine & Koa.Offset(0, -1).Value
    End If
Next Koa
 
If texte <> '' Then
&nbsp; &nbsp; MsgBox texte, vbCritical, 'Cellules non remplies :'
End If

End Sub

Salut