Selectionner la colonne 1 à 47

Bonjour,

J'utilise un userform qui me permet de copier, coller, dupliquer etc...

Lorsque je clique sur un bouton j'aimerais que l'intégralité de ma ligne sélectionné soit vidé des résultats jusqu’à la colonne 47 (donc de la colonne 1 a 47) sans toucher aux formules.

Pour l'instant mon code me permet de le faire mais pour toute la ligne ! Je voudrais uniquement de la colonne 1 a 47.

Merci d'avance !

Private Sub PbInserer_Click()

Dim c As Range

'pour chaque cellule de la sélection
For Each c In Selection
'si la cellule ne contient pas de formule, alors
If c.HasFormula = False Then
'on efface le contenu de la cellule
c.ClearContents
End If
Next c

End Sub

Up

Bonjour

A tester

Private Sub PbInserer_Click()
  On Error Resume Next
  Range("A" & ActiveCell.Row).Resize(1, 47).SpecialCells(xlCellTypeConstants, 23).ClearContents
  On Error GoTo 0
End Sub

Respect ! Très très fort !