Macros VBA debutante

Bonjour je suis debutante en VBA,et je dois créer une macro qui me permet de faire une mise en forme des celulles ,c'est a dire si je j'introduit une ligne vide dans entre n'importe quel ligne de mon tableau jai des bordures qui traine donc on me demande de faire une mise en forme de tel sorte de n'est plus voir ses bordures qui traine.
je vous joint une partie pr voir mon probleme .
merci de m'aidez s'il vous plait.:cry:

Bonsoir,

Tu peux essayer de stocker dans une cellule le nombre de ligne composant le tableau de valeur.
Lorsque ce nombre de ligne change, le tableau est remis en forme.
Pour l'exemple :
- le nombre de ligne est stocker ici dans la cellule A1.
- la mise en forme de la ligne 6 du tableau est dupliquée et copiée aux autres lignes.

J'utilise l'évènement SelectionChange pour détecter les changements de nombre de ligne du tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("C5").CurrentRegion If (Range("A1").Value <> .Rows.Count) Then Range("A1").Value = .Rows.Count Range(Range("C6"), Range("K6")).Copy Range("C7:K" & (.Row + .Rows.Count - 1)).PasteSpecial _ Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End If End With End Sub

---

et pourquoi ne pas jouer sur la mise en forme conditionnelle ?

du style si cellule vide pas de barre sur les côtés

bonsoir,
Je vous remercie pour les réponses.
BlueMonkey :j'ai essayé le code que vous m'aviez proposé mais il augmente juste le nombre de celulles avec bordures.

Pyloupylou: pouvez vous m'ecrire le code qui fait ça s'il vous plait.
merci d'avance

Bonsoir,

L'idée de pyloupylou faisant appel aux mises en forme conditionnelle, ne nécessite pas de code VBA.
voir tuto Mise en forme conditionnelle

L'idée est de mettre une condition à la mise en forme souhaité.
La condition serait que la cellule / ou ligne ne soit plus vide pour mettre en forme la/les cellules.

Citation:

---

j'ai essayé le code que vous m'aviez proposé mais il augmente juste le nombre de celulles avec bordures.

---

En effet c'est que fait le code. Je pensais que le but de la demande était d'ajouter des bordures au fur et à mesure que le tableau se complétait.
:oops: Mais j'ai peut être mal compris le but de l'opération.

Bonjour ,
Ma question c'est de ne pas avoir des bordures par exemple dans le fichier que j'ai joint le probleme se trouve sur la ligne 4;et quand j'introduit une ligne vide entre n'importe quelle cellule j'ai le meme souci.
Si vous avez bésoin plus de précision je suis a votre disposition.
merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub test() Dim Myrange As Range Set Myrange = ActiveSheet.UsedRange For i = 3 To Myrange.Rows.Count Myrange.Select Debug.Print Myrange(i, 2) If Trim("" & Myrange(i, 2)) = "" Then miseEnPageCells Range(Myrange.Cells(i, 1).Address & ":" & Myrange.Cells(i, Myrange.Columns.Count).Address) End If Next End Sub Sub miseEnPageCells(Myrange As Range) Myrange.Borders(xlDiagonalDown).LineStyle = xlNone Myrange.Borders(xlDiagonalUp).LineStyle = xlNone Myrange.Borders(xlEdgeLeft).LineStyle = xlNone Myrange.Borders(xlEdgeTop).LineStyle = xlNone Myrange.Borders(xlEdgeBottom).LineStyle = xlNone Myrange.Borders(xlEdgeRight).LineStyle = xlNone Myrange.Borders(xlInsideVertical).LineStyle = xlNone Myrange.Borders(xlInsideHorizontal).LineStyle = xlNone End Sub

---

Merci beaucoup! le Problème est résolu. Reste a comprendre le code.