Passer d un ComboBox a une feuille Excel

Xerox -  
 kay33 -
Bonjour,

J aimerai savoir quel formule il faut utilisé pour que s affiche sur une feuille Excel des données qui vienne d un ComboBox ?

Merci

2 réponses

  1.
    Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    exemple cellule A2

    [A2]=Combobox1

    si tu veux afficher dans la cellule A2 sur la feuille 3 alors que ta feuille active est la feuille1 peu importe le nom des onglets

    Sheets(3).[A2] =combobox1
    0
    1. Xerox
       
      Ok mon problème est que je veut faire sa sur un ComboBox qui ne marche pas y a une erreur .
      Es que tu pourrai me dire ou est mon erreur .

      Private Sub ComboBox13_Change()

      Dim trouve, trouve1 As Range
      Dim i, j, k, premlig, derlig, premcol, dercol As Integer
      ComboBox5.Clear
      With Sheets(ComboBox5.Value).Columns(3)
      Set trouve = .Cells.Find(CDate(TextBox1.Value))
      Set trouve1 = .Cells.Find(CDate(TextBox2.Value))
      If trouve Is Nothing Or trouve1 Is Nothing Then
      MsgBox "Erreur de dates"
      Exit Sub
      Else
      premlig = trouve.Row
      derlig = trouve1.Row
      End If
      End With
      With Sheets(ComboBox5.Value)
      dercol = .Range("IV13").End(xlToLeft).Column
      premcol = .Cells(13, dercol).End(xlToLeft).Column
      For j = premcol To dercol
      If .Cells(13, j).Value = ComboBox13.Value Then
      k = Application.WorksheetFunction.Min(Range(.Cells(premlig, j), .Cells(derlig, j)))
      For i = 1 To k
      ComboBox5.AddItem i
      Next i
      End If
      Next j
      Sheets(7).[A2] = ComboBox13
      End With
      Set trouve = Nothing
      Set trouve1 = Nothing
      End Sub
      0
    2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Salut Mike

      doublon sous un autre pseudo avec
      https://forums.commentcamarche.net/forum/affich-18082375-probleme-combobox
      0
    3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      Salut Michel_m,

      Merci pour l'info j'ai demandé le retrait de l'autre discussion.
      Je n'ai pas le temps de m'étendre je rentre en cours

      Cordialement

      Mike-31
      0
    4. kay33
       
      Ta formule marche mais j aimerai savoir ce qu il faut ajouté pour que toutes les valeurs ce mette les unes sous les autres
      0
    5. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      Re,

      Si tu as plusieurs contrôle sur ton userform, utilise la syntaxe ComboBox1_Exit, de sorte que le contenu saisi dans le combobox s'incrive à la suite dans ta colonne A (dans l'exemple) lorsque tu quittes le combobox

      Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      Range("A65536").End(xlUp).Offset(1, 0) = ComboBox1
      End Sub
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Non, avant de donner un code je le teste et je ne vois pas qu'il efface la ligne précédente

    https://www.cjoint.com/?gkn2dU8wU4
    0
    1. kay33
       
      Moi sa ne marche pas sur mes comboBox la 1er fois sa ce mes sur la 1er ligne et la 2ème fois que je le fait sa renplace la 1 er ligne
      0
    2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      si ton fichier ne contient pas de données confidentielles met le à notre disposition avec ce lien

      https://www.cjoint.com/
      0
    3. kay33
       
      Voici le lien : http://www.cijoint.fr/cjlink.php?file=cj201006/cijbUGSCpV.xls
      0