Bonjour,
J'ai créer le petit bouton suivant :
Qui me permet de rentrer une valeur (texte ou nombre) et de l'insérer dans une autre feuille.
Actuellement le bouton permet d'enregistrer plusieurs valeurs les une à la suite des autres.
La fonction que j'aimerais obtenir est la suivante :
Au click on entre une valeur qui s'enregistrera dans une cellule (quelconque)
à partir de cette valeur à chaque nouveau click les nouvelles valeurs s'enregistrerons sur la colonne voisine, jusqu'à la cinquième colonne.
Arrivé à la cinquième colonne on passe à la ligne du dessous et on répète les étapes précédentes. (si la première cellule était B5 la sixième valeur ce trouverai donc sur B6).
jusqu'à un nombre de ligne définis.
Mes problèmes sont les suivant:
Je n'arrive pas à enregistrer les valeurs d'une colonne à une autre.
Je suppose que pour répéter l'expérience plusieurs fois je vais devoir utiliser une boucle For ou While mais je n'arrive pas à l'écrire (quand je le fais ça me remplis toutes les lignes colonnes...).
Je débute dans le langage VBA si vous avez des conseils et/ou suggestions je suis preneurs.
Merci d'avance !
Florian
J'ai créer le petit bouton suivant :
Code:
Private Sub CommandButton1_Click()
Dim i As Integer
i = Worksheets("Poids").Range("A65536").End(xlUp).Row + 1
If i <> Empty Then
Sheets("Poids").Range("A" & i) = TextBox1.Value
Else
Sheets("Poids").Range("A" & i + 1) = TextBox1.Value
End If
Unload Me
End Sub
Qui me permet de rentrer une valeur (texte ou nombre) et de l'insérer dans une autre feuille.
Actuellement le bouton permet d'enregistrer plusieurs valeurs les une à la suite des autres.
La fonction que j'aimerais obtenir est la suivante :
Au click on entre une valeur qui s'enregistrera dans une cellule (quelconque)
à partir de cette valeur à chaque nouveau click les nouvelles valeurs s'enregistrerons sur la colonne voisine, jusqu'à la cinquième colonne.
Arrivé à la cinquième colonne on passe à la ligne du dessous et on répète les étapes précédentes. (si la première cellule était B5 la sixième valeur ce trouverai donc sur B6).
jusqu'à un nombre de ligne définis.
Mes problèmes sont les suivant:
Je n'arrive pas à enregistrer les valeurs d'une colonne à une autre.
Je suppose que pour répéter l'expérience plusieurs fois je vais devoir utiliser une boucle For ou While mais je n'arrive pas à l'écrire (quand je le fais ça me remplis toutes les lignes colonnes...).
Je débute dans le langage VBA si vous avez des conseils et/ou suggestions je suis preneurs.
Merci d'avance !
Florian