Discussion :

[darkspoilt]

Bonjour,
Mon probleme est simple ma méthode cells me créer une erreur une fois sur deux je ne sais pas a quoi c'est du si quelqu'un peut me le dire je le remerci d'avance
Cette fonction permet de trouver dans un tableau Excel "Total" ou "TOTAL"

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
22
23
24
25
26
27
28
29
30
Public Function Ligne(File As String) As Long
 
 
Dim AppExcel As Excel.Application
Dim wbFile As Excel.Workbook
Dim i As Long
 
    'Initialisation
    Ligne = -1
    i = 1
 
    'Ouverture d'excel
    Set AppExcel = CreateObject("Excel.Application")
    If Not AppExcel Is Nothing Then
        'Ouverture du classeur
        Set wbFile = AppExcel.Workbooks.Open(File, False, True)
        If Not wbFile Is Nothing Then
        i = 1
            Do While Cells(i, 1).Value <> "TOTAL" Or Cells(i, 1).Value <> "Total"
            i = i + 1
            Loop
            Ligne = i
            wbFile.Close
            Set wbFile = Nothing
        End If
            AppExcel.Application.Quit
            Set AppExcel = Nothing
 
End If
End Function

[Invité]

Bonjour

Et quelle erreur ce produit une fois sur deux ?

Starec

[darkspoilt]

Il me met la methode Cells de l'objet '_Global' a échoué sachant que je n'ai aps de table ou de requete s'appelant ainsi
Et l'exécution s'arrete au do while c'est une fonction que j'utilise dans un programme prinicpal

[AlainTech]

Ta méthode de recherche est risquée et il n'est pas étonnant que tu aies des erreurs.
S'il n'y a pas de concordance trouvée, la boucle tourne jusqu'au bas de la feuille et tu te retrouves avec un index de Cells qui n'existe pas.

De plus, si j'avais dû utiliser ta boucle, j'aurais écrit

Code :

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

Do While UCase(Cells(i, 1).Value) <> "TOTAL"