Selection d'une case non valide - VBA

Bonjour à vous,


J'aurais besoin de votre aide pour l'amélioration d'un projet que j'ai en cours.
Pour faire simple, j'ai déjà la base en dessous, et j'aurais aimé ajouter quelques chose en plus.
Puisqu'il reconnait qu'une case dans la zone définie n'est pas valide, je me demandais si il était possible de la sélectionner, puis de la mettre en évidence (couleur, gras etc...), tout ça sous vBA évidemment.

module :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function nbVides(zone As Range) As Boolean Dim cel As Range For Each cel In zone If Not IsNumeric(cel) Or cel < 0 Or cel = "" Then nbVides = True Exit Function End If Next   End Function

---

et fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Deactivate()       If nbVides(Range("nonvall")) Then MsgBox "Saisie Incorrectes", vbOKOnly + vbCritical Feuil2.Activate End If       End Sub

---

PS : ici la cellule "nonvall" est un groupement de cellules fait sous excell répondant à la même requête..
Pourriez-vous m'aider?
Merci d'avance
Cordialement,
Ela_

Salut,

Petit exemple vite fait (pour ne pas dire, à l'arrache...) :oops:

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub Colorier(zone As Range)   Dim cel As Range For Each cel In zone cel.Interior.Color = IIf(Not IsNumeric(cel) Or cel < 0 Or cel = "", vbRed, vbGreen) cel.Characters.Font.Color = IIf(Not IsNumeric(cel) Or cel < 0 Or cel = "", vbBlue, vbYellow) cel.Characters.Font.Bold = (Not IsNumeric(cel) Or cel < 0 Or cel = "") Next   End Sub

---

Il ne te reste plus qu'à faire :

Code:

---

Colorier Range("nonvall")

---

Tu peux aussi passer par les MFC (mises en forme conditionnelles), mais si tu préfères VBA...

Merci, mais cependant, lorsque l'on vient mettre une donnée valide, la couleur ne se désactive pas.

du coup j'ai essayé ça directement, et ça marche plutôt bien :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function nbVides(zone As Range) As Boolean Dim cel As Range For Each cel In zone If Not IsNumeric(cel) Or cel < 0 Or cel = "" Then nbVides = True cel.Interior.ColorIndex = 3 Else cel.Interior.ColorIndex = xlNone cel.Characters.Font.Bold     End If Next   End Function

---

Cependant, cette ligne

Code:

---

cel.Characters.Font.Bold

---

ne fonctionne pas, il ne reconnait pas la bold...
De plus, je travaille sur une feuille à 300 lignes, serait il possible de placer la celule au centre de la feuille excell ?
Serait-il également possible de sélectionner la dite cellule dont la saisie n'est pas valide ?

Merci d'avance ! :)

Code:

---

cel.Characters.Font.Bold = True (ou False)

---

devra être mieux...;)

Et pour déplacer ta zone visible vers la cellule "cel":

Code:

---

Application.Goto cel

---

Et pour que la colorisation (:roll:) s'applique dès que tu modifies une valeur, il faut appeler la fonction Colorier() comme ça (par exemple)

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) Colorier Target End Sub

---

Bonjour,

Comme tu oblige le renseignement des cellules (Or Cel = "") je pense qu'il serait préférable d'agir sur les bordures plutôt que sur la fonte car si la cellule est vide et que la zone est assez grande, la recherche visuelle va être un peu plus compliquée car étant vide, aucun résultat visible :

Code:

---

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 43 44 45 46

Private Sub Worksheet_Deactivate()   nbVides Range("A1:C10")   End Sub   Sub nbVides(zone As Range)   Dim Cel As Range   For Each Cel In zone   If Not IsNumeric(Cel) Or Cel < 0 Or Cel = "" Then   Bordure Cel, True MsgBox "Saisie non valide en cellule " & Cel.Address(0, 0) & " !" Me.Activate Exit For   Else   Bordure Cel, False   End If Next   End Sub   Sub Bordure(Cel As Range, Colorer As Boolean)   Dim I As Integer   For I = 7 To 10   With Cel.Borders(I)   .Weight = IIf(Colorer = True, 4, 1) .LineStyle = IIf(Colorer = True, 1, xlNone) .ColorIndex = IIf(Colorer = True, 3, xlNone)   End With   Next I   End Sub

---

Hervé.