textbox dans userform

  • Auteur de la discussion fred014
  • Date de début

fred014

Habitué
bonsoir,

j ai créé un userform sous excel en vba
dans ce userform j ai des textbox et un bouton
1 nom
2 prénom
3 bureau
4 téléphone
donc une fois que je rempli les textbox et que je clic sur le bouton valider
cela se met dans les cellules appropriées.
nom a1
prenom b1
bureau c1
téléphone d1
parcontre lorsque je recri dans les textbox et de nouveau valide cela ecrase
les valeurs dans chaque cellule.
comment fait on pour que cela passe a la ligne suivante ??????? :(
donc passer a
a2
b2
c2
d2
ainsi de suite
merci d avance
 

fred014

Habitué
[cpp]
private sub commandbutton1_click()
sheets("feuil1").select
range ("a1") = textbox1.value
range ("b1") = textbox2.value
range ("c1") = textbox3.value
range ("d1") = textbox4.value
textbox1.text = ""
textbox2.text = ""
textbox3.text = ""
textbox4.text = ""
end sub
[/cpp]

voilà mon code trés trés simple
 

zeb

Modérateur
rhoo..

Comment veux-tu qu'il te mette quelque chose dans "A2" si tu lui dit "A1" ?

Soit tu utilises une variable pour former les adresses "An", "Bn", etc.

Soit tu utilises un adressage relatif avec OffSet.

-- pour info --------------------

Beurk
Code:
sheets("feuil1").select
range ("a1") = textbox1.value
range ("b1") = textbox2.value
Miam
Code:
With sheets("feuil1")
range ("a1") = textbox1.value
range ("b1") = textbox2.value
..
End With

Le Select, c'est mal :o
 

fred014

Habitué
merci pour ta réponse mais je ne sais pas creer une variable pour former un adresse .

 

zeb

Modérateur
Code:
Dim adresse As String

adresse = "A1"
Sheets("feuil1").Range (adresse) = TextBox1.Value

C'est pourtant le B-A-BA de la programmation :o. La lecture d'un bon bouquin de prog ne te ferait pas de mal sur les plages cet été.

Enfin, on est là. ;)
 

fred014

Habitué
merci pour ta réponse , cela fonctionne sauf que sa rempli que la cellule a1
et je ne se met pas a la suite .
1 ere adresse en a1 puis suivante a2 puis suivante a3 ....etc....
 

shinykun

Nouveau membre
i = 1
# range ("a" & i ) = textbox1.value
# range ("b" & i) = textbox2.value
# range ("c"& i ) = textbox3.value
# range ("d" & i) = textbox4.value
i = i +1

 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 101
Membres
1 586 287
Dernier membre
lucilleguffey
Partager cette page
Haut