A voir également:
- Paramétrer fonction avec nom de feuille
- Parametrer chromecast - Guide
- Fonction si et - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Bruler feuille de laurier - Guide
4 réponses
En fait j'ai une fonction qui gère les bordures dans une onglet.
J'aimerais à chaque fois que je rempli un onglet finir par:
Call bordure(onglet1), ou un autre onglet par exemple.
Seulement je n'arrive pas à faire en sorte que le nom de l'onglet soit paramètre.
Voici ma fonction:
Private Function bordure(nom_onglet)
Dim i As Integer
i = 5
While Sheets("nom_onglet").Cells(i, 1) <> ""
For j = 1 To 7
Sheets("nom_onglet").Cells(i, j).Borders(xlEdgeLeft).Weight = xlThin
Sheets("nom_onglet").Cells(i, j).Borders(xlEdgeRight).Weight = xlThin
Sheets("nom_onglet").Cells(i, j).Borders(xlEdgeBottom).Weight = xlThin
Next
i = i + 1
Wend
End Function
J'aimerais à chaque fois que je rempli un onglet finir par:
Call bordure(onglet1), ou un autre onglet par exemple.
Seulement je n'arrive pas à faire en sorte que le nom de l'onglet soit paramètre.
Voici ma fonction:
Private Function bordure(nom_onglet)
Dim i As Integer
i = 5
While Sheets("nom_onglet").Cells(i, 1) <> ""
For j = 1 To 7
Sheets("nom_onglet").Cells(i, j).Borders(xlEdgeLeft).Weight = xlThin
Sheets("nom_onglet").Cells(i, j).Borders(xlEdgeRight).Weight = xlThin
Sheets("nom_onglet").Cells(i, j).Borders(xlEdgeBottom).Weight = xlThin
Next
i = i + 1
Wend
End Function
Dim i As Integer
Range("A14").Select
For i = 14 To 9999
If Range("A" & i).Interior.ColorIndex = xlNone Then
Exit For
End If
Next i
Range("A" & i).EntireRow.Insert
Range("A" & i & ":G" & i).Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Je ne sais pas si ce code peut t'aider, mais il me permet de créer un ligne a partir de la ligne 14 de A14 a G14 avec des couleurs , bordure, etc
