Erreur d'exécution '91' recherche cellule pour supprimer une ligne

[FiF]

Bonjour à tous.

C'est la première fois que je poste une discussion sur votre forum.
J'ai une difficulté pour la création d'une macro sous excel.
Je vais essayer d'etre clair et précis dans mon explication.😉

Voila j'aimerais à l'aide d'une saisie d'une plaque d'immatriculation sur la feuille 3 de mon fichier excel retrouver la plaque d'immatriculation en question sur ma feuille 1.
Selectionner la ligne contenant la plaque d'immatriculation recherchée.
Copier cette ligne dans la feuille 2 de mon fichier excel intitulé sortie
Supprimer la ligne dans le premier fichier.

J'ai effectué un enregistrement d'une macro reprennant toutes les étapes et j'ai une erreur d'execution qui s'affiche numéro 91.

Je pense que c'est la recher de la plaque d'immatriculation qui pose problème mais je n'arrive pas à le résoudre.

 

[VDAVID]

Re : Erreur d'exécution '91' recherche cellule pour supprimer une ligne

Bonjour FiF,

Tu peux essayer en remplaçant la totalité de ton code par:

Sub Suppression()
'
' Suppression Macro
'
        If Range("B4").Value = "" Then
        MsgBox ("Rentrez une immatriculation!")
        Exit Sub
        End If
'
        With Sheets("BASE PARC ROULANT")
        Set c = .Cells.Find(Range("B4").Value, , xlValues, xlWhole)
        
            If Not c Is Nothing Then
            Absc = .Cells.Find(Range("B4").Value, , xlValues, xlWhole).Row
            .Rows(Absc).Copy
            Else
            MsgBox ("Aucune immatriculation ne correspond")
            Exit Sub
            End If
            
        End With
        
        With Sheets("SORTIE")
        Range("A" & Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        End With
    
        With Sheets("BASE PARC ROULANT")
        .Rows(Absc).Delete
        End With
    
End Sub

J'ai testé chez moi ça marche
Bonne journée !

 

[FiF]

Re : Erreur d'exécution '91' recherche cellule pour supprimer une ligne

Bonjour VDAVID,
Merci. Je viens d'essayer avec cette macro et niquel je n'est plus le message d'erreur.Je suis un novice en VBA et je galèrais bien sur cette macro.
Parcontre lorsque je clique sur le bonton Suppression la ligne ce copie sur la feuille 3 et pas dans l'onglet SORTIE.
Même avec
With Sheets("SORTIE")
Range("A" & Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
Bonne journée et encore merci

 

[VDAVID]

Re : Erreur d'exécution '91' recherche cellule pour supprimer une ligne

Re FiF,

Le plus simple c'est que tu ajoute un module dans ton projet VBA Alt + F11 ==> Clique droit sur Microsoft excel objects => Insertion ==> Module

Puis que tu copies ce code dans le module :

Sub Mamacro()
'
' Suppression Macro
'
        If Range("B4").Value = "" Then
        MsgBox ("Rentrez une immatriculation!")
        Exit Sub
        End If
'
        With Sheets("BASE PARC ROULANT")
        Set c = .Cells.Find(Range("B4").Value, , xlValues, xlWhole)
        
            If Not c Is Nothing Then
            Absc = .Cells.Find(Range("B4").Value, , xlValues, xlWhole).Row
            .Rows(Absc).Copy
            Else
            MsgBox ("Aucune immatriculation ne correspond")
            Exit Sub
            End If
            
        End With
        
        With Sheets("SORTIE")
        Range("A" & Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        End With
    
        With Sheets("BASE PARC ROULANT")
        .Rows(Absc).Delete
        End With
    
End Sub

Ensuite, dans le code de ton bouton tu rajoutes:

Call Mamacro

Tout devrait se dérouler normalement.
N'hésites pas si il y a autre chose !
Bonne journée