Probleme avec isnumeric

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:

---

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

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 ? :roll:

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

Code:

---

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

---

ou ta une methode plus propre?

EDIT : ca ne marche pas comme ca

avec ce code j ai un bug

Code:

---

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

---

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...

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...

Citation:

---

Envoyé par 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...

---

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 ? :mouarf:

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

Code:

---

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

---

non desole rien a faire ca marche pas...
je comprends pas pourquoi:

voici mon code:

Code:

---

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 Not Target <> "" And 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

---

je me retrouve avec les 263 lignes alors que je n ai que 4 valeurs en P

Tu ne vois pas une légère différence entre

Code:

---

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

---

et

Code:

---

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

---

???? 8O

sauf que je veux tester si ma cellule n est pas vide et si c est un nombre quelle contient donc?

la différence est que...

If Target <> "" veut dire Si la cellule n'est pas vide
If Not Target <> "" veut dire si la cellule est vide

Si tu veux absolument utiliser ton Not alors faut écrire

Code:

---

If Not Target = ""

---

ok grace a ton expliquation sur "target<>" j ai compri: (apres test ca fonctionne)

Code:

---

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 Target <> 0 And 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 a toi fring et a toi ousk

bonne soiree