cours de bourse ???

fanfan38 à dit:

Bonjour
J'espere que cela te convient...

A+ François

Cliquez pour agrandir...

JCGL à dit:

Bonjour à tous,

Pour actualiser avec le bouton prévu sur ton USF :

Code:

Private Sub CommandButton1_Click()
Range("A4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub

A placer dans le code de ton USF

A+

Edition : pour éviter d'ouvrir le débogage si tu cliques deux fois sur "Retirer les ligns vides" :

Code:

Private Sub CommandButton2_Click()
''-----supprime les Lignes vides-----
[B]On Error Resume Next[/B]
Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Cliquez pour agrandir...