A voir également:
- Pb VBA indice/sélection
- Indice téléphonique - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Inverser selection excel - Forum Excel
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum Programmation
4 réponses
tu peux toujours essayer.
Sheets("BaseDonnée").Range("A2").Select
ActiveCell.FormulaR1C1 = Fournisseur
Normallement ça marche mieux.
le problème, c'est l'affichage de la feuille BaseDonnée qu'il faudrait éviter.je vais me pencher sur le problême.
(Qui suis-je?).
Sheets("BaseDonnée").Range("A2").Select
ActiveCell.FormulaR1C1 = Fournisseur
Normallement ça marche mieux.
le problème, c'est l'affichage de la feuille BaseDonnée qu'il faudrait éviter.je vais me pencher sur le problême.
(Qui suis-je?).
maily
Messages postés
7556
Date d'inscription
lundi 26 juin 2000
Statut
Contributeur
Dernière intervention
23 juin 2023
453
28 juil. 2003 à 12:01
28 juil. 2003 à 12:01
Bonjour...
Et bien le problème vient tout simplement du fait que l'option
Ecris comme ça:
Et la, normalement, cela devrait marcher!!
bon courage
Maily :-))))
Et bien le problème vient tout simplement du fait que l'option
ListeFournisseur.Text n'existe pas... En effet, une combo box, tu peux récupérer l'indice qui est en cours et ainsi récupérer le texte!
Ecris comme ça:
dim i as integer
i= ListeFournisseur.ListIndex
Fournisseur=ListeFournisseur.List(i)
Et la, normalement, cela devrait marcher!!
bon courage
Maily :-))))
merci, beaucoup, de retour de week-end , je vais essayer tout de suite : verdict dans quelques minutes ! ;-))
Alors, apparemment, ça doit marcher, mais...
dans le même style , et dans le même code, j'ai aussi un champ "Marque" et "Remise" à enregistrer dans la feuille BaseDonnees. Alors, au complet, ce que j'ai écrit c'est ça :
Private Sub BtnEnregistrer_Click()
Dim Fournisseur As String
Dim Marque As String
Dim Remise As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = ListeFournisseur.ListIndex
Fournisseur = ListeFournisseur.List(i)
j = ListeMarque.ListIndex
Marque = ListeMarque.List(j)
k = ListeRemise.ListIndex
Remise = ListeRemise.List(k)
Hide
End Sub
et là, ça affiche "objet requis".
Quid de cette erreur ?
merci...
dans le même style , et dans le même code, j'ai aussi un champ "Marque" et "Remise" à enregistrer dans la feuille BaseDonnees. Alors, au complet, ce que j'ai écrit c'est ça :
Private Sub BtnEnregistrer_Click()
Dim Fournisseur As String
Dim Marque As String
Dim Remise As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = ListeFournisseur.ListIndex
Fournisseur = ListeFournisseur.List(i)
j = ListeMarque.ListIndex
Marque = ListeMarque.List(j)
k = ListeRemise.ListIndex
Remise = ListeRemise.List(k)
Hide
End Sub
et là, ça affiche "objet requis".
Quid de cette erreur ?
merci...
