Code vba

Résolu

yosra_miagi Messages postés 97 Date d'inscription Statut Membre Dernière intervention -
yosra_miagi Messages postés 97 Date d'inscription Statut Membre Dernière intervention - 21 oct. 2012 à 13:08

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

Afficher la suite

A voir également:

Xlnone vba
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Dépassement de capacité vba ✓ - Forum Excel

7 réponses

Réponse 1 / 7

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

merci

Réponse 2 / 7

Freedomsoul Messages postés 509 Date d'inscription Statut Membre Dernière intervention 97

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

Réponse 3 / 7

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 4 / 7

Freedomsoul Messages postés 509 Date d'inscription Statut Membre Dernière intervention 97

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)

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,
Desole, j'ai fait erreur sur la personne.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

yosra_miagi Messages postés 97 Date d'inscription Statut Membre Dernière intervention

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

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour

juste au passage, pour encadrer une cellule
Feuil14.Range("E" & pos).Borders.Weight = xlMedium

Réponse 6 / 7

yosra_miagi Messages postés 97 Date d'inscription Statut Membre Dernière intervention

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.

Réponse 7 / 7

Freedomsoul Messages postés 509 Date d'inscription Statut Membre Dernière intervention 97

selon les données c'est à dire ?

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

yosra_miagi Messages postés 97 Date d'inscription Statut Membre Dernière intervention

il n'a pas un code au niveau programmation VBA puisque la mise en forme conditionnel tient compte des données en entête de mon ficher Excel (données base ne se misent pas au bordure) ???

Freedomsoul Messages postés 509 Date d'inscription Statut Membre Dernière intervention 97

je ne comprends pas ce que tu veux exactement:

explique moi la structure de ton fichier excel, ce que tu as, ce que tu veux, sous quelles conditions

yosra_miagi Messages postés 97 Date d'inscription Statut Membre Dernière intervention

j'ai utiliser le mise en forme conditionnel est ça marche enfin

Freedomsoul Messages postés 509 Date d'inscription Statut Membre Dernière intervention 97

Haha ! :D

Can u put [Résolu] ?

yosra_miagi Messages postés 97 Date d'inscription Statut Membre Dernière intervention

j'ai utilser le mise en forme conditionnel

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Forum Excel

Questions et réponses sur Excel