Discussion :

[Barba]

Bonjour du Vietnam les ami(e)s,


J'ai fait deux tris dans une base de données (feuille "BD")
J'ai sélectionné une colonne...
Que j'ai copié sur une autre feuille,
J'ai sélectionné les éléments
Que j'ai trié

(jusque là tout va bien, mais lorsque j'essaye de donner un nom à ma sélection, l'enregistreur de macro me dit de me rhabiller :p )

je suis bloqué ici :

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
31
32
33
34
35
36
37
 
Sub AUp6()
'
' AUp6 Macro
'
 
'
    Sheets("BD").Select
    ActiveSheet.Range("$B$2:$BC$875").AutoFilter Field:=9, Criteria1:="5"
    ActiveSheet.Range("$B$2:$BC$875").AutoFilter Field:=4, Criteria1:="35"
 
        Range("D:D").Select
        Selection.Copy
 
            Sheets("Mobs").Select
            Range("N:N").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
 
                Range("N3").Select
                Set tbl = ActiveCell.CurrentRegion
                tbl.Offset(0, 0).Resize(tbl.Rows.Count, tbl.Columns.Count).Select
 
                        Application.CutCopyMode = False
                        ActiveWorkbook.Worksheets("Mobs").Sort.SortFields.Clear
                        ActiveWorkbook.Worksheets("Mobs").Sort.SortFields.Add Key:=Range("N3"), _
                            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                        With ActiveWorkbook.Worksheets("Mobs").Sort
                            .SetRange Range("N3:N71")
                            .Header = xlNo
                            .MatchCase = False
                            .Orientation = xlTopToBottom
                            .SortMethod = xlPinYin
                            .Apply
                        End With
 
End Sub

Qu'en pensez vous ? Où ai je fait l'erreur sur l'enregistreur de macro car il ne m'a rien enregistré pour l'enregistrement de ma sélection

là, la sélection des noms est sélectionnée et triée par ordre alphabétique...

Comment faire faire pour lui donner un nom (dans le gestionnaire des noms).


Comment réinitialiser ce nom en début de macro (car à chaque exécution de la macro le nombre de ligne peut varier, mais si pas besoin, c'est parfait )

Par avance merci pour votre aide et bonne journée à tous

David

[Menhir]

l'enregistreur de macro me dit de me rhabiller :p )

Si tu pouvais remplacer cette brillante métaphore par le véritable message d'erreur et le numéro de la ligne de code désignée par le débugage, ça faciliterait la résolution de ton problème.

[eriiic]

Bonjour à tous,

Suis-je bien réveillé ? Aucune trace de nommage dans ton code.
Avec une variable Range nommée pl :

pl.name="ton_nom"

eric

[Barba]

il n'indique rien et n'enregistre rien .... (pour répondre à ta question )

Aucun message d'erreur, il ne m'a tout simplement rien enregistré sur le nom... de la sélection
si si ... le tableau auto, marche très bien essaye stp

je n'ai pas compris ce que tu voulais m'expliquer (excuse moi)

mais je ne peux pas faire de range, puisque la macro me sélectionne juste ce qu'il me faut , sinon suivant tel ou tel cas, j'aurais des lignes en moins, ou un nombre de lignes bcp trop élévé... ce qui ne convient pas

[MarcelG]

Bonjour,

Certes l'enregistreur de macros peut rendre service.
Cela étant, il est absolument nécessaire de le consérer avec un certain recul pour
1 - l'épurer des méthodes Select et Activate qui n'ont aucun effet si ce n'est d'alourdir le code
2 - rattacher les objets Range et Worksheets à leurs parents respectifs.

Quel message d'erreur as-tu rencontré?

Cela étant, avant d'utiliser l'enregistreur, tu peux essayer de définir un nom sur le tableur Excel.
L'erreur éventuelle serait d'abord sur Excel avant VBA.

Parallèlement, cette ligne me laisse sceptique:

Code :

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

tbl.Offset(0, 0).Resize(tbl.Rows.Count, tbl.Columns.Count).Select

[Barba]

J'ai trouvé ça et je l'ai adapté à mes valeurs qui se situent dans tbl

si un jour cela peut aider quelqu'un :

Code :

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

                                    ActiveWorkbook.Names.Add Name:="Mobs6", RefersToR1C1:=tbl

ça fonctionne parfaitement.... sans avoir 10 000 lignes en trop, juste la sélection en cours

[eriiic]

mais je ne peux pas faire de range, puisque la macro me sélectionne juste ce qu'il me faut

C'est quoi ta sélection sinon un range ?
Selection.name="toto"
Et nul besoin de faire un .Select pour nommer une plage.
tbl.name="toto"
eric

[MarcelG]

Salut

si si ... le tableau auto, marche très bien essaye stp

Je ne peux que rejoindre les posteurs précédents pour te recommander une certaine rigueur.

A titre d'exemple.
Après avoir sélectionné sur le tableur une cellule au sein d'une plage, pourrais-tu lancer l'exécution du code suivant.

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
Option Explicit
 
Public Sub essai_tbl()
 
Dim tbl As Range
 
Dim a1 As String
Dim a2 As String
 
Set tbl = ActiveCell.CurrentRegion
 
a1 = tbl.Offset(0, 0).Resize(tbl.Rows.Count, tbl.Columns.Count).Address
a2 = tbl.Address
 
MsgBox _
        Prompt:="Les 2 adresses sont-elles identiques?" & Chr(13) & "La réponse est " & (a1 = a2), _
        Buttons:=vbCritical, _
        Title:="Vérification"
 
Set tbl = Nothing
 
End Sub

Moralité.
Mieux vaut connaître ses bases pour juger de l'opportunité des méthodes et propriétés que l'on code.
En VBA, comme dans bien d'autres domaines, une règle est de mise: la rigueur, pas le bidouillage. (Je le dis gentiment).

Consulte régulièrement le Forum et la Faq. Et assimile les codes reportés.
Pour les connaissances de base, tu peux consulter cette discussion.

Je te souhaite une bonne continuation.