Run time-error '424': object required

Fermé
adam Guerre-genton - 6 juin 2014 à 11:10
sipherion Messages postés 1809 Date d'inscription lundi 22 octobre 2007 Statut Membre Dernière intervention 19 décembre 2016 - 6 juin 2014 à 14:09
Bonjour
Je bloque actuellement car mon code n'arrive pas a detecter ce qu'il y a dans mes cellules je cherche ici a suprimer les lignes dont la case ne contient pas de "V"
voici mon code:

Sub Classify():
Dim i As Integer
Dim a As String
For i = 4 To 100
a = worksheet1.Cells(i, 11).Value
If InStr([1], [V], a) = 0 Then
Rows("i:11").Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

mon code me renvoit l'erreur 424, j'en ai deduis que lorsque j'essaye de lui donner la chaine de caractere dans a il ne l'a prend pas et je sais pas pourquoi vous pouvez m'aider ?

Merci d'avance
Adam
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
6 juin 2014 à 13:57
Bonjour, 

Sub Classify()
    Dim i As Integer
    
    Application.ScreenUpdating = False
    For i = 40 To 4 Step -1
        If InStr(1, Worksheets("feuil1").Cells(i, 1).Value, "V") = 0 Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
'ou 

Sub Classify_1()
    Dim i As Integer
    
    Application.ScreenUpdating = False
    For i = 40 To 4 Step -1
        If Not (Worksheets("feuil1").Cells(i, 1).Value Like "*" & "V" & "*") Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
0
Réponse 2 / 2
sipherion Messages postés 1809 Date d'inscription lundi 22 octobre 2007 Statut Membre Dernière intervention 19 décembre 2016 285
6 juin 2014 à 14:09
Bonjour, 


Sub Classify()

Dim i As Integer
Dim a As String
Dim b As Integer

For i = 4 To 100
    a = Sheets(1).Cells(i, 11).Value
    If a = "" Then Exit For
    b = InStr(a, "V")
    If b = 0 Then
        Rows(i).Select
        Selection.Delete Shift:=xlUp
        i = i - 1
    End If
Next i

End Sub
0

Discussions similaires

desinstaller Vulkan run time libraries
csuccar -
Utilisateur anonyme -

Hello,
j'ai une liste de programmes que j'aimerais désinstaller, mais je ne veux pas que ça affecte mon PC, voici la liste: I.R.I.S. OCR Microsoft visual C++ 2005 Redistributable Microsoft visual C++ 2008 Redistributable Microsoft visual C++ 2012 Redistributable Microsoft visual C++ 2013 Redistributable Microsoft visual C++ 2015 Redistributable Vulkan Run Time Librarie WildTangent Games


2. a quoi sa sert Vulkan Run Time Librarie et WildTangent Games?

4 réponses
Iptv smarters pro Network error occured! Please try again
Franck -
bazfile -

Bonjour,

J’ai ce message sur ma tv qled samsung lorsque je lance iptv smarters pro avec mon code utilisateur qui fonctionnait avant mais j’ai fait l’erreur de faire déconnexion et depuis je ne peux relancer mon compte.

4 réponses
Ordi lenovo fan error
citadin6 -
citadin6 -

Bonjour a tous,
J'ai un gros probleme et j'aimerai qu'on le resolu plus vite.
J'ai mon ordi lenovo thinkpad,processeur intel.
Depuis quelques jours,mon ordi fonctionnait habituellement mais un jour.
Quand j'ai commence a allumer,l'écran affichait fan error et s'arrete.
Je n'avais pas compris et je me demandais si mon ordinateur était casse a l'interieur
Pourtant,il n'as pas eu d'incidents à par la poussière.
J'ai traduit fan error,ce qui est erreur de ventilation

Le ventilateur ne fonctionne pas.

Merci d'avoir une reponse d'avance.

--
Reussir ne tient qu'un chemin.

4 réponses
Press F1 to continue, del to enter setup
c'lyne -
boutentrain -

Bonjour,


Voilà au démarrage du pc de mes parents il y a ce message qui s'affiche
"press F1 to continue, del to enter setup"

J'ai essayé de trouvé les solutions sur le net et voir les réponses à cette même question mais je suis un peu perdue au final.

Juste au dessus il y a marqué "system is running in fail-State. Please recherck - BIOS CMOS SETUP "

D'après ce que j'ai pu lire il faudrait que je modifie la configuration du BIOS ? Et ce serait peut être un problème de reconnaissance du lecteur de disquette ?
Ma question est donc de savoir ou je dois aller vraiment ? Dois-je désactiver qqch ? Comment faire ?

8 réponses