Envoyer valeur combobox dans cellule

Résolu/Fermé

philippe - 28 févr. 2011 à 15:22
philippe - 28 févr. 2011 à 16:20

Bonjour,
je cherche désespérément à envoyer le résultat d'une saisie combobox dans une liste de la feuille "code" (chiffre de 1 à 6) vers la cellule K7 de la feuille "saisie".

Tout fonctionne, la valeur selectionné apparait dans la combobox de mon userform mais cette valeur ne s'inscrit pas dans la cellule K7 de la feuille saisie!!
Quelqu'un peut-il me dire ce qui ne va pas?
ci-dessous, le petit programme en VB:

Private Sub UserForm_initialize()
Dim Plage As String
With Sheets("code")
Plage = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Address
End With
ComboBox1.RowSource = "code!" & Plage
Range("saisie!K7").Value = ComboBox1.Value
End Sub
merci

A voir également:

Affecter valeur combobox vba
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Vba attendre 1 seconde ✓ - Forum VB / VBA
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? - Forum VB / VBA
Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum MacOS
Additionner nombres dans cellules avec texte ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 294
Modifié par Bidouilleu_R le 28/02/2011 à 16:14

Mais cher ami il faut lui dire sinon ton programme ne le fera pas !!!

// ça c'est pour initialiser ... d'ailleurs c'est écrit

Private Sub UserForm_initialize()  
Dim Plage As String  
With Sheets("code")  
       Plage = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Address  
End With  
ComboBox1.RowSource = "code!" & Plage  
Range("saisie!K7").Value = ComboBox1.Value  ' ne sert à rien car en initialisant c'est vide
End Sub

Maintenant dans la fenêtre de ton userform sur Combobox1 tu fais un double click, et tu obtiens ça!

Private Sub ComboBox1_Change() 

End Sub

C'est pas mal mais ça ne fais rien!

Private Sub ComboBox1_Change() 
       Sheets("saisie").range("K7").Value = ComboBox1.Value  

End Sub

Quand l'évènement "change" du combobox sera activé ce code sera executer!

Voilà

Bon code!

philippe
28 févr. 2011 à 16:20

Merci, Merci, Merci

Discussions similaires

Problème de restrictions

Bonjour,

Je travaille sur un classeur Excel qui est déjà passé par plusieurs mains. Je dois le modifier.

Pour tester une nouvelle formule, j'insère une nouvelle colonne dans laquelle je mets ma formule. Et là apparait le message d'erreur :

"La valeur que vous avez tapée n'est pas valide

Un utilisateur a restreint les valeurs que peut prendre cette cellule"

Ma formule fonctionne très bien dans d'autres cellules, le problème ne vient donc pas de là.

Comment puis-je lever cette restriction ?

Merci d'avance,

Cordialement,

Configuration: Window...

"L'indice n'appartient à la sélection" + VBA

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 ...

Erreur d'exécution 13 Incompatibilité de type

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...

ouverture d'un fichier excel à partir d'un code VBA

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

Méthode find dans VBA - Recherche de données sous Excel

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. ...