Discussion :

[Médéstrac]

Bonjour!

Voici mon code, qui doit me trier des données et me donner la position d'un nom dans la liste triée:

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
nom = lstConcurrent.Text
With ActiveWorkbook.Worksheets("épreuve1").Sort
        .SetRange Range("A1:B9")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With
    Worksheets("épreuve1").Select
    Cells.Find(what:=nom).Activate
    class = ActiveCell.Row
 
Mais quand je lance le débogage:
"erreur d'exécution '91':
variable objet ou variable de bloc with non défini

e"

Pourtant ma variable 'nom' a bien pour valeur "nom1", qui est présent en A1 dans ma feuille épreuve1 (avant le tri)

Quelqu'un sait où est l'erreur?

Et question facultative: à un autre endroit je supprime une feuille graphique {Charts("graphique").Delete}
Quand je lance le code il me prévient que la feuille peut contenir des données et me demande si je suis sur de vouloir la supprimer. Comment faire pour ne plus voir ce message, et supprimer sans avertissement?

Merci bien

[neupont]

Bonjour,
Pour ta question 1, essaye plutôt ça :

Code :

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

1
2
3
4
5
6
7
Set sel = Cells.Find(what:=nom)
if sel is nothing then
     'le Find n'a rien trouvé
else
     sel.select ' ligne pas indispensable, sauf si tu veux vraiment sélectionner la cellule
     class = sel.Row
end if

Pour ta 2ème question, fais comme ceci :

Code :

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

1
2
3
Application.DisplayAlerts = False
 '... ton code
Application.DisplayAlerts = True