Autres (RESOLU) supprimer les cellules d'une ligne sans supprimer les formules

Staple1600 à dit:

Re

Donc perdons du temps dans VBA
(avec F5 sait faire tout seule comme une grande 😉)

VB:

Sub test()
effacement 9 ' traite la ligne 9 dans cet exemple
End Sub
Private Sub effacement(ligne As Long)
On Error Resume Next
Rows(ligne).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

C'était si compliqué à modifier par tes soins ? 😉

VB:

Sub test_v2()
Dim Num_Ligne As Long
Num_Ligne = InputBox("Numéro de ligne à effacer?", "Effacer Contenu (sauf formules)", 1600)
effacement Num_Ligne
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

Chez moi, quand on efface, on efface!
Une décision est prise, on l'exécute!

Cliquez pour agrandir...

Staple1600 à dit:

Et pourquoi il existe le moteur de recherche du forum? 😉
Et pourquoi dans la charte, on peut lire:
"N'hésitez pas à faire des recherches avant de posez vos questions"
😉

VB:

Sub test_v3()
Dim Num_Ligne As Long
Num_Ligne = Application.InputBox("Numéro de ligne à effacer?", "Effacer Contenu (sauf formules)", 1600)
If Num_Ligne = False Then Exit Sub
effacement Num_Ligne
End Sub

Cliquez pour agrandir...