PROBLEME Exécution RANGE

Bonjour à tous,

J'ai un simple problème de sélection avec la fonction Range au niveau de mon code. Mais je n'en trouve pas l'erreur.

Si vous pouvez m'aider.

Merci d'avance

bonjour

est ce le probleme

 Sheets(Machine).Select
            Range("Outils[#headers]").Cells().Select 'Range("YDR014").Select

j'ai ajouté les guillemets

a vous relire

Salut le fil

Ici tu ne rentre jamais dans la condition car tu testes la colonne 5 en lieux et place de la 4

 If Cells(LigCourante, 5).Value = "Aucun défaut" Then 'Range("E4").Value = "Aucun défaut" Then

Evites les select

With Sheets("Percage")        '.Select
                .Range("G27").Value = Types
                .Range("G28").Value = Longueur
                Metrage = .Range("G29").Value
            End With

Cet objet Range est inconnu dans la zone de noms

Range("Outils[#headers]").Cells().Select 

Si tu utilises les tableaux structurés utilises les méthodes et propriétés de ces tableaux; ce qui remplacera avantageusement ce code

   Range("Outils[#headers]").Cells().Select        'Range("YDR014").Select
            'Range("Tableau28[[#Headers],[Broche 1 ]]")

            'Cells.Find(What:="Broche 1").Select
            Lig = ActiveCell.Row + 1
            COL = ActiveCell.Column
            Do While Not IsEmpty(Cells(Lig, COL).Value)
                Lig = Lig + 1
            Loop
            Cells(Lig, COL).Value = Metrage * NbRails