Code vba

selon les données c'est à dire ?

ça tu peut le faire au niveau de la mise en forme conditionnel (donc automatiquement)

C'est mon code vba pour cette fenêtre mais le problème que on cas de changer des données dans le user fram les données changent mais le bordures précédentes restent.
je veux une bordure qui change selon les données.

Private Sub CommandButton1_Click()
pos = 10
For ligne = 10 To Feuil14.Range("A10").End(xlDown).Row
If Feuil14.Range("A" & ligne) <> "" Then
Feuil14.Range("A" & ligne) = ""
Feuil14.Range("B" & ligne) = ""
Feuil14.Range("C" & ligne) = ""
Feuil14.Range("D" & ligne) = ""
Feuil14.Range("E" & ligne) = ""
Feuil14.Range("F" & ligne) = ""
Else
Exit For
End If
Next ligne

If Feuil14.Range("A" & ligne) <> "" Then Feuil14.Range("A" & ligne).Clear '''''''''''''''''
If Feuil14.Range("B" & ligne) <> "" Then Feuil14.Range("B" & ligne).Clear '''''''''''''''''
If Feuil14.Range("C" & ligne) <> "" Then Feuil14.Range("C" & ligne).Clear '''''''''''''''''
If Feuil14.Range("D" & ligne) <> "" Then Feuil14.Range("D" & ligne).Clear '''''''''''''''''
If Feuil14.Range("E" & ligne) <> "" Then Feuil14.Range("E" & ligne).Clear '''''''''''''''''
If Feuil14.Range("F" & ligne) <> "" Then Feuil14.Range("F" & ligne).Clear '''''''''''''''''

Feuil14.Range("B3") = ComboBox1.Text

For ligne = 2 To Feuil5.Range("D2").End(xlDown).Row

If Feuil5.Range("B" & ligne) = ComboBox1.Text Then

Feuil14.Range("A" & pos) = Feuil5.Range("D" & ligne)
'debut Bordure

Feuil14.Range("A" & pos).Borders(xlEdgeTop).Weight = xlMedium 'Bordure haut
Feuil14.Range("A" & pos).Borders(xlEdgeBottom).Weight = xlMedium 'Bordure bas
Feuil14.Range("A" & pos).Borders(xlEdgeLeft).Weight = xlMedium 'Bordure gauche
Feuil14.Range("A" & pos).Borders(xlEdgeRight).Weight = xlMedium 'Bordure droite

'fin Bordure

Feuil14.Range("B" & pos) = Feuil5.Range("E" & ligne)

'debut Bordure

Feuil14.Range("B" & pos).Borders(xlEdgeTop).Weight = xlMedium
Feuil14.Range("B" & pos).Borders(xlEdgeBottom).Weight = xlMedium
Feuil14.Range("B" & pos).Borders(xlEdgeLeft).Weight = xlMedium
Feuil14.Range("B" & pos).Borders(xlEdgeRight).Weight = xlMedium

'fin Bordure

Feuil14.Range("C" & pos) = Feuil5.Range("F" & ligne)

'debut Bordure

Feuil14.Range("C" & pos).Borders(xlEdgeTop).Weight = xlMedium
Feuil14.Range("C" & pos).Borders(xlEdgeBottom).Weight = xlMedium
Feuil14.Range("C" & pos).Borders(xlEdgeLeft).Weight = xlMedium
Feuil14.Range("C" & pos).Borders(xlEdgeRight).Weight = xlMedium

'fin Bordure

Feuil14.Range("D" & pos) = Feuil5.Range("G" & ligne)

'debut Bordure

Feuil14.Range("D" & pos).Borders(xlEdgeTop).Weight = xlMedium
Feuil14.Range("D" & pos).Borders(xlEdgeBottom).Weight = xlMedium
Feuil14.Range("D" & pos).Borders(xlEdgeLeft).Weight = xlMedium
Feuil14.Range("D" & pos).Borders(xlEdgeRight).Weight = xlMedium

'fin Bordure

Feuil14.Range("E" & pos) = Feuil5.Range("H" & ligne)

'debut Bordure

Feuil14.Range("E" & pos).Borders(xlEdgeTop).Weight = xlMedium
Feuil14.Range("E" & pos).Borders(xlEdgeBottom).Weight = xlMedium
Feuil14.Range("E" & pos).Borders(xlEdgeLeft).Weight = xlMedium
Feuil14.Range("E" & pos).Borders(xlEdgeRight).Weight = xlMedium

'fin bordure

Feuil14.Range("F" & pos) = Feuil5.Range("I" & ligne)

'debut Bordure

Feuil14.Range("F" & pos).Borders(xlEdgeTop).Weight = xlMedium
Feuil14.Range("F" & pos).Borders(xlEdgeBottom).Weight = xlMedium
Feuil14.Range("F" & pos).Borders(xlEdgeLeft).Weight = xlMedium
Feuil14.Range("F" & pos).Borders(xlEdgeRight).Weight = xlMedium

'fin Bordure

pos = pos + 1
End If
Next ligne
pos = pos + 3

Feuil14.Range("B" & pos) = "Signature Responsable"
Feuil14.Range("E" & pos) = "Signature DAF"

Me.Hide

ActiveSheet.PrintPreview

End Sub

après ça dépend de comment tu veux procéder

le principe ici, c'est :

tu séléctionnes une cellule, tu lances la macro, ça enleve les bordures

remplace par
ActiveCell

si tu préfères ou par

Activesheet("nomfeuil").Cell(X,Y).

c'est juste pour te montrer le principe

et si je me trompes par, je crois qu'il est possible de faire directement
.Borders.LineStyle = xlNone
pour enlever toutes les bordures (a tester)

Bonjour,
C'est vrai, mais votre selection est obtenue comment????

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Bonjour,
Il faudrait un fichier exemple sur ce site: https://www.cjoint.com/

merci