code vba Résolu/Fermé

Question

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

f894009 · Answer

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

Freedomsoul · Answer

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

f894009 · Answer

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

Freedomsoul · Answer

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)

yosra_miagi · Answer

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

yosra_miagi · Answer

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.

Freedomsoul · Answer

selon les données c'est à dire ?

ça tu peut le faire au niveau de la mise en forme conditionnel (donc automatiquement)

Code vba

7 réponses

Discussions similaires

Newsletters