Comment effacer bordure de cellules [Résolu]

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

Votre réponse

2 réponses

Messages postés
3
Date d'inscription
jeudi 26 avril 2018
Dernière intervention
27 avril 2018
0
Merci
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
Messages postés
5599
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 décembre 2018
0
Merci
Bonjour,

For i = Ligne To i = 200 


voir ici si ta boucle For Next correspond :

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

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