[VBA] Objet requis ???

Fermé

Lionel4994 Messages postés 1 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 16 juillet 2014 - 16 juil. 2014 à 12:09
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 16 juil. 2014 à 13:48

Bonjour,
Je reviens de nouveau vers vous pour une erreur dans mon programme. Celui-ci me donne l'erreur "Objet requis" et je n'arrive pas a comprendre pourquoi.
Le programme est censé analyser certaines cellules sur différentes feuilles d'un classeur (ce serait super si il n'avait pas besoin de l'ouvrir)
Malheuresement, dès la ligne entre tirets, il me met cette erreur et je n'arrive pas à comprendre pourquoi, pourtant la cellule est belle et bien remplie
Si quelqu'un pouvait m'aider ou me conseiller sur la démarche à suivre

Private Function IsConditionsVerifier(oWorkbook As Workbook) As Boolean
Dim Sheet As Object

Dim IsConditionsVerifier1 As Boolean
Dim IsConditionsVerifier2 As Boolean
Dim Work As Workbooks

IsConditionsVerifier1 = False
IsConditionsVerifier2 = False


        
    
For Each Sheet In oWorkbook.Worksheets
            'If (Sheet.Cells(16, 3).Value2 = "DNM") Then
If Sheet.Name = "Inspection basic Info." Then
    
 ----  If (ThisWorkbook.Sheets("Inspection basic Info.").Cells(6, 8).Value.NumberFormat = "dd/mm/yy") Then ---
                IsConditionsVerifier1 = True
    End If
    
End If

If Sheet.Name = "summary" Then
                
        If (ThisWorkbook.Sheets("Data").Cells(16, 3) = "Meet" Or ThisWorkbook.Sheets("Data").Cells(16, 3) = "AOD") Then
                        
                IsConditionsVerifier2 = True
                        
        End If
                
End If

            'End If
               
Next

If IsConditionsVerifier1 = True And IsConditionsVerifier2 = True Then

    IsConditionsVerifier = True
End If

End Function

A voir également:

[VBA] Objet requis ???
Vente objet occasion entre particulier - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
16 juil. 2014 à 13:48

Bonjour Lionel,

J'aurais écris ceci :

Private Function IsConditionsVerifier(oWorkbook As Workbook) As Boolean
Dim cel As Range

On Error Resume Next
'Vérifier le format de la cellule H6 la feuille "Inspection basic Info."
Set cel = oWorkbook.Worksheets("Inspection basic Info.").Cells(6, "H")
If Not cel Is Nothing Then
  IsConditionsVerifier = cel.NumberFormat = "dd/mm/yy"
End If
'Vérifier le contenu de la cellule C16 la feuille "Data"
Set cel = oWorkbook.Worksheets("Data").Cells(16, "C")
If Not cel Is Nothing Then
  IsConditionsVerifier = IsConditionsVerifier And _
                         (cel.Value = "Meet" Or cel.Value = "AOD")
Else
  IsConditionsVerifier = False
End If
'Vérifier l'existence de la feuille "summary"
Set cel = oWorkbook.Worksheets("summary").Cells(1, 1)
If cel Is Nothing Then IsConditionsVerifier = False
On Error GoTo 0

End Function

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Problème d'app Gmail : "Identifiants requis"

VBA : Range avec références variables..

VBA excel: Erreur 424, objet requis

VBA erreur 1004

Discussions similaires

Newsletters