Probleme objet

Bonjour,

J'ai dû faire une erreur grossière sur ce bout de code mais depuis tout à l'heure je n'arrive pas à le voir:

deb = Rows(Sheets("Matrice BL").Cells.Find("Désignation"))
lignebl = Application.WorksheetFunction.CountA(Columns(2))

Set Rng = Range(deb.Offset(1, 0) & ":" & deb.Offset(lignebl, 0))

Erreur objet requis

Pouvez vous m'aider svp, merci d'avance

Bonsoir

pas sûr d'avoir compris ce que tu cherches à faire, mais voila ce que j'ai compris, sélection des cellules sous "désignation", nombre de cellules déterminé par le nombre de cellules non-vides en colonne 2

Set deb = Sheets("Matrice BL").Cells.Find("Désignation")
lignebl = Application.WorksheetFunction.CountA(Columns(2))

Set Rng = Range(deb.Offset(1, 0), deb.Offset(lignebl, 0))

Super merci beaucoup.

Rechercher des sujets similaires à "probleme objet"