Discussion :

[lafafmentvotre]

Bonjour

Je souhaiterais mettre une bordure sur une ligne en fonction du remplissage d'une cellule.

Mon tableau va de la colonne A à la colonne N, si une valeur est insérée dans une cellule de la colonne A, alors il met une bordure sur la ligne jusqu'en colone compris, sinon pas de bordure.

Est-ce possible ?

Merci par avance pour le coup de main

[sdispro]

Bonjour,

Oui tout à fait possible en créant une MFC.


Pour ce qui est de la manip tout dépend de ta version Excel.

[lafafmentvotre]

Bonjour

Je suis en Excel 2010...
C'est quoi une MFC ?

[sdispro]

Il s'agit d'une mise en forme conditionnel.
Tu y à accès via l'onglet accueil.
Tu peux indiquer avec une formule la mise en forme souhaitée, (bordure de ligne si A1 est rempli).

Je n'ai pas Excel 2010 avant demain matin (j'ai fini le travail), si personne ne t'as aidé avant demain je viendrai te donner la formule afin de réaliser ton projet (dans l'éventualité ou tu n'y arriverai pas).

[lafafmentvotre]

Bonjour sdispro, bonjour le forum

Je veux bien un coup de main oui.

Merci

[sdispro]

Comme promis:

1-Accueil
2-Mise en forme conditionnelle
3-Nouvelle règle
4-Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué
5-Tu rentre la formule: =$A$1<>""
6-Oubli pas de selectionneer toute la ligne 1

Pour moi tout marche.

A+

[lafafmentvotre]

Hello

Merci mais je voyais plus un truc dans ce genre (exemple pour colorer cellules au lieu de bordures

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub borders(cellule)
Dim numColonne As Integer, numLigne As Integer, c As Range
numLigne = ActiveCell.Row
numColonne = ActiveCell.Column
With Sheets("GENERAL")
For Each c In Range("A:A")
If c <> "" Then
Range("A" & numLigne & ":N" & numLigne).Select
With Selection
.Interior.Color = 49407
End With
End If
Next c
End With
End Sub

Mais je pense que le code n'est pas au top.

Comment puis-je l'optimiser ?

[sdispro]

Salut, dsl pour la réponse tardive, PC malade.

Tu veux un truc de ce genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 12/12/2011 par SDISPRO ONE
'
If Cells(1, 1) = colorIndex6 Then
 
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Else
End If
 
End Sub

[lafafmentvotre]

Bonjour sdispro, bonjour le forum

Non, je prenais un exemple comme si je désirais faire une coloration sur la cellule au lieu de faire des bordures.

Ce que je souhaite faire, c'est :
si dans une cellule de la colonne A je rentre une information alors il met une bordure sur la ligne de la cellule de la colonne A à la colonne N.
si rien n'est rentré alors pas de bordures

Est-ce possible en VBA ?

Merci

[sdispro]

Re,
Oui cela est possible mais dans ton cas une MFC est le mieux adaptée (si j'ai bien compris).

Envoi moi ton fichier que je te le fasse car nous avons du mal a nous comprendre
a+

[lafafmentvotre]

Hello

Voici le fichier.

Dans l'onglet GENERAL, je souhaiterais que lorsque je valide une date dans la colonne A, alors seulement il me mette des bordures sur la ligne concernée.
Donc si je rentre une valeur dans A33 alors bordure sur les cellules A33 à N33.
Si rien n'est rentré dans A33 ou que je retire la valeur alors plus de bordure.
Idem pour les lignes suivantes.

En espérant avoir bien expliqué.

Je te remercie pour ton aide

[sdispro]

Salut,

Désolé pour le retard de réponse.
Je te joint le fichier dont tu as besoin.
Je t'ai mis la MFC à la ligne 33, si tu rentre une date, toute la ligne (A à N) aura un quadrillage.
Le fond celulle jaune c'est juste pour te repérer.

Encore désolé pour le retard.

a+

[lafafmentvotre]

Bonjour Sdispro, bonjour le forum

Merci.
J'ai vu la MFC mais le soucis c'est qu'elle ne s'applique que sur la cellule A33.
Lorsque je passe en A34 et que je rentre une valeur, forcément les cellules A34 à N34 ne sont pas modifiées avec bordures.

[sdispro]

La MFC rentré sur le fichier fait:

Si A33 rempli alors bordure de A33 à N33
Si A33 supprimé alors aucune bordure.

Je n'ai dû rien comprendre à ta demande...

[lafafmentvotre]

Bonjour Sdispro, bonjour le forum

Ce n'est pas grave car j'ai peut être pas bien expliqué aussi.
Personne ne peut m'aider ?

Merci