Discussion :

[delamarque]

bonjour,

j'ai une colonne contenant soit des cellules vides soit des cellules contenant un chiffre soit des cellules contenant des lettres
et je voudrais extraire uniquement les cellules contenants un chiffre (par ex : 1) et non des lettres (par ex : macro)
Merci de votre aide

[ouskel'n'or]

Extrait de l'aide :

Dim MyVar, MyCheck
MyVar = "53" ' Affectation d'une valeur numérique.
MyCheck = IsNumeric(MyVar) ' Renvoie True.

MyVar = "459.95" ' Affectation d'une valeur
' numérique.
MyCheck = IsNumeric(MyVar) ' Renvoie True.

MyVar = "45 Help" ' Affectation d'une chaîne de
' caractères.
MyCheck = IsNumeric(MyVar) ' Renvoie False.

Bref, maintenant que tu as fait F1...
Tu as plusieurs solutions.
Peux-tu trier tes données selon la colonne contenant nombres ou sting ?
La simplicité de la réponse dépend un peu de ça.

A+

[delamarque]

je pense que oui

[delamarque]

en fait je veux extraire uniquement les cellule de type string dans une colonne

[delamarque]

je vais essayer avec la fonction Isnumeric

[delamarque]

j'ai lec ode ci-dessuos qui semble fonctionner :

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
16
17
18
19
20
21
 Private Sub Worksheet_Activate()
 
Dim LastRow1 As Integer
Dim i As Integer
Dim j As Integer
Dim MyVar
 
    j = 3
 
    Workbooks("LS accéléros.xls").Worksheets("Archi méca").Select
    LastRow1 = Workbooks("LS accéléros.xls").Worksheets("Archi méca").UsedRange.Rows.Count
        For i = 10 To LastRow1
            MyVar = Workbooks("LS accéléros.xls").Worksheets("Archi méca").Cells(i, 2)
            If Workbooks("LS accéléros.xls").Worksheets("Archi méca").Cells(i, 2) <> "" And IsNumeric(MyVar) = True Then
                Workbooks("LS accéléros.xls").Worksheets("Feuille référence").Cells(j, 2) = Workbooks("LS accéléros.xls").Worksheets("Archi méca").Cells(i, 2)
                j = j + 1
            End If
        Next i
    i = i + 1
 
End Sub

[ouskel'n'or]

Merci delemarque, je viens d'apprendre une commande
"UsedRange.Rows.Count"
Me servira à rien puisque ne marche pas sur VBA97 mais qu'est-ce que je me sens plus intelligent...

A+