Object Variable or With Block Variable not Set - Macro VBA

Question

I've got an error

Object Variable or With Block Variable not Set

at Set lineProject = c.Row when using the following code:

Private Sub CommandButton1_Click()

Dim pptFile As Object

Dim ppres As PowerPoint.Presentation

Path = "\\FSCFFACT\Activites\CFF DOMO GP ACT\Tableau de Bord\" 

Set pptFile = CreateObject("Powerpoint.application")

If ComboBox1.Value <> "" Then

        CODOMO.Hide

        Libelle = ComboBox1.Value

        lastline = Worksheets("Projets").Cells(Worksheets("Projets").Rows.Count, "B").End(xlUp).Row

        Set c = Worksheets("Projets").Range("B10:B" & lastline).Find(Libelle)

        Set lineProject = c.Row

        pptFile.Presentations.Open (Path & "Modèle CODOMO.pptx")

        Set pppres = pptFile.ActivePresentation

    Else
        ...        
    End If
End Sub

I used he same lines in another macros, to find the ligne of a project using the Libelle.

Thanks for telling what's wrong.

I get this error : Object Variable or With Block Variable not Set — N.YAICI
– N.YAICI, Commented Mar 5, 2018 at 10:25

Pᴇʜ · Accepted Answer · 2018-03-05 09:38:22Z

2

I guess this the line where you got the error

Set c = Worksheets("Projets").Range("B10:B" & lastline).Find(Libellé)

With .Find(Libellé) do you mean Libellé as string or as variable?

If …

string then use .Find("Libellé")
variable then .Find(Libelle) would be correct.
Because your variable name is Libelle = ComboBox1.Value

Make sure you use Option Explicit to avoid wrong typed variable names. And declare all your variables before use:

Dim Libelle As String
Libelle = ComboBox1.Value

answered Mar 5, 2018 at 9:38

Pᴇʜ

57.9k10 gold badges55 silver badges75 bronze badges

Sign up to request clarification or add additional context in comments.

12 Comments

N.YAICI Over a year ago

The error comes in this line : Set ligneProjet = c.Row

Pᴇʜ Over a year ago

The error occurs because nothing was found (one line before). Did you read my answer above? This should solve your issue. Use Option Explicit to avoid such errors in the future.

Pᴇʜ Over a year ago

In your comment there is again an accent :) If you are not very precisely we are not able to fix your issues. Try and catch if the value was found or not with If c Is Nothing Then MsgBox "'" & Libelle & "' was not found. Aborting now …": Exit Sub right one line after Set c = …

Pᴇʜ Over a year ago

That means that you searched for Project name but it was not found in the range.

N.YAICI Over a year ago

Yes but now i'm searching with MatchCase option on Find function. Thank you again

|

Collectives™ on Stack Overflow

Object Variable or With Block Variable not Set - Macro VBA

1 Answer 1

12 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

12 Comments

Your Answer

Sign up or log in

Post as a guest

Related