Discussion :

[ted1057]

Bonjour à tous,

Voila je bosse sur un projet pour ma boite et je suis confronté à un soucis.

J'ai crée un userform avec une zone de texte. J'aimerais que la valeur que je note dans la zone de texte s'inscrive dans une cellule précise. En fait j'aimerais que cette valeur se mette à la dernière ligne vide de ma colonne.

Voici le code que j'ai tapé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub intensite_Change()
Sheets("principal").Select
Range("h10").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
ActiveCell = intensite
End Sub

Le problème ainsi rencontré est :

A chaque fois que je note une valeur, elle se met les une en dessous de l'autre au lieu de tous se mettre dans la même cellule.

Enfin un exemple vaut mieux qu'un long discours, je vous envoie un fichier "démo" pour vous montrer mon problème.

Cordialement