Ami(e)s du jour,
Bonjour !
Voilà Abel,
Je mets celà dans le cas où ca intéresse quelqu'un.
Les premières lignes prennent les données de ma feuille qui sert de masque de saisie, ensuite pour faire mon encadrement je me sert d'une boucle qui entoure les cellules qui ont reçu des données. En fait il s'agit d'une ligne à chaque fois qui va de la colonne A à la colonne G.
En tous les cas merci de ton aide.
fin = Cells(65536, numcolonne).End(xlUp).Row + 1
numtab = Cells(fin, numcolonne).Address(RowAbsolute:=False, ColumnAbsolute:=False)
numos = Worksheets("Saisie").Range("N__de_fiche").Value
Cells(fin, numcolonne).Value = numos
Cells(fin, numcolonne).Offset(0, 1).Value = Worksheets("Saisie").Range("Lieu").Value
Cells(fin, numcolonne).Offset(0, 2).Value = Worksheets("Saisie").Range("Liste").Value
Cells(fin, numcolonne).Offset(0, 3).Value = Worksheets("Saisie").Range("Date_reception").Value
Cells(fin, numcolonne).Offset(0, 4).Value = Worksheets("Saisie").Range("Achèvement").Value
Cells(fin, numcolonne).Offset(0, 5).Value = Worksheets("Saisie").Range("Obs").Value
Cells(fin, numcolonne).Offset(0, 6).Value = Worksheets("Saisie").Range("Maj").Value
For i = 0 To 6
Cells(fin, numcolonne).Offset(0, i).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
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
Next i
Range("A1").Select
Bonne soirée
@lain