Bonjour,
Voilà le code de base :
Private Sub CommandButton1_Click()
Sheets("Bilan").Select
With Sheets("Bilan")
.Select
.Range("A2").Select
.Range(Selection, Selection.End(xlToRight)).Select
.Range(Selection, Selection.End(xlDown)).Select
.Selection.Clear
.Range("A2").Select
End With
End Sub
Le bouton de commande "contrôle ActiveX" est créé dans l'onglet "Base" et les actions voulues impactent l'onglet "Bilan".
Sauf erreur, je suis obligé d'utiliser la commande "With" pour effectuer ces actions.
Je souhaiterais intégrer une condition :
If Range("A2") <> "" Then [je déroule les actions ci-dessus sinon rien]
Je n'arrive pas à trouver la bonne syntaxe, merci.