XL 2016 bordure gauche de cellule plus épaisse en MFC

[DédéW83]

bonjour à tous,
dans une MFC, j'ai : $B4>"" alors mise en forme définie.
Je voudrais une bordure gauche plus épaisse pour certaines colonnes mais dans la MFC, il n'y a pas....
Même bordure gauche en W4 qu'en W3....
Quelqu'un aurait une idée sans vba si possible?
Merci pour votre aide.

 

[MyloX]

Bonjour,


Je sais que tu voudrais éviter l'utilisation de VBA mais le code est assez simple.

En sélectionnant la feuille dans laquelle tu veux appliquer cette MFC:

Private Sub Worksheet_Activate()

    Dim i As Integer
    Dim dernière_colonne As Integer
    
    dernière_colonne = 1
    While Cells(3, dernière_colonne) <> ""
        dernière_colonne = dernière_colonne + 1
    Wend
    
    For i = 1 To dernière_colonne
        If Cells(2, i) > "" Then
            Range(Cells(2, i), Cells(3, i)).Borders(xlEdgeLeft).Weight = xlMedium
        End If
    Next i
    
End Sub

J'espère t'avoir aidé.

Cordialement,
MyloX

 

[DédéW83]

Bonjour,


Je sais que tu voudrais éviter l'utilisation de VBA mais le code est assez simple.

En sélectionnant la feuille dans laquelle tu veux appliquer cette MFC:

Private Sub Worksheet_Activate()

    Dim i As Integer
    Dim dernière_colonne As Integer
   
    dernière_colonne = 1
    While Cells(3, dernière_colonne) <> ""
        dernière_colonne = dernière_colonne + 1
    Wend
   
    For i = 1 To dernière_colonne
        If Cells(2, i) > "" Then
            Range(Cells(2, i), Cells(3, i)).Borders(xlEdgeLeft).Weight = xlMedium
        End If
    Next i
   
End Sub

J'espère t'avoir aidé.

Cordialement,
MyloX

Merci beaucoup, je vais essayer...à plus tard.

 

[DédéW83]

RE:
En fait ce n'est pas ce que je cherche à faire. Je n'ai pas été clair...J'ai joint un extrait du classeur, tu comprendras mieux.
Si $B4>"" alors bordure épaisse gauche (idem F3) en $F4. Si $B="" il n'y a de toute façon pas de bordure. Les bordures n'apparaissent que si $B4>"" dans la plage A4:L40. En fait, il y a à peut près 26 colonnes à faire dans cette feuille...
Solution ?

 

[DédéW83]

Voici plus de détails de ce que j'ai fait en MFC. Mais il n'y a pas de bordure plus épaisse !

 

[MyloX]

RE:

En fait, tu veux que tant que tes cellules en colonnes B ne sont pas vides, le tableau allant de F à L soit délimité par des bordures plus épaisses ?

 

[sylvanu]

Bonjour Dédé, Mylox,
Effectivement les MFC ne permettent pas d'augmenter les tailles de bordures.
Tout au plus peut on les passer en couleurs. Voir PJ.
A défaut de merles on mange des grives.

 

[DédéW83]

Non que la colonne F...

 

[MyloX]

Non que la colonne F...

Dans ce cas :

Private Sub Worksheet_Activate()

    Dim i As Integer
    Dim dernière_ligne As Integer
   
    dernière_ligne = 1
    While Cells(dernière_ligne, 2) <> ""
        dernière_ligne = dernière_ligne + 1
    Wend
   
    For i = 3 To dernière_ligne
        If Cells(i, 2) > "" Then
            Cells(i, 6).Borders(xlEdgeLeft).Weight = xlMedium
        End If
    Next i
   
End Sub

EDIT :

Je ne peux pas tester mon code puisque ta feuille est verrouillée. Mais ceci devrait fonctionner.

 

[DédéW83]

Bonjour sylvanu, merci pour ta réponse, ça je maitrise mais ce n'est pas ce que cherche. Mais par contre, je crois que Mylox vient de trouver la solution...Je vais essayer de suite. a plus tard.

 

[DédéW83]

De retour. Je viens d'essayer, voir fichiers joints. Cela fait au moins 10 ans que je n'ai pas fait ça...Est ce que j'ai fait juste ? ça ne marche pas.

 

[DédéW83]

J'ai pas mis de mdp de protection

 

[DédéW83]

Bonjour,il n'y a pas de mdp...J'ai rectifié quelques trucs, mais il ne se passe rien...

Private Sub Worksheet_Activate()

Dim i As Integer
Dim dernière_ligne As Integer

dernière_ligne = 5
While Cells(dernière_ligne, 2) <> ""
dernière_ligne = dernière_ligne + 1
Wend

For i = 5 To dernière_ligne
If Cells(i, 2) > "" Then
Cells(i, 6).Borders(xlEdgeLeft).Weight = xlMedium
Cells(i, 8).Borders(xlEdgeLeft).Weight = xlMedium
End If
Next i
End Sub
Merci d'avance pour votre patience et votre générosité. Maintenant je vais boire l'apéro à votre santé, car c'est la St dédé. mdr...

 

[TooFatBoy]

Bonjour,

Voici plus de détails de ce que j'ai fait en MFC. Mais il n'y a pas de bordure plus épaisse !

As-tu essayé de faire l'inverse ?
Genre tu mets une bordure épaisse et tu inverses ta MFC pour qu'elle mette une bordure fine.

 

[MyloX]

Rebonjour à tous,

Bonjour,il n'y a pas de mdp...J'ai rectifié quelques trucs, mais il ne se passe rien...

En fait, c'est ta MFC qui empêche la mise en forme de la bordure. J'ai modifié le code pour qu'il soit moins lourd, voir fichier joint.
Essaie de refaire ton fichier sans mettre la MFC dans un premier temps en laissant le code du fichier joint. Tu verras que cela fonctionne.

Cordialement,
MyloX