Discussion :

[crashoveride69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tedo01]

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 :

   Sélectionner tout - Visualiser dans une fenêtre à part

   =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.

[crashoveride69]

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

[gFZT82]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[crashoveride69]

ça marche niquel merci beaucoup