Code VBA Résolu/Fermé

Question

Bonjour, 

VBA Excel.

Bonjour, voici mon problème.

je suis entrain de faire une petite application en Excel pour m'aider dans mon travail, et comme je ne suis pas connaisseur en VBA je viens ici pour demander votre aide. 
alors, le problème et le suivant :

dans un userform j'ai deux textbox "textbox1" et "textbox2", dans le textbox1 je saisie un chiffre et dans le textbox2 un autre chiffre qui est supérieur à celui saisi dans le textbox1

je voudrais que quand je valide  , le premier chiffre soit inscrit dans la première cellule vide de la collone A puis dans la deuxième le chiffre qui suit le chiffre premier, par exemple si le chiffre du textbox1 est 11555 est le chiffre du textbox2 est le 11559 alors il y a un écart au cellules au nobre de l'écart entre 11559 et 11555 c'est à dire dans la premère cellule vide il y a 11555, dans la deuxième cellule qui la suit il y a 11556 dans la troisème cellule il y a 11557 et comme ça jusqu'a ateindre 11559 que lui sera inscrit à la dernière cellule.

je ne sais pas si c'est claire ?

aider moi SVP


Configuration: Windows 7 / Internet Explorer 8.0

gbinforme · Answer

bonjour


Le code de ton bouton de validation pourrait ressembler à ceci :

Private Sub CommandButton1_Click()
Dim lig As Long
lig = Cells(Columns("A").Cells.Count, "A").End(xlUp).Row + 1
Cells(lig, "A").Value = TextBox1.Value
While Cells(lig, 1).Value < Val(TextBox2.Value)
    lig = lig + 1
    Cells(lig, "A").Value = Cells(lig - 1, "A").Value + 1
Wend
End Sub

Mike-31 · Answer

Salut,

Je pense qu'après avoir saisi les valeurs dans tes textboxs, tu valides avec un bouton (CommandButton) sur ton userform.
en supposant que tes textboxs se nomment Textbox1 et textbox2 dans les propriétés du commandButton colle ce code.

Private Sub CommandButton1_Click()
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveCell = TextBox1.Value * 1
    If ActiveCell < TextBox2 Then
    Do While ActiveCell < TextBox2.Value * 1 'Faire la boucle tant que la cellule sélectionée n'est pas vide
    ActiveCell.Offset(1, 0).Select 'Décalage de 1 ligne à chaque fois
    ActiveCell = ActiveCell.Offset(-1, 0).Value + 1
    Loop
    Unload Me
    End If
End Sub

j'ai inclus la fermeture de l'Userform

Code VBA

2 réponses

Discussions similaires

Newsletters