Sujet Précédent Sujet Suivant

[Excel] incrementer et afficher dans feuille

Résolu/Fermé
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 8 oct. 2014 à 14:31
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 8 oct. 2014 à 16:49
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

A voir également:

4 réponses

Réponse 1 / 4
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
8 oct. 2014 à 14:37
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
Réponse 2 / 4
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
8 oct. 2014 à 14:46
grand merci pijaku pour la rapidité et l'efficacité :)
C'est exactement ce que je cherchais
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié par pijaku le 8/10/2014 à 14:49
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
Réponse 3 / 4
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
8 oct. 2014 à 15:25
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
8 oct. 2014 à 15:32
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
8 oct. 2014 à 15:38
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
Réponse 4 / 4
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
8 oct. 2014 à 16:49
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

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Afficher toutes les lignes masquées excel
livlarsen -
esicom -

26 réponses