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
bonjour
je voudrais mettre dans des celulls d'une ligne la valeur zero. parcontre cette ligne est identifier par sa valeur dans la colone A elle peux changer de position a chaque fois que lon initialise le fichier
Voici mon bout de code. lorsque je le compile il ne génére aucune erreur mais il ne se passe rien aussi.
Mercie pour votre aide.


Sub Forfaitzero()
Dim x As Range
Dim i As Integer
Dim dercol As Integer
dercol = Range("B" & Columns.Count).End(xlToLeft).Column

Set x = Sheets("Feuil1").Columns(1).Find("AF-PPM12-DCSFFS-SI-Forfait-HPES", , xlValues, xlWhole, , , False)

If x Is Nothing Then Exit Sub

For i = 2 To dercol

Cells(x.Row, i).Value = ""



Next i


End Sub

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
Bonjour,

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
0