Mise a zero de celluls d'une ligne
toto
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Mise a zero de celluls d'une ligne
- Remettre a zero un pc - Guide
- Partage de photos en ligne - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Aller à la ligne dans une cellule excel - Guide
1 réponse
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
