Erreur d'execution 91 sous Excel/VBA Fermé

Question

Bonjour, 
voila j'ai un soucis lors de l'utilisation d'une commande sous vba.
lors que je clique sur le bouton celle si ne fonctionne pas. 
Mais si je l’exécute manuellement le bouton fonctionne normalement juste après.

Private Sub CommandButton1_Click()

Dim c As Object

    Set c = Sheets("histo cpl D").Range("A1").Find(Sheets("Devis").Range("R17").Value)
    
    If (c.Value = "") Then
        MsgBox ("Aucun numéro de devis séléctionner en case R17")
        Exit Sub
    End If
   
    Dim therow As Integer
       
    therow = c.Row
    
    Sheets("Devis").Range("E5").Value = Sheets("histo cpl D").Cells(therow, 1).Value
    Sheets("Devis").Range("E6").Value = Sheets("histo cpl D").Cells(therow, 2).Value
    Sheets("Devis").Range("L6").Value = Sheets("histo cpl D").Cells(therow, 3).Value

End sub

J'ai lus que cela venais du fait que ma variable c étais égale a Nothing et qu'il fallait donc testé après le find, mais je ne vois pas comment faire fonctionner cela dès le 1er appuis sur le bouton de commande. Voila si quelqu'un a une soluce Merci.


Configuration: Windows / Firefox 98.0

yg_be · Answer

bonjour,
tu ne donnes ni le message d'erreur, ni la ligne sur laquelle l'erreur se produit.

pourquoi ne testes-tu pas le contenu de R17 avant de faire le Find()?

Après le Find(), tu peux tester: if c is nothing then

Erreur d'execution 91 sous Excel/VBA

1 réponse

Discussions similaires