Mettre en forme les cellules non vides VBA

Résolu/Fermé

kalista - Modifié le 3 janv. 2018 à 15:55
kalista - 4 janv. 2018 à 10:15

Bonjour,

Alors voila, j'ai une macro qui récapitule plusieurs classeurs. Mon classeur récapitulatif se nomme RECAP.
Ce RECAP évolue tous les jours. Potentiellement, à chaque fois que la macro tourne, des lignes se rajoutent.

Je voudrais que la macro effectue une mise en forme (bordures noires fines) sur toutes les lignes qui contiennent des données. (seulement entre les colonnes B et J)

Le problème c'est qu'avec mon code actuel, je n'ai des bordures que sur les cellules non vides. Ce qui fait que sur une même ligne je peux avoir des cases avec des bordures et d'autres non.

Voici mon code :

   'Mise en forme du tableau
    Dim cellule As Range
For Each cellule In Range("B:J")
   If cellule <> "" Then cellule.Borders.Weight = xlThin
Next

Auriez-vous une solution pour m'aider svp ?

Merci de votre attention :)

A voir également:

Mettre en forme les cellules non vides VBA
Mise en forme conditionnelle excel - Guide
Excel additionner des cellules - Guide
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Verrouiller cellules excel - Guide
Vba l'indice n'appartient pas à la sélection - Forum VB / VBA

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
3 janv. 2018 à 15:04

Bonjour,

Essaies :

Option Explicit
Sub test()
'Mise en forme du tableau
Dim r As Range
  With ActiveSheet 'ou autre
    Set r = Intersect(.UsedRange.EntireRow, .Columns("B:J"))
    r.Borders.LineStyle = xlContinuous
    r.Borders.Weight = xlThin
  End With
End Sub

kalista
3 janv. 2018 à 15:48

Merci pour ta réponse mais le problème est qu'avec ce code toutes les lignes jusqu'à au moins celle 13080 sont mise en forme. Hors moi je n'ai de données que jusqu'à la ligne 543 pour le moment...

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié le 3 janv. 2018 à 22:00

il y a obligatoirement quelque chose, supprimes les lignes (entières) situées en dessous de tes données (ça les effacera)

kalista
4 janv. 2018 à 10:15

Merci effectivement il y avait un soucis. Merci encore !

Discussions similaires

Excel VBA : Derniere colonne utilisée

Formule magique excel??????

Boucle sur la première diapositive d'une présentation

liste de noms par ordre alphabétique

Pb pour insérer lignes

Discussions similaires

Newsletters