Bordure de cellule sous VBA

Résolu

Grobibi34 Messages postés 83 Date d'inscription Statut Membre Dernière intervention -
seb - 10 mars 2012 à 13:20

Bonjour, à tous.

Je suis en train de développer un petit outil de planning automatique, mes lignes et mes colonnes sont donc variables.

J'aimerai que toutes les cellules que j'ai édité aient une bordure.

J'imagine donc que le problème serait de sonder toute les cellules ligne par ligne ou colonne par colonnes pour voir si il y a quelque chose d'écrit dedans si c'est le cas on encadre la cellule en question.

Est-ce que j'ai raison sur le principe ? Si oui comment y parvenir, sinon comment faire ?

Cordialement,

Grobibi34

Afficher la suite

A voir également:

Vba bordure cellule
Excel compter cellule couleur sans vba - Guide
Bordure de page word - Guide
Excel cellule couleur si condition texte - Guide
Proteger cellule excel - Guide
Vba récupérer valeur cellule ✓ - Forum VB / VBA

7 réponses

Réponse 1 / 7

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

bonjour

ton tableau est dans la zone B2:H25 par exemple

Sub encadrer_si()
Dim cellule As Range
For Each cellule In Range("B2:H25")
   If cellule <> "" Then cellule.Borders.Weight = xlThin
Next
End Sub

altec

Merci bcp !

Réponse 2 / 7

Utilisateur anonyme

Regarde si ça peut te convenir.

Je n'en suis pas l'auteur donc je ne pourrais t'aider plus avant.

With .Range(.Range("A" & Nl), .Range("BQ" & Nl))
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

Grobibi34 Messages postés 83 Date d'inscription Statut Membre Dernière intervention 30

Salut Booddha, bon j'ai un peu des difficultés avec ton code, pour le moment j'ai réussi avec la fonction
Range("A1").CurrentRegion.Select à selectionner tout le tableau et à créer des bordures identiques à toutes les cellules.
J'aimerai maintenant arrivé à faire du "cas par cas"
Une idée ???

Utilisateur anonyme > Grobibi34 Messages postés 83 Date d'inscription Statut Membre Dernière intervention

Comme je te l'ai dis, ce n'est pas mon code.

Non, je n'ai pas d'idée. ;-(

Grobibi34 Messages postés 83 Date d'inscription Statut Membre Dernière intervention 30 > Utilisateur anonyme

Bon c'est pas grave pas de soucis je vais me pencher sur d'autre problème ;-)

Discussions similaires

Fonction ouvrir fichier en VBA Excel

Sélectionnez une ligne en entière VBA

VBA : récupérer chemin de répertoire

Trier des dates dans Excel sous VBA

La valeur d'une cellule dans une variable VBA

[Excel Vba] détecter un mot dans une chaine

Votre réponse

Discussions similaires