R
romfret
Guest
Bonsoir le forum !
J'ai un p'ti bleme !!!
Avant tou voici mon code vba :
Private Sub CommandButton1_Click()
'teste si un texte a été entré, si non, le programme averti l'utilisateur et s'arrête
If Userform1.TextBox1.Text = "" then
MsgBox "Vous n'avez rien saisi;" & Chr(10) & "fin du programme! "
Exit Sub
Else
'Si un texte a été entré, le programme le copie dans la cellule active et se déplace d'une cellule vers le bas
Activecell.value=Userform1.TextBox1.Text
Activecell.Offset(1,0).select
End If
End Sub
Mon probleme vient de ces lignes (elles sont les dernieres) :
Activecell.value=Userform1.TextBox1.Text
Activecell.Offset(1,0).select
Voila. A lieu que le message ecrit vienne ce mettre dans le cellule active , il faudrai qu'il vienne dans une cellule défini mais que le texte écrit par la suite aille vers le bas de cette cellule définie.
Avez-vous compris? Je reformulerai si besoin .
Merci d'avance ......................
@mic@lement Romfret
J'ai un p'ti bleme !!!
Avant tou voici mon code vba :
Private Sub CommandButton1_Click()
'teste si un texte a été entré, si non, le programme averti l'utilisateur et s'arrête
If Userform1.TextBox1.Text = "" then
MsgBox "Vous n'avez rien saisi;" & Chr(10) & "fin du programme! "
Exit Sub
Else
'Si un texte a été entré, le programme le copie dans la cellule active et se déplace d'une cellule vers le bas
Activecell.value=Userform1.TextBox1.Text
Activecell.Offset(1,0).select
End If
End Sub
Mon probleme vient de ces lignes (elles sont les dernieres) :
Activecell.value=Userform1.TextBox1.Text
Activecell.Offset(1,0).select
Voila. A lieu que le message ecrit vienne ce mettre dans le cellule active , il faudrai qu'il vienne dans une cellule défini mais que le texte écrit par la suite aille vers le bas de cette cellule définie.
Avez-vous compris? Je reformulerai si besoin .
Merci d'avance ......................
@mic@lement Romfret