Sujet Précédent Sujet Suivant

[VBA Listbox pb avec "value"]

Fermé
stephanie_33 - 29 août 2007 à 14:18
 Utilisateur anonyme - 29 août 2007 à 16:05
Bonjour à tous, je suis nouvelle sur ce forum, et là j'ai extrêmement besoin de votre aide !!
J'ai créé une userform dans laquelle se trouve une listbox. Selon le nom du classeur qui contient la macro, je mets une certaine valeur dans ma listbox, au moyen de "additem".
le pb est que lorsque je souhaite acceder a la valeur de la listbox, celle-ci est vide........ je ne sais pas quoi faire....
je vous mets mon code si cela peut vous aider :

If (ThisWorkbook.Name = "02_2007.xls") Then
i = 2
Saisie_mois.Nummois.AddItem (i)
Saisie_mois.Nummois.Value = "2"
End If

j'ai aussi testé avec Saisie_mois.Nummois.Value = i et Saisie_mois.Nummois.Value = 2, mais ca ne donne rien (quand je fais MsgBox Saisie_mois.Nummois.Value, ca ne m'affiche rien...)

ce code doit absolument marcher pour demain, d'ou mon appel a l'aide aujourd hui !!

merci beaucoup de regarder ca, meme si ce n est que pour 5minutes.

a bientot j espere,
Steph

7 réponses

Réponse 1 / 7
Utilisateur anonyme
29 août 2007 à 16:05
re : 

Private Sub cmd_Execute_Click()
    
   Saisie_mois.Nummois.AddItem "2"
   MsgBox (Saisie_mois.Nummois.List(Saisie_mois.Nummois.ListCount - 1)) ' Le dernier ajouté !

End Sub
'

Lupin
1
Réponse 2 / 7
stephanie_33
29 août 2007 à 14:31
s'il vous plait aidez-moi !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

je croyais que ce forum etait fait pour que les gens s aident entre eux :'( je suis désespérée, je ne sais pas quoi faire j'ai besoin de votre aide !!
0
Réponse 3 / 7
stephanie_33
29 août 2007 à 14:33
aidez-moi je vous en suppliiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiie
0
Réponse 4 / 7
stephanie_33
29 août 2007 à 14:40
aidez- moiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii j'ai besoin de vous !!!!!! svp c'est URGENT !!!!!!!!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Utilisateur anonyme
29 août 2007 à 15:12
Bonjour,

exemple d'utilisation : 

Private Sub cmd_Execute_Click()
    
    Dim Nombre As Long, Boucle As Long, i As Integer
    
    Saisie_mois.Nummois.Clear
    
    If (ThisWorkbook.Name = "Ex_ListBox.xls") Then
        i = 2
        Saisie_mois.Nummois.AddItem (i)
        Saisie_mois.Nummois.AddItem (i + 1)
        Saisie_mois.Nummois.AddItem (i + 2)
    End If
    Nombre = Saisie_mois.Nummois.ListCount
    
    MsgBox Saisie_mois.Nummois.List(Saisie_mois.Nummois.ListCount - 1)
    
    For Boucle = 0 To Nombre - 1
        MsgBox (Saisie_mois.Nummois.List(Saisie_mois.Nummois.ListCount - Boucle - 1))
    Next Boucle
    
End Sub
'

Lupin
0
Réponse 6 / 7
stephanie_33
29 août 2007 à 15:26
merci de ta reponse, mais je ne vois pas comment rentrer la valeur "2" dans la liste box, pour pouvoir m'en servir après par la suite ........

tu crois que tu saurais comment faire ?
0
Réponse 7 / 7
stephanie_33
29 août 2007 à 15:51
help !
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
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 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
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
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse