[Excel] incrementer et afficher dans feuille

Résolu
ced3c Messages postés 240 Statut Membre -  
ced3c Messages postés 240 Statut Membre -
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 Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
     
    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


    0
  2. ced3c Messages postés 240 Statut Membre 5
     
    grand merci pijaku pour la rapidité et l'efficacité :)
    C'est exactement ce que je cherchais
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
       
      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+
      0
  3. ced3c Messages postés 240 Statut Membre 5
     
    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€")
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
       
      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?
      0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
       
      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
      0
  4. ced3c Messages postés 240 Statut Membre 5
     
    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
    0

Discussions similaires

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

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

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

12 réponses