Macro bordure si.

bonjour à tous,

je suis en cours de création de plusieurs macro pour mon travail
et j'aurais besoin d'aide pour l'une d'entres elles

je créé des nomenclature de pièces de plusieurs lignes qui varies suivant certaines machines.

j'aurais besoin d'avoir une macro :

si ma cellule de A6 à A infini est pleine en écriture
les celulles B C et D d'à coté s'encadrent automatiquement

exemple si ma A6 est pleine en écriture la B6 C6 et D6 s'encadrent
si par contre ma A15 est vide il n'y a pas d'encadrement

j'ai réussi avec :

Code:

---

1 2 3 4 5 6

Subbord() Dim cellule As Range For Each cellule In Range("A6:A10008") If cellule <> "" Then cellule.Borders.Weight = xlThin Next End Sub

---

mais il n'y a que les celulles pleines qui s'encadrent mais malheuresement
je n'ai que mes Colonnes A et D qui ont de l'écriture.

merci d'avance

Bonjour,
Il y a beaucoup plus simple : la mise en forme conditionnelle.
Il suffit de

1. sélectionner les colonnes B à D
2. choisir dans "Mise en forme conditionnelle" l'option "nouvelle règle"
3. cliquer sur le dernier choix "Utiliser une formule..."
4. saisir la formule suivante :
   Code:

   ---

   =NON(ESTVIDE($A1))

   ---

5. cliquer sur le bouton "Format..." pour choisir la bordure à appliquer.

La bordure vient dès que des valeurs sont saisies dans la colonne A.

le problème de la mise en forme c'est qu'elle ne s'appliquera qu'a un seul fichier j'ai des centaines de fichier excel avec des nomenclatures de différentes tailles
je me vois mal creer les mise en formes a chaque fois :?

j'ai déjà créer un fichier de macro avec des raccourcis couleurs auto et des mise en formes de nomenclatures personnalisé il ne me manque plus que les bordures
mais la je sèche :lol:

Bonjour,

Code:

---

1 2 3 4 5 6

Sub bord() Dim cellule As Range For Each cellule In Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row) If cellule <> "" Then cellule.Resize(, 4).Borders.Weight = xlThin Next End Sub

---

Cordialement.

ça marche niquel merci beaucoup :ccool: