Comment effacer bordure de cellules [Résolu]

guisams 3 Messages postés jeudi 26 avril 2018Date d'inscription 27 avril 2018 Dernière intervention - 26 avril 2018 à 14:20 - Dernière réponse : guisams 3 Messages postés jeudi 26 avril 2018Date d'inscription 27 avril 2018 Dernière intervention
- 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.
Afficher la suite 

Votre réponse

3 réponses

guisams 3 Messages postés jeudi 26 avril 2018Date d'inscription 27 avril 2018 Dernière intervention - 26 avril 2018 à 15:24
0
Utile
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.
Commenter la réponse de guisams
cs_Le Pivert 5147 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 23 mai 2018 Dernière intervention - 26 avril 2018 à 16:44
0
Utile
Bonjour,

For i = Ligne To i = 200 


voir ici si ta boucle For Next correspond :

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

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

For i=Ligne to 200

et ça marche meci
Commenter la réponse de cs_Le Pivert

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.