[Excel] incrementer et afficher dans feuille
Résolu
ced3c
Messages postés
240
Statut
Membre
-
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
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:
- [Excel] incrementer et afficher dans feuille
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Si et ou excel - Guide
- Verrouiller cellule excel sans verrouiller la feuille - Guide
4 réponses
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 :
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
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:
J'ai bien trouver sur internet ce code mais je ne sais pas trop comment l'utiliser pour la listbox:
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€")