COMBOBOX

Inocent.k Messages postés 4 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, je suis Inocent Koffi
j'ai un soucie avec le codage Combobox

quelqu'un pourrais m’aider ?

2 réponses

  1. 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
    0
    1. 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
      0
  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
    0
    1. 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
      0
      1. 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?
        0
    2. 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
      0
      1. 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
        0