guisams
Messages postés3Date d'inscriptionjeudi 26 avril 2018StatutMembreDernière intervention27 avril 2018
-
26 avril 2018 à 14:20
guisams
Messages postés3Date d'inscriptionjeudi 26 avril 2018StatutMembreDernière intervention27 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.
guisams
Messages postés3Date d'inscriptionjeudi 26 avril 2018StatutMembreDernière intervention27 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.