Discussion :

[tomy7]

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

[ouskel'n'or]

Que donne les formules si ce ne sont pas des nombres ? "0" ou vide ?
Si c'est zéro, alors tu testes <> 0 et si c'est vide, tu testes vide <> ""
Non ?

[tomy7]

elle sont vide
alors est ce que je l ai teste comme ca ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not range("P"&i).value = "" then

ou ta une methode plus propre?

EDIT : ca ne marche pas comme ca

[tomy7]

avec ce code j ai un bug

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Main").Range("P" & i).SpecialCells(xlCellTypeBlanks).Select

[fring]

Hello,

Target n'est pas très judicieux comme nom pour une variable vu que ce terme est utilisé par VBA, il va se prendre les pieds dans le tapis...

[tomy7]

non car c est pas target.blablabla
donc ca passe mais meme si je change target par MyCheck ou autre chose ... y a toujours ce souci...

[fring]

non car c est pas target.blablabla
donc ca passe mais meme si je change target par MyCheck ou autre chose ... y a toujours ce souci...

Je n'ai pas dit que ça ne passerait pas, j'ai dit ce n'est pas judicieux

Pour ton problème Ousk t'a donné la réponse, il doit venir le coder lui même ?

Bon allé, c'est la fin de la journée, il ya du soleil, les oiseaux chantent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target <> 0 And Target <> "" And IsNumeric(Target) = True Then