Code vba
Résolu
yosra_miagi
Messages postés
110
Statut
Membre
-
yosra_miagi Messages postés 110 Statut Membre -
yosra_miagi Messages postés 110 Statut Membre -
Salut tout le monde
J'ai un petit problème au niveau vba :
Je veux savoir le code vba qui permet d'effacer une bordure d'une feuille Excel
Ç a d j'ai un interface qui affiche les différentes équipements par chambre, ces équipements sont afficher dans un feuille Excel avec un code qui permet d'afficher le bordure (feuille 18) mais après quand je change la chambre, la bordure précédant reste même si le données sont inférieur au précédente.
Merciiiiiii
J'ai un petit problème au niveau vba :
Je veux savoir le code vba qui permet d'effacer une bordure d'une feuille Excel
Ç a d j'ai un interface qui affiche les différentes équipements par chambre, ces équipements sont afficher dans un feuille Excel avec un code qui permet d'afficher le bordure (feuille 18) mais après quand je change la chambre, la bordure précédant reste même si le données sont inférieur au précédente.
Merciiiiiii
7 réponses
-
-
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,
C'est vrai, mais votre selection est obtenue comment???? -
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) -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
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. -
selon les données c'est à dire ?
ça tu peut le faire au niveau de la mise en forme conditionnel (donc automatiquement)
