Discussion :

[Jusomi31]

Bonjour,

Je souhaite faire une sélection automatique de plusieurs lignes et colonnes de données, et nommer cette sélection en "Essai2", comme on peut le faire à la main avec la Zone Nom de Excel. Il y a un bug à la ligne rouge : "objet requis". Je ne vois pas du tout ce qui ne va pas...

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
Sub Selection()
    Set wsProject = ActiveWorkbook.Sheets.Item("feuille3")
    For i = 1 To 50
        For j = 3 To 20
        While wsProject.Cells(3, i) <> ""
            Trim(wsProject.Cells(3, j).Value) = "CR ID"
            While Cells(i, crid_col).Value <> ""
                Cells(i, j).Select = sclt
                ActiveWorkbook.Names.Add Name:="Essai2", RefersToR1C1:= _
                "='Feuille3'!sclt"
            Wend
        Wend
        Next
    Next
 End Sub

Merci de vos réponses !

[Daranc]

salut

as tu essayé de supprimer la référence à la feuille juste un activesheets.select ?
Daranc

[Daranc]

Haaarrrggggghh!!!!
Tu as laissé tes noms de feuilles d'origine?
regardes si ce n'est pas ActiveWorkbook.Sheets.Item("Feuill3")
et as tu essayer de mettre:

Code :

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

Dim wsProject As Object

Daranc

[Jusomi31]

Je n'ai pas compris ton premier message.
Pour le deuxième, j'ai bien renommer les feuilles donc c'est pas ça et j'ai ajouté la ligne de code que tu m'as donné et ça ne fait rien de plus, rien de moins.
En fait j'ai modifié mon programme :

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
Sub Selection()
 
    Dim wsProject As Object
    Set wsProject = ActiveWorkbook.Sheets.Item("PMTQ_TLS|PA_ChM")
MsgBox (1)
    For i = 1 To 50
MsgBox (2)
        For j = 3 To 50
MsgBox (3)
        While wsProject.Cells(3, i) <> ""
MsgBox (4)
           If Trim(wsProject.Cells(3, i).Value) = "CR ID" Then
MsgBox (5)
            While Cells(j, crid_col).Value <> ""
MsgBox (6)
                Range(j, i).Select = sclt
MsgBox (7)
                ActiveWorkbook.Names.Add Name:="Essai2", RefersToR1C1:= _
                "='PMTQ_TLS|PA_ChM'!sclt"
MsgBox (8)
            Wend
MsgBox (9)
           End If
 
        Wend
        Next
    Next
 
End Sub

Et quand je l'exécute, il s'arrête au msgbox(4), qu'il m'affiche à l'infini.
Je suis obligée de fermer le programme à chaque fois...

[Daranc]

Mouuaaiisss
essayes de mettre un if a la place du while puisque tu pointes 1 cellule ou ta boucle while - wend devrait être à l'exterieur tes boucles for to next
tu peut essayer de vider les trois premiere cellule de la colonne trois pour voir si ta macro affiche d'autre MSG
Daranc

[Jusomi31]

En fait ce que je voudrais faire c'est : sélectionner, dans ma feuille, les données de la ligne 3 jusqu'à la dernière ligne, puis nommer cette sélection. Et ensuite si c'est possible affiner la sélection en faisant la même chose (ligne 3 à la dernière) à partir d'une certaine colonne qui a pour valeur "CR ID" à la ligne 3.

J'espère que ça vous aideras à mieux comprendre ce qui ne va pas dans mon programme...

Merci de votre aide !!!

[Daranc]

Alors essaies ceci

Code :

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

1
2
3
4
lg=range("c65536").end(xlup)+1
With ActiveWorkbook.Names                           
        .Add Name:="lEssais2", RefersTo:="=Feuil1!$c$1:$c$" & lg
 end With

Daranc
ps ta selection avec la colonne qui a valeur CR ID elle doit se faire comment en clair
tu as des données en ligne 3 jusqu'à mettons 100 ou se trouve la colonne CR ID et quelle selection doit etre faite en final?
daranc