Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Affecter des bordures si cellules vides

Orson83

XLDnaute Impliqué
Bonsoir le forum,
Je rencontre un blocage pour affecter des bordures "rouge gras" à des cellules qui sont vides. En effet, au clic sur un bouton, j'ai une macro qui affiche une msgbox si certaines cellules sont vides (ça c'est OK) et j'aimerai ajouter des bordures aux cellules concernées mais je n'y parviens pas malgré mes recherches.
Je joins un fichier exemple dans ce fil.
Merci pour votre aide.
Tchotchodu31
 

Pièces jointes

  • Exemple V1.xlsm
    18.3 KB · Affichages: 29
Solution
Pour peaufiner on peut mettre la 1ère cellule vide en mode Edition avec SendKeys :
VB: 
Sub BtnVaFeuil2()
Dim c As Range, flag As Boolean
For Each c In Range("D2:D5,D7:D9,D12,D15:D16")
    If c = "" Then
        Union(IIf(flag, Selection, c), c).Select 'sélection multiple
        flag = True
    End If
Next
If Not flag Then Sheets("Feuil2").Activate: Exit Sub
MsgBox "Veuillez compléter les cellules vides sélectionnées."
CreateObject("WScript.Shell").SendKeys "{F2}" 'mode Edition
End Sub
Trier par date Trier par votes

Orson83

XLDnaute Impliqué
Yaloo à dit:
Bonsoir Tchotchoudu31, le forum,

Avec ceci
plage.Borders.ColorIndex = 3
plage.Borders.Weight = xlThick

A+

Martial
Cliquez pour agrandir...
Bonsoir Yaloo, le forum,
Merci d'avoir regardé. Ton bout de code fonctionne uniquement sur la première cellule vide trouvée mais pas toutes les cellules vides. Il ne remet pas non plus les bordures dans leur état de départ (noir non gras).
Voici le code :
VB: 
Sub BtnVaFeuil2()
Dim plage As Range
For Each plage In Range("D2:D5,D7:D9,D12,D15:D16").Cells
    If plage = "" Then
    plage.Borders.ColorIndex = 3
    plage.Borders.Weight = xlThick
    MsgBox ("Veuillez compléter les cellules vides.")
Exit Sub
        Exit For
    End If
Next
    Sheets("Feuil2").Select
End Sub
Existe t-il une solution pour corriger cela ?
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir Tchotchodu31, Yaloo,

Pourquoi parler de plage puisque vous voulez encadrer des cellules ?
VB: 
Sub BtnVaFeuil2()
Dim c As Range, flag As Boolean
For Each c In Range("D2:D5,D7:D9,D12,D15:D16")
    If c = "" Then
        c.Borders.ColorIndex = 3
        c.Borders.Weight = xlThick
        flag = True
    End If
Next
If flag Then MsgBox "Veuillez compléter les cellules vides." Else Sheets("Feuil2").Activate
End Sub
A+
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
C'est bien joli de mettre des bordures rouges épaisses mais que faut-il faire une fois ces cellules remplies ?

En fait il vaudrait mieux que les cellules soient colorées automatiquement par une MFC.
 
Vote positif 0 Vote négatif

Orson83

XLDnaute Impliqué
Bonsoir job75, le forum,
C'est exact, il y a des plages non nommées et des cellules seules.
 
Vote positif 0 Vote négatif

Orson83

XLDnaute Impliqué
Tchotchodu31 à dit:
...
Ben rien si elles ne sont pas vides.
J'ai joins un fichier dans ce fil.
Cliquez pour agrandir...
Explications :
Au départ les cellules concernées sont vidées avec bouton pour une RAZ.
Elles sont donc vides et en attente de remplissage.
L'utilisateur remplit les cellules et passe à la feuille suivante avec un bouton et c'est à ce moment là que les Warning se déclenchent avec msgbox + bordures rouge et impossibilité de passer à la feuille suivante.
 
Vote positif 0 Vote négatif

Orson83

XLDnaute Impliqué
job75 à dit:
C'est bien joli de mettre des bordures rouges épaisses mais que faut-il faire une fois ces cellules remplies ?

En fait il vaudrait mieux que les cellules soient colorées automatiquement par une MFC.
Cliquez pour agrandir...
Job75, le fil,
@job75 : Le problème c'est que la MFC ne fonctionne pas avec le bouton.
J'ai fait un test avec votre macro et les bordures ne reviennent pas à l'état initial.
Je joins un fichier avec votre macro et des explications dans la feuille.
Tchotchodu31
 

Pièces jointes

  • Job75.xlsm
    21 KB · Affichages: 4
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Avec une MFC c'est bien simple, on ne s'occupe pas des couleurs :
VB: 
Sub BtnVaFeuil2()
Dim c As Range, flag As Boolean
For Each c In Range("D2:D5,D7:D9,D12,D15:D16")
    If c = "" Then flag = True
Next
If flag Then MsgBox "Veuillez compléter les cellules vides rouges." Else Sheets("Feuil2").Activate
End Sub
 

Pièces jointes

  • Job75(1).xlsm
    20.1 KB · Affichages: 7
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
567
Usine à gaz
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
221
Olihoes
O
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
315
Leo98
L
J
  • Question
XL 2019 Message d'erreur si cellules vides
2
Réponses
25
Affichages
1 K
piga25
C
  • Résolu(e)
XL 2013 Graphiques : ne pas afficher la partie de courbe liée à des données vides même si elles sont sélectionnées
Réponses
10
Affichages
740
Chrystel01
C
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
321
job75
A
  • Question
Autres Trier un tableau contenant des cellules vides avec formules
Réponses
13
Affichages
862
Ab68
A
  • Résolu(e)
XL 2010 Gestion location de matériel
3 4 5
Réponses
67
Affichages
4 K
Orson83
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
528
Usine à gaz
  • Question
XL 2021 formule pour modifier le CONTENU de certaines cellules
2
Réponses
23
Affichages
1 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…