VBA variable objet ou variabe de bloc With non définie

Fermé

Miss_tik76 Messages postés 26 Date d'inscription dimanche 3 août 2008 Statut Membre Dernière intervention 23 janvier 2014 - 5 oct. 2012 à 14:57
Utilisateur anonyme - 9 oct. 2012 à 19:49

Bonjour,

Voici mon code :

Private Sub ok_click()

    Sheets("Donnees").Select

    Dim DerligC, Iter, LigC As Integer
    Dim Col_C As Range
    Dim Nb_Tr As Long

    Application.ScreenUpdating = False

    With Worksheets("Donnees")
'Recherche derniere ligne colonne C
        DerligC = .Columns("C").Find(commande.Value, , , , , xlPrevious).Row
        Set Col_C = .Range("C2:C" & DerligC)
        
'Pour diminuer le temps de recherche
        Nb_Tr = Application.CountIf(Col_C, commande.Value)
        If Nb_Tr > 0 Then
            LigC = 1

            For Iter = 1 To DerligC Step 1
            
'Recherche de la ligne à supprimer (xlWhole recherche une valeur exacte)
                LigC = .Columns("C").Find(commande.Value, .Cells(LigC, "C"), , xlWhole).Row
                If Cells(LigC, "H").Value = produit.Value And Cells(LigC, "E").Value = delai.Value Then
                    Rows(LigC).Select
                    Selection.Delete Shift:=xlUp
                Else
                    Unload Me
                End If
            Next Iter
        End If
    End With
    
    Application.ScreenUpdating = True
  
    Unload Me

End Sub

Je ne comprends pas pourquoi à la dernière ittération le programme bug et affiche le message suivant : "variable objet ou variabe de bloc With non définie"

Merci par avance pour votre aide !

A voir également:

Variable objet ou variable de bloc with non définie
Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
Variable objet ou variable de bloc with non définie - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA
Vente objet occasion entre particulier - Guide
Erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

Miss_tik76 Messages postés 26 Date d'inscription dimanche 3 août 2008 Statut Membre Dernière intervention 23 janvier 2014 1
5 oct. 2012 à 15:53

Voici mon code suite à vos explications, mais j'ai toujours la même erreur arrivé à la dernière ittération :

Private Sub ok_click()

    Sheets("Donnees").Select

    Dim DerligC, Iter As Integer
    Dim LigC As Long
    Dim Col_C As Range
    Dim Nb_Tr As Long

    Application.ScreenUpdating = False

    With ActiveSheet

'Recherche derniere ligne colonne K
        DerligC = .Columns("C").Find(commande.Value, , , , , xlPrevious).Row
        Set Col_C = .Range("C2:C" & DerligC)
        
'Pour diminuer le temps de recherche
        Nb_Tr = Application.CountIf(Col_C, commande.Value)
        If Nb_Tr > 0 Then
            LigC = 1

            For Iter = DerligC To 1 Step -1
            
'Recherche de la position pour copier la ligne (xlWhole recherche une valeur exacte)
                LigC = .Columns("C").Find(commande.Value, .Cells(LigC, "C"), , xlWhole).Row
                If .Cells(LigC, "H").Value = produit.Value And .Cells(LigC, "E").Value = delai.Value Then
                    Rows(LigC).Select
                    Selection.Delete Shift:=xlUp
                Else
                    Unload Me
                End If
            Next Iter
        End If
    End With
    
    Application.ScreenUpdating = True
  
    Unload Me

End Sub

Réponse 3 / 5

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 oct. 2012 à 10:27

Bonjour tous,
Quand plus de résultat sur la fonction Find -> renvoi erreur 91
Essaye en intercalant ces lignes..

'Recherche de la position pour copier la ligne (xlWhole recherche une valeur exacte)
                On Error Resume Next
                LigC = .Columns("C").Find(commande.Value, .Cells(LigC, "C"), , xlWhole).Row
                'C'est qu'il n'y a plus de concordance
                If Err <> 0 Then Unload Me
                If .Cells(LigC, "H").Value = produit.Value And .Cells(LigC, "E").Value = delai.Value Then
                    Rows(LigC).Select
                    Selection.Delete Shift:=xlUp
                Else
                    Unload Me
                End If

A+

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 7/10/2012 à 11:13

Bonjour Lermite,

Mystik n'a pas compris une des réponses que je lui avais proposé (patchwork de plusieurs macros récupérées) de recherche avec la fonction Find sans avoir à actionner le gestionnaire d'erreur ni connaitre la dernière ligne du tableau ni boucler sur toutes les lignes...
d'où mon indication de doublon...

Cordialement :o)

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 oct. 2012 à 11:21

Bonjour Michel,
Effectivement, mais je n'avais pas vu ton exemple sur l'autre topic.
Cordialement.

Réponse 5 / 5

Utilisateur anonyme
7 oct. 2012 à 01:03

Bonjour,

:-(

disons pour le plaisirs :-)

.Cells(LigC, "C") ne peut fonctionner

.Cells(Ligne As Long, Colonne As Long)

LigC est bien de type Long, mais "C" est de type string

.Cells( LigC,Columns("C").Column ) devrait fonctionner.

de même que :

.Cells(LigC, "H").Value

devrait s'écrire :

.Cells(LigC, Columns("H").Column).Value

Cdt

Lupin

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 7/10/2012 à 09:21

.Cells(LigC, "C") ne peut fonctionner

.Cells(Ligne As Long, Colonne As Long)

LigC est bien de type Long, mais "C" est de type string

ARCHI-FAUX: FAIRE UN ESSAI AVANT DE DIRE DES BETISES !

Pour le plaisir

Utilisateur anonyme
9 oct. 2012 à 19:49

re:

Tout à fait, c'est mon erreur :-(

Lupin

Discussions similaires

variable objet ou variable de bloc with non définie

VBA : Erreur d'exécution '91' : Variable objet ou variable de bloc With non déf

Variable objet ou variable de bloc With non définie: Erreur d'éxécution 91

bug indesign, impossible de déplacer les bloc

Erreur d'execution 91 sous Excel/VBA

VB et erreur 91. Variable Objet...non definie

Discussions similaires

Newsletters