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
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
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
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
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
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
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
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
Allez une petite dernière pour la route
Plus ergonomique
VB:
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