COMBOBOX

Inocent.k Messages postés 4 Statut Membre -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention - 17 mars 2017 à 21:20

Bonjour, je suis Inocent Koffi
j'ai un soucie avec le codage Combobox

quelqu'un pourrais m’aider ?

Afficher la suite

A voir également:

COMBOBOX
Combobox word - <a href="https://forums.commentcamarche.net/forum/word-141">Forum Word</a>
Propriétés combobox vba ✓ - <a href="https://forums.commentcamarche.net/forum/vb-vba-267">Forum VB / VBA</a>
Combobox vba ✓ - <a href="https://forums.commentcamarche.net/forum/vb-vba-267">Forum VB / VBA</a>
Vba combobox liste déroulante ✓ - <a href="https://forums.commentcamarche.net/forum/programmation-3">Forum Programmation</a>
Vba combobox listindex ✓ - <a href="https://forums.commentcamarche.net/forum/vb-vba-267">Forum VB / VBA</a>

2 réponses

Réponse 1 / 2

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,
Faudrait expliquer un peu plus votre problème et montrer votre code

Inocent.k Messages postés 4 Statut Membre

Merci F894009
La première question à été résolue

mais voici mon prochain problème :

Private Sub CommandButton1_Click()

Sheets("GESTION").Activate
Dim Insuv As Integer

Insuv = [D1000].End(xlUp).Row + 1
Cells(Insuv, 4) = texBox1.Tex
Cells(Insuv, 5) = texBox2.Tex
Cells(Insuv, 7) = DateValue(texBox3.Value & "/" & texBox4.Value & "/" & texBox5.Value)
Cells(Insuv, 9) = texBox6.Tex
Cells(Insuv, 6) = texBox7.Tex

End Sub

Réponse 2 / 2

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

Si vous n'avez pas change le nom des TextBox, la solution est dans ce que je viens d'ecrire et ce n'est pas .tex mais .Text

Inocent.k Messages postés 4 Statut Membre

Merci F894009 pour ta réponse

mais, maintenant Erreur définie par l’application ou par l'objet

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > Inocent.k Messages postés 4 Statut Membre

Re,
Sur quelle ligne?

Inocent.k Messages postés 4 Statut Membre

bon quand je click sur debloquer
on selectionne ce qui suit en jaune

Insuv = [A1000].End(xIUp).Row + 1

aussi quand je fais passé le cursseur sur toutes les cellues, on me met Erreur définie par l’application ou par l'objet

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > Inocent.k Messages postés 4 Statut Membre

Re,
Pas d'erreur chez moi;
Par contre une fois Insuv = [D1000].End(xlUp).Row + 1 , Insuv = [D29].End(xlUp).Row + 1 sur l'image er enfin Insuv = [A1000].End(xlUp).Row + 1
Faudrait vous fixez

Discussions similaires

Contenu d'un ComboBox en fonction du contenu d'un autre ComboBox

selectionner un item dans une combobox

[VBA] Propriété ComboBox

VBA Excel : Recharger une ComboBox dynamiquement

Liste déroulant dynamique en cascade en VBA

Discussions similaires

Newsletters