[Excel] incrementer et afficher dans feuille

Résolu
ced3c -  
Bonjour à tous,

A partir de 2 textbox dans un userform, j'aimerai inscrire dans ma feuille excel la suite de nombre qui les separe grace a un bouton de commande.

exemple:

textbox1 : 25
textbox2 : 30
feuille excel : feuill1 colonne "B"

J'aimerai que quand je clique sur le bouton de commande il ajoute a la suite des valeurs de la colonne"B"

soit:

colonne "B"
1
2
3
25
26
27
28
29
30

j'espere avoir été assez clair, c'est net dans ma tête mais pas forcément pour vous à l'écrit :)

Merci pour votre aide

4 réponses

  1.  pijaku Modérateur
    Bonjour,

    il ajoute a la suite des valeurs de la colonne"B"

    Cf : https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne

    textbox1 : 25
    textbox2 : 30
    feuille excel : feuill1 colonne "B"

    Le reste est très simple : boucle de TextBox1.Value à TextBox2.Value : 
    Private Sub CommandButton1_Click()
Dim i As Integer, Ligne As Long
With Sheets("Feuil1")
  For i = TextBox1.Value To TextBox2.Value
    Ligne = .Range("B" & Rows.Count).End(xlUp).Row + 1
    .Range("B" & Ligne) = i
  Next i
End With
End Sub


    1. ced3c Auteur
      grand merci pijaku pour la rapidité et l'efficacité :)
      C'est exactement ce que je cherchais
      1. pijaku Modérateur
        N'oublie pas les tests nécessaires si tes textbox sont vides... 
        If TextBox1.Value = "" Or TextBox2.Value = "" Then Exit Sub


        Sinon, de rien.
        A+
    2. ced3c Auteur
      Juste une pitite question de plus svp

      Pour le format euros sur la 3eme colonne d'une listbox comment fait t on svp ?

      je l'alimente de cette facon: 
      With Sheets("fonctionnement")
          Me.ListBox1.List = .Range("A2:C" & .[B65000].End(xlUp).Row()).Value
      End With


      J'ai bien trouver sur internet ce code mais je ne sais pas trop comment l'utiliser pour la listbox: 
      Format(c.Offset(0, 2).Value, "0.00€")
      1.  pijaku Modérateur
        Je n'ai pas compris comment est remplie ta ListBox. Il manque des infos...
        Que contiennent tes colonnes A, B et C? A quel format?
      2. pijaku Modérateur
        Peut être : 
        With Sheets("Feuil1")
  Me.ListBox1.List = .Range("A2:C" & .[B65000].End(xlUp).Row()).Value
End With
For i = 0 To ListBox1.ListCount - 1
  ListBox1.List(i, 2) = Format(ListBox1.List(i, 2), "0.00 €")
Next i
    3. ced3c Auteur
      la colonne A contient des dates
      la colonne B contient des nombres

      Je viens d'essayer votre code et il marche à merveille :)
      Encore un grand merci

      Discussions similaires

      Excel : afficher toutes les lignes et colonnes masquées
      livlarsen

      27 réponses
      remettre toutes les colonnes et les lignes masquées
      mousaillon

      4 réponses
      Probleme d'affichage de ligne dans Excel
      sammy79

      12 réponses