Discussion :

[HABILER]

J'ai constamment cette erreur qui apparaît et ne trouve pas l'origine.

Elle apparaît au niveau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not wsBaremesIndexed.Range(nomPlage) Is Nothing Then

Quelqu'un pour m'aider?

Merci d'avance

Habiler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub CopierPlagesNommees()
    Dim wsGrdVsFct As Worksheet
    Dim wsBaremesIndexed As Worksheet
    Dim plage As Range
    Dim cell As Range
    Dim nomPlage As String
 
    ' Définir les feuilles de calcul
    Set wsGrdVsFct = ThisWorkbook.Sheets("GrdVsFct")
    Set wsBaremesIndexed = ThisWorkbook.Sheets("BaremesIndexed")
 
    ' Parcourir les cellules de E5:E8 dans GrdVsFct
    For Each cell In wsGrdVsFct.Range("E5:E8")
        ' Récupérer le nom de la plage nommée
        nomPlage = Mid(cell.Value, 5) ' Enlever "Ech_" du début du nom
        ' Vérifier si la plage nommée existe dans BaremesIndexed
           If Not wsBaremesIndexed.Range(nomPlage) Is Nothing Then
            ' Copier la plage nommée dans GrdVsFct
            Set plage = wsBaremesIndexed.Range(nomPlage)
            plage.Copy
            ' Coller la plage dans la prochaine rangée vide à partir de la 10ème rangée dans GrdVsFct
            wsGrdVsFct.Cells(10, 1).End(xlDown).Offset(1).PasteSpecial xlPasteAll
        Else
            MsgBox "La plage nommée '" & nomPlage & "' n'existe pas dans BaremesIndexed.", vbExclamation
        End If
    Next cell
 
    ' Effacer le contenu du presse-papiers après avoir collé les plages nommées
    Application.CutCopyMode = False
End Sub

[deedolith]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not wsBaremesIndexed.Range(nomPlage) Is Nothing Then

Cette instruction test si la plage nommée vaut Nothing,
et non l'éxistance de la plage nommée.

Dans le cadre d'un test, le mot clef Nothing indique si un objet est instancié, mais si l'objet n'existe pas en premier lieu, on ne peut le tester.

Pour vérifier l'existence d'une plage nommée, il te faut regarder dans la collection Names du classeur ou de la feuille.
Illustration:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub ListNames()
        '// Parcours les noms du classeur
    Dim Name As Excel.Name
    For Each Name In ThisWorkbook.Names
        Debug.Print Name.Name
    Next
 
        '// parcours les noms de la 1er feuille
    For Each Name In ThisWorkbook.Worksheets(1).Names
        Debug.Print Name.Name
    Next
End Sub