Mise à blanc d'un nombre de colonne en VBS

[siocnarf]

Bonjour,

Avec une macro (VBS), comment je fais pour programmer la mise à blanc des colonnes A à H seulement à partir de la ligne 2? J'ai actuellement 70 lignes mais cela peut monter à 200 alors je souhaiterais que ce soit dynamique.

Merci,

 

[pierrejean]

Re : Mise à blanc d'un nombre de colonne en VBS

Bonjour francois (te voila tout retourné !!)

 range("A2:H" & activesheet.usedrange.row+ activesheet.usedrange.rows.count).clearcontents

 

[Staple1600]

Re : Mise à blanc d'un nombre de colonne en VBS

Bonsoir siocnarf, Pierrejean


Une version un peu plus longue

Sub mise_a_blanc()
Dim e_v As Range, e_f As Range, effacez_moi As Range
On Error Resume Next
With Range("A:F")
    Set e_v = .SpecialCells(2, 23)
    Set e_f = .SpecialCells(-4123, 23)
End With
If e_v Is Nothing And e_f Is Nothing Then
MsgBox "Votre feuille est vide", vbExclamation, "Attention"
End
ElseIf e_v Is Nothing Then
   Set effacez_moi = e_f
ElseIf e_f Is Nothing Then
   Set effacez_moi = e_v
Else
   Set effacez_moi = Union(e_f, e_v)
End If
On Error GoTo 0
effacez_moi.ClearContents
End Sub