Sujet Précédent Sujet Suivant

Variables à déclarer lors de la création d'une listbox avec VBA

Résolu/Fermé
Philippe - 15 mai 2013 à 08:54
 Philippe - 15 mai 2013 à 09:25
Bonjour,
Je travaille sur Excel 2007. Je souhaite faire apparaître une listbox dans une cellule de ma feuille "calculator" en fonction d'autres paramètres (j'ai isolé ce code et travaille dessus indépendamment du reste du programme pour essayer de comprendre le problème).J'ai l'erreur 1004 qui apparaît lorsque j'effectue le code suivant : 


Sub essai()
Dim Formula1 As Range
Dim i, j As Byte
i = 3
j = 2
Worksheets("calculator").Activate
  Cells(i, j).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="strategy!B2:B13"
        .IgnoreBlank = True
        .IncellDropdown = True
        .InputTitle = "Selection"
        .ErrorTitle = ""
        .InputMessage = "Choose a step"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub


Vu que je n'ai quasiment pas déclaré de variables, je pense que le problème vient de là. Pouvez-vous me dire quelles sont les variables à déclarer, et à quel "niveau" de variable?

Question bonus: Y-a-t-il une solution plus simple pour insérer une listbox dans une cellule?

Merci beaucoup

Philippe
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
15 mai 2013 à 09:07
Bonjour,

Pas d'erreur mais: petite correction -->xlBetween, Formula1:="='strategy'!B2:B13"

Question bonus: Y-a-t-il une solution plus simple si vous voulez du vba, non.
0
Réponse 2 / 2
Philippe
15 mai 2013 à 09:14
Merci beaucoup pour la rapidité,
Je crois que mon problème est résolu
0
Philippe
15 mai 2013 à 09:25
Petite précision pour que ça marche pour moi: ne pas déclarer "Selection"
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

Bonjour à tous,
je n'arrive pas à trouver sur le forum une manière d'utiliser la fonction Range avec des variables pour les lignes et les colonnes. Je m'explique :

J'ai Range("40:A500" dans mon code, et je voudrai remplacer A40 et A500 par des variables que j'ai définies précédemment.
Imaginons que mes variables définies avant soient ColL et LigneL, je voudrai remplacer Range(A40:A500) par quelquechose comme :

Range(ColL & LigneL ":" ColL & 500) j'ai beau essayer dans tous les sens et de manières différentes je n'y arrive pas !

Merci d'avance pour votre aide !!

Antoine




7 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses