Bordure + Userform

Ozons123 · 1 Novembre 2006

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 · 1 Novembre 2006

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") :

Code:

'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 · 2 Novembre 2006

Re : Bordure + Userform

Merci Robert pour ton aide.

Ozons

Ozons123 · 3 Novembre 2006

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

Bordure + Userform

Ozons123

XLDnaute Junior

Pièces jointes

Robert

XLDnaute Barbatruc

Ozons123

XLDnaute Junior

Ozons123

XLDnaute Junior

Discussions similaires