fonctions isnumeric, istext

Version imprimable

J'explique tout ce que je dois faire dans cette macro, et ai tenté de traduire avec le peu de connaissances de Vba que j'ai. Alors corrigez moi si je me trompe ! d'autant plus que je ne sais pas pourquoi mais quand j'essaie de la faire fonctionner, à chaque fois "un tableau est attendu" pour les fonctions isnumeric et istext... je ne sais malheureusement pas quoi faire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Tantque()
 
Dim I, K As Integer
I = 0
 
 
While Not IsEmpty(Range("A1").Select)
    If WorksheetFunction.Isnumeric(Cells(K, 1)) Then 'si la cellule contient des chiffres
        Cells(I, 2) = Cells(I, 1)                    'alors la cellule B2 contient la valeur de la cellule A1
        Cells(I, 1).ClearContents                    'et on efface la valeur de la cellule A1
        K = K + 1                                    'ainsi de suite jusqu'à la dernière case contenant des chiffres
    End If
    If Cells(K, 1).Value = "Total" Then              'si la cellule contient le mot "total"
        Row("I:I").ClearContents                     'alors on supprime la ligne correspondante
        K = K + 1                                    'ainsi de suite jusqu'à la dernière valeur de la colonne
    End If
    If WorksheetFunction.IsText(Cells(K, 1)) Then    'si la cellule contient du texte
        Cells(I + 1, 1) = Cells(I, 1)                'alors la cellule A2 contient la valeur de la cellule A1
        Cells(1, 1).ClearContents                    'on efface la valeur de la cellule A1
        K = K + 1                                    'ainsi de suite jusqu'à la dernière    valeur qui contient du texte
 
End If
Wend
 
 
 
End Sub

06/07/2011, 17h59
ProgElecT

Salut

Code:

Dim I As Integer, K As Integer

il faut typer chaque variable, sinon celle qui ne l'est pas prend par défaut le type Variant (ce qui peut être couteux en mémoire).

Je pense que c'est la variable Cells qui te provoque cette erreur, de plus on ne voie pas sa déclaration.
Elle semble être déclarée comme variable ordinaire, sa déclaration devrait ressemblée à

Code:

Dim Cells() as String

Il faut aussi quelle soit dimensionnée

Code:

ReDim Cells(X,Y)

ou X et Y sont des chiffres étant entendu que tu connaisses sont dimensionnement à l'avance.

Dernière chose, il sera peut être necessaire de la dimensionnée au fur et à mesure avec

Code:

ReDim Preserve Cells(I,K)

comment lire la valeur d'une cellule

Bonjour à tous, dans cette macro dans laquelle je décris tout ce que je voudrais faire, quelques problèmes se posent. En effet, arrivé à If Range(K, 1).Value = "Total", la macro bloque. Bien que je sois allée voir le tutoriel correspondant à comment lire la valeur d'une cellule, je ne comprends pas comment on fait et je bloque toujours.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButton3_Click()
    Tantque
End Sub
 
Sub Tantque()
 
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim cells() As String
Dim rows() As String
 
 
ReDim cells(2, 1)
 
 
While Not IsEmpty(Range("A1").Select)
    If IsNumeric(cells(K, 1)) Then                   'si la cellule contient des chiffres
        cells(I, 2) = cells(I, 1)                    'alors la cellule B2 contient la valeur de la cellule A1
        K = K + 1                                    'ainsi de suite jusqu'à la dernière case contenant des chiffres
        ReDim Preserve cells(K, 1)
    End If
    If Range(K, 1).Value = "Total" Then             'si la cellule contient le mot "total"
        rows("I:I").ClearContents                     'alors on supprime la ligne correspondante
        K = K + 1                                    'ainsi de suite jusqu'à la dernière valeur de la colonne
        ReDim Preserve cells(K, 1)
    End If
    If IsText(cells(K, 1)) Then                      'si la cellule contient du texte
        cells(I + 1, 1) = cells(I, 1)                'alors la cellule A2 contient la valeur de la cellule A1
        Range(1, 1).ClearContents                    'on efface la valeur de la cellule A1
        K = K + 1                                    'ainsi de suite jusqu'à la dernière valeur qui contient du texte
        ReDim Preserve cells(K, 1)
    End If
Wend
 
 
 
End Sub

18/07/2011, 10h24
Daranc

salut
essayes avec

Code:

cells(i,2).value=cells(i,1).value
18/07/2011, 13h07
neupont

Bonjour,
quelques remarques vite fait en passant :

Tu déclares K comme integer, puis tu l'utilises dans un Cells(k,1) alors qu'après sa déclaration k vaut 0 !
ça veut dire que tu lui demandes une cellule de la ligne 0, qui n'existe pas. Il faudrait initialiser K à 1 avant.
Ensuite la fonction IsText n'existe pas, parce que par définition n'importe quoi peut être transformé en texte. N'existent, si je me souviens bien, que IsNumeric et IsDate.

Désolé de ne pas creuser plus et bon courage ;)

Bonjour solipop,

Je te donne un exemple de code qui effectue la lecture des cellules renseignées dans la colonne A.
Si la valeur de la cellule est un nombre, il décale cette cellule de 1 colonne.
Si la valeur de la cellule est « Total », il supprime la ligne.
Si la valeur de la cellule est un texte (autre que « Total »), il décale cette cellule de 1 ligne.
J’espère que cela pourra t’aider.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Tantque()
Dim Ligne As Long
Dim DerLig As Long
Dim CelluleTestée As Range
    With Worksheets("Feuil1")
        DerLig = .Range("A" & .rows.Count).End(xlUp).Row 'Dernière ligne renseignée dans la colonne A
        For Ligne = DerLig To 1 Step -1 'Pour chaque cellule de la colonne A
            Set CelluleTestée = .Range("A" & Ligne)
            If Application.WorksheetFunction.IsNumber(CelluleTestée) Then 'si la cellule contient un nombre
                CelluleTestée.Cut Destination:=CelluleTestée.Offset(0, 1) 'alors cette cellule est déplacée de 1 colonne
            ElseIf CelluleTestée.Value = "Total" Then 'sinon, si la cellule contient le mot "Total"
                CelluleTestée.EntireRow.Delete Shift:=xlUp 'on supprime la ligne correspondante
            ElseIf Application.WorksheetFunction.IsText(CelluleTestée) Then 'sinon, si la cellule contient du texte
                CelluleTestée.Cut Destination:=CelluleTestée.Offset(1, 0) 'alors la cellule est déplacée de 1 ligne
                CelluleTestée.Offset(-1, 0).EntireRow.Delete Shift:=xlUp 'on supprime la ligne correspondante
            End If
        Next
    End With
End Sub

Cordialement.