Sujet Précédent Sujet Suivant

Comment effacer bordure de cellules

Résolu
guisams Messages postés 3 Date d'inscription jeudi 26 avril 2018 Statut Membre Dernière intervention 27 avril 2018 - 26 avril 2018 à 14:20
guisams Messages postés 3 Date d'inscription jeudi 26 avril 2018 Statut Membre Dernière intervention 27 avril 2018 - 27 avril 2018 à 08:49
Bonjour,
J'ai un soucis avec un code VBA sur excel..
Pas moyens d'enlever les bordures des cellules.
Je vous montre mon code:


Dim i As Integer
Ligne = 7
If (Cells(Ligne, 1).Value) <> "" Then
Ligne = Ligne + 1
Else: For i = Ligne To i = 200
Cells(i, 1).Borders(xlEdgeLeft).LineStyle = xlNone
Cells(i, 1).Borders(xlEdgeRight).LineStyle = xlNone
Cells(i, 1).Borders(xlEdgeBottom).LineStyle = xlNone
Cells(i, 1).Borders(xlEdgeTop).LineStyle = xlNone
Cells(i, 2).Borders(xlEdgeLeft).LineStyle = xlNone
Cells(i, 2).Borders(xlEdgeRight).LineStyle = xlNone
Cells(i, 2).Borders(xlEdgeBottom).LineStyle = xlNone
Cells(i, 2).Borders(xlEdgeTop).LineStyle = xlNone
Cells(i, 3).Borders(xlEdgeLeft).LineStyle = xlNone
Cells(i, 3).Borders(xlEdgeRight).LineStyle = xlNone
Cells(i, 3).Borders(xlEdgeTop).LineStyle = xlNone
Cells(i, 3).Borders(xlEdgeBottom).LineStyle = xlNone

Next
End If

Dans un premier temps: je créer un boucle afin de voire a partir de quelle lignes mes cellules sont vides ( a savoir que si une cellule est vide celles qui suivent le sont aussi, sur la ligne comme dans la colonne)

Ensuite une fois la cellule atteinte (au niveau du else): Je demande que pour la case sur la quelle je suis ainsi que les deux d'à coté on enlève les bodures

Enfin: On le fait pour toute les ligne suivantes jusqu'à 200


Quand je lance ce code, tout ce fait mais aucune bordure ne change...
Merci d'avance pour vos réponses et votre patience.
A voir également:

2 réponses

Réponse 1 / 2
guisams Messages postés 3 Date d'inscription jeudi 26 avril 2018 Statut Membre Dernière intervention 27 avril 2018
26 avril 2018 à 15:24
J'ai travaillé mon programme et grâce a des message box j'ai ciblé mon problème:
La boucle for...to ne se lance pas :(
Si quelqu'un a une solution a proposé pour cela je suis preneur.
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7893 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 19 mai 2023 136
26 avril 2018 à 16:44
Bonjour, 

For i = Ligne To i = 200


voir ici si ta boucle For Next correspond :

https://silkyroad.developpez.com/vba/boucles/#LIII

0
guisams Messages postés 3 Date d'inscription jeudi 26 avril 2018 Statut Membre Dernière intervention 27 avril 2018
27 avril 2018 à 08:49
J'ai Changer et mis:

For i=Ligne to 200

et ça marche meci
0
Rejoignez-nous