Comment effacer bordure de cellules [Résolu]

Signaler
Messages postés
3
Date d'inscription
jeudi 26 avril 2018
Statut
Membre
Dernière intervention
27 avril 2018
-
Messages postés
3
Date d'inscription
jeudi 26 avril 2018
Statut
Membre
Dernière intervention
27 avril 2018
-
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.

2 réponses

Messages postés
3
Date d'inscription
jeudi 26 avril 2018
Statut
Membre
Dernière intervention
27 avril 2018

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.
Messages postés
7374
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mai 2021
122
Bonjour,

For i = Ligne To i = 200 


voir ici si ta boucle For Next correspond :

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

Messages postés
3
Date d'inscription
jeudi 26 avril 2018
Statut
Membre
Dernière intervention
27 avril 2018

J'ai Changer et mis:

For i=Ligne to 200

et ça marche meci