Bonjour,

j ai un probleme avec IsNumeric
j ai une feuille "Main" ou je remplie des cellules dans la colonnes H (sur 263 lignes) par exemple et j ai formule en "P" qui calcul et me donne un nombre.

je voudrai que si il y a un nombre en "P" je copie les cellules A et B de cette meme ligne sinon si il y a juste une formule je ne fais rien ainsi de suite

Mais avec IsNumeric il prends les formules pour des nombres ... enfin chez moi en tout cas.

Mon code


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
Dim Target
Sheets("Main").Unprotect
For i = 12 To 263
j = i - 10
Target = Sheets("Main").Range("P" & i).Value
If IsNumeric(Target) = True Then
Sheets("Main").Range("A" & i & ":B" & i).Copy
Sheets("Prim").Range("A" & j & ":B" & j).PasteSpecial
Application.CutCopyMode = False
End If
Next i
Sheets("Main").Protect , userinterfaceonly:=True
End Sub
merci
Tom