Pb code VBA - Si IsNotNumeric = ClearContents

[zebanx]

Bonjour,

Pourriez-vous m'aider SVP pour un code VBA permettant de mettre à zéro les cellules des colonnes B à D qui ne sont pas des valeurs numériques ? Merci pour votre aide

Ci-joint un début de code mais qui ne fonctionne pas sur le fichier joint :
Public Sub toto()
With ActiveSheet
Dim i As Integer
toto:
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If NotIsNumeric (Range("D" & i).Value) Then
Range ("B"&i).Value.ClearContents
GoTo toto
End If
Next
End With
End Sub

 

[pierrejean]

bonjour zebanx

teste:

Sub titi()
For Each cel In Range("B3:D" & Range("A" & Rows.Count).End(xlUp).Row)
   If Not IsNumeric(cel.Value) Then cel.Value = ""
Next
End Sub

 

[zebanx]

Impeccable Pierre-Jean !!!

Un grand merci pour ce code express et bien efficace.

Bonne journée

 

[job75]

Bonjour zebanx, Pierre,

Range("B3:D" & Rows.Count).SpecialCells(xlCellTypeConstants, 22) = ""

A+

 

[zebanx]

Merci Job75.
Ca fonctionne bien aussi