Sélectionner plage de cellule variable

Bonjour à tous,

Je voudrais sélectionner une plage de cellule à partir du moment ou ces cellules deviennent des chiffres. Voici ma macro, qui ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Graph_Rad()   Dim i As Integer Dim j As Integer   j = 2   For i = 1 To 10   If Not WorksheetFunction.IsText(Cells(B, i).Value) Then j = j + 1   Next   End Sub   Cells(a, j).Select Range(ActiveCell, "C10").Select   End Sub

---

Bonjour,

2 emarques

- la propriété

Code:

---

Istext

---

est de type boolean, ce qui signifie qu'elle prend la valeur True ou False

- la méthode Cells a pour argument 2 chiffres (ligne, colonne), eux-même pouvant être retournés par une fonction ou une méthode.
Ici ton argument B est inconnu

Je te propose donc d'écrire

Code:

---

If WorksheetFunction.IsText(Cells(2, i)) = False Then j = j + 1

---