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

[chaelie2015]

Bonsoir FORUM
je cherche un code qui supprime toutes les cellules d'une ligne sans supprimer les formules de qLq cellules
est il possible ?
merci par avance

 

[Staple1600]

Re

=>chaelie2015
Fatigué ce soir?
Voir du côte de la touche F5 et utiliser les boutons d'options idoines.

 

[Staple1600]

Re

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

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

 

[chaelie2015]

Re

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

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

Bonsoir JM
Merci pour la réponse c'est parfait.
je souhaite ajouter un message dans sub test() le numéro de la ligne a effacer .
encore une fois merci par avance

 

[Staple1600]

Re

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

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

 

[chaelie2015]

Re

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

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

Re
merci beaucoup
si j'annule l'effacement, j'aurai un message d'erreur d'exécution 13 ?
merci

 

[Staple1600]

Re

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

 

[chaelie2015]

Re

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

re
pourquoi il y a "Annuler" ?

 

[Staple1600]

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"

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

 

[chaelie2015]

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"

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

Re
merci pour les réponses et les conseils.
je te souhaite une bonne soirée et une bonne nuit
a+

 

[Staple1600]

Re

Allez une petite dernière pour la route
Plus ergonomique

Sub test_v4()
Dim R As Range, Num_Ligne As Long
On Error Resume Next
Set R = Application.InputBox("Selection de la ligne à traiter", "Effacement", , , , , , 8)
Num_Ligne = R.Row
effacement Num_Ligne
Err.Clear
On Error GoTo 0
End Sub