Bordure + Userform

[Ozons123]

Bonsoir le forum,

j'ai un petit problème de programmation vba sur le fichier joint (bordure.zip).
Je souhaite à chaque fois que je valide mon userform, faire apparaître en même temps une bordure et des cellules dont le fond est vert.

Exemple:
-Cliquer sur le bouton Documentation
-Apparition du userform
-Dans la textebox Code je documente toto 05
-Dans la textebox Total je documente 5
-Cliquer sur le bouton Valider

Les données viennent s'incrémenter en dessous de Toto 04, et c'est à partir de ce moment que j'aimerais voir apparaître une bordure à l'identique de la ligne 7 avec les couleurs vertes associées. Voilà avec un grand merci à celles ou ceux qui me répondent.

Bonne soirée

 

[Robert]

Re : Bordure + Userform

Bonsoir Ozons, bonsoir le forum,

Je te propose de rajouter ces quelques lignes de code en fin de la procédure Private Sub CommandButton1_Click() (du bouton "Valider") :

'copie les formats de la ligne du dessus
Range(Cells(ligne - 1, 2), Cells(ligne - 1, 5)).Copy
Range(Cells(ligne, 2), Cells(ligne, 5)).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Cells(ligne+1, 2).Activate

 

[Ozons123]

Re : Bordure + Userform

Merci Robert pour ton aide.

Ozons

 

[Ozons123]

Re : Bordure + Userform

Bonsoir au forum,

j'ai souhaité contourner le problème non pas en faisant une copie à chaque
validation des cellules précédentes mais en effectuant à l'instant de la validation le tracé de la bordure sur deux onglets. Cela ne fonctionne pas.

J'ai rentré ceci pour l'onglet data et j'ai fait de même pour l'onglet stockage:

Sheets("DATA").Range(Cells(ligne, 2), Cells(ligne, 5)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.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 = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

Sheets("STOCKAGE").Range(Cells(ligne, 2), Cells(ligne, 5)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.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 = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With



L'erreur est 1004. Dans les sheets les nons des onglets sont bons. Si je supprime la deuxième demande de tracé de bordure cela fonctionne. 😕

Par avance merci

Bonne soirée Ozons