Mise a zero de celluls d'une ligne
Fermé
toto
-
24 août 2012 à 12:33
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 - 24 août 2012 à 13:06
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 - 24 août 2012 à 13:06
A voir également:
- Mise a zero de celluls d'une ligne
- Remettre a zero un pc - Guide
- Aller à la ligne dans une cellule excel - Guide
- Apparaitre hors ligne whatsapp - Guide
- Mise a jour airpods - Guide
- Retour à la ligne css - Forum CSS
1 réponse
f894009
Messages postés
16905
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mars 2023
1 680
24 août 2012 à 13:06
24 août 2012 à 13:06
Bonjour,
Bonne suite
Sub Forfaitzero()
Dim x As Range
Dim dercol As Integer
With Worksheets(1)
Set x = .Columns(1).Find("AF-PPM12-DCSFFS-SI-Forfait-HPES", , xlValues, xlWhole, , , False)
If x Is Nothing Then Exit Sub
'Derniere colonne de la ligne trouvee
dercol = .Cells(x.Row, Columns.Count).End(xlToLeft).Column
'effacement des cellles de la ligne trouvee
.Range(Cells(x.Row, 2), Cells(x.Row, dercol)).ClearContents
End With
End Sub
Bonne suite