VBA liste de données et selection

Version imprimable

Bonjour,

je souhaite mettre une liste de données avec le nom des feuilles actuelles.

Ca fonctionne à la condition d'utiliser "selection" impossible d'utiliser ma variable passée en paramètre.

Appel

Code:

1
2
3
4
5
6
    Dim Rng As Range
 
    Set Rng = Range("C2:C" & Range("C65000").End(xlUp).Row)
 
    Call CreationListeValidationNomOnglet(Rng)
    Set Rng = Nothing

Procedure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub CreationListeValidationNomOnglet(Rng As Range)
    Dim sh
    Dim Feuil As String
 
    '--- Liste des feuilles actuelles
    Feuil = ""                    'Initialise
    For Each sh In ActiveWorkbook.Sheets
        Feuil = Feuil & "," & sh.Name
    Next sh
    Feuil = Mid(Feuil, 2)         'Elimine le premier séparateur
 
    '--- Place la liste dans la liste de validation
    'Affectation sur la plage Rng
    'Debug.Print Rng.Address      >>> c'est OK
    'Rng.Select                         >> test pour provoquer une "selection"
    'DoEvents                           >> test 'temporisation"
    With Selection.Validation      '>>> Ne fonctionne pas avec Rng
        '.Delete
        .Add Type:=xlValidateList, _
             AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, _
             Formula1:=Feuil
    End With
End Sub

Pourriez-vous me dire ce qui ce va pas ?

Merci.

ESVBA

10/07/2015, 13h04
antonysansh
Bonjour ESVBA,

Chez moi ça marche très bien.

Juste deux remarques :
- Après Dim Feuil As String, Feuil vaut "" donc pas besoin de Feuil = ""
- Remplacer Set Rng = Range("C2:C" & Range("C65000").End(xlUp).Row) par Set Rng = Range("C2:C" & Range("C"&Application.Rows.Count).End(xlUp).Row) (Pour éviter d'avoir des soucis si un jour plus de 65000 données en colonne C)
Tu peux aussi tester Debug.Print Rng.Parent.Name = ActiveSheet.Name avant ta validation de donnée pour t'assurer d'être sur la feuille parent de Rng
10/07/2015, 13h52
ESVBA

Bonjour antonysansh

Merci de vos informations que j'ai appliquées.

Mais cela ne résous pas mon problème : "Erreur définie par l'application pou par l'objet".
Que se passe-t-il réellement ?

En ré ouvrant mon fichier, un message de contenu illisible apparait à chaque fois et Excel corrige ma plage de validation.
Ensuite, ma plage est définie correctement la première fois avant d'avoir une nouvelle erreur. Mon appel se fait dans l'activation de l'onglet.

Et, et...
Et je viens de trouver mon erreur, l'apostrophe. Je n'efface pas la plage de validation.

Cette fois ça fonctionne.

Sauf que non. J'ai toujours le message d'erreur à l'ouverture de mon classeur (contenu illisible).

Que puis-je faire ?

ESVBA
10/07/2015, 15h15
antonysansh

Test simplement la macro sur un nouveau fichier avec quelques feuilles histoire de voir si le problème est dans la macro ou dans le fichier
10/07/2015, 16h27
joe.levrai

Bonjour,

effectue une suppression de ta validation dans l'évènement BeforeClose de Workbook

ça devrait ôter ton erreur "contenu illisible" à l'ouverture

tiens nous au courant
10/07/2015, 19h58
ESVBA

Bonsoir,

je n'ai pas de problème sur des versions 2007.

Et je ne peux plus tester la version 2010 en production car je suis maintenant en vacances.
Ca attendra.

Un fonctionnement de base bizarre d'Access m'a incité à remonter le système complet.

Antonysansh : effectivement, c'est mon poste Excel2010/win7 qui est en cause puisque le même code fonctionne très bien sur un poste en 2007.

joe.levrai : merci du conseil. C'est celui auquel je pensais en finissant mon post. Je n'ai pas eu le temps de tester. Ca restera la solution en cas de problème; c'est drôlement lourd comme procédure s'il faut effacer ses contrôles feuilles à chaque fois

merci à vous deux.

C'est résolu que de retour... Non

ESVBA