Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : cellule et textbox avec userform [ Divers / Débutants ] (thibaultanguy)

vendredi 4 juillet 2008 à 10:38:42 | cellule et textbox avec userform

thibaultanguy

bonjour,
Julien et d'autres ont répondu à ma question qui portait sur: comment avec un textbox, faire apparaitre un texte sur la cellule a1; feuil1 puis lorsque je retape a nouveau un nouveau texte, que celui-ci apparaisse sur la cellule a2;Feuil1 et ainsi de suite. La réponse qui m'a été donnée est la suivante :
ActiveWorkBook.Worksheets ("feuil1").Range ("A65535").End (xlUp).Row +1
Mon problème est le suivant : coment incorporer cette ligne au code suivant pour que cela fonctionne ?
PrivateSub CommandButton 1_ Click()
sheets ("feuil1").Range ("a2:a10").Value=Userform1.TextBox1.Value
Userform1.Hide
End Sub

Ce code fonctionne, mais il inscrit un texte identique sur les cellules a2 à a10 alors que je souhaiterais que le premier texte soit sur la cellule a2 puis la seconde fois sur la cellule a3 et ainsi de suite jusqu'à a 10.
Merci de me corriger. Je sais, je suis un peu lourd dans mes explications...


eric

vendredi 4 juillet 2008 à 11:25:01 | Re : cellule et textbox avec userform

jrivet

Membre Club
Réponse acceptée !
Salut,
Regarde si ceci peut t'aider à comprendre et à corriger ton problème.

Private Sub CommandButton1_Click()
Dim NumLigne As Long
   'on récupère le numéro de la ligne
   NumLigne = ActiveWorkbook.Worksheets("feuil1").Range("A65535").End(xlUp).Row + 1
   
   'on teste sa valeur pour ne pas aller plus loin que 10
   If NumLigne <= 10 Then
       'si c'est bon on place la valeur dans la cellule correcte
       ActiveWorkbook.Worksheets("feuil1").Range("A" & CStr(NumLigne)).Value = TextBox1.Value
   End If
   Call Me.Hide

End Sub
By Renfield


@+: Ju£i¤n
Pensez: Réponse acceptée

vendredi 4 juillet 2008 à 11:25:49 | Re : cellule et textbox avec userform

jmfmarques

Membre Club
Utilise une variable static toto dans ton évènement click, incrémente-la de 1 à chaque click, puis  réfère-toi à la cellule "a" & toto




Cette discussion est classé dans : textbox, texte, cellule, a2, feuil1


Répondre à ce message

Sujets en rapport avec ce message

Comment Importer le contenu d'une cellule Excel dans un textbox sur VB [ par flamalex ] J'ai une feuil1 Excel, un bouton sur cette feuil1 faisant appel a un userform1 contenant des textbox1,2,3,4,5<?xml:namespace prefix = o ns Reprende texte dans un textbox et coller dans plage cellules [ par pekotrad ] Bonjour Forum, pouvez-vous m'aider? J'ai un USF dans lequel un TextBox dans lequel j'écris un texte plus au moins longue.Par un bouton dans ce US Problème avec du texte entrer dans un textbox et ensuite collé dans une cellule [ par mvba ] Bonjour,Mon problème est le suivant :J'entre du texte dans un textbox. Ensuite, je crée une page à imprimer avec le texte dans une feuille Excel. Mais Modification formats caractères sélectionnés dans une cellule active Excel2007 [ par so2306 ] Bonjour, Je me demande comment modifier le format d'un texte sélectionné dans une cellule active sous Excel, sans passer par Format de cellule/Police/ verif combo et fichier texte [ par spv54 ] Bonjour à tousVoila ma question:J'ai un fichier texte qui se nome site.txtJ'ai une form, sur cette form j'ai une combobox , une textbox et un bouton v boite texte dans une boite de dialogue [ par visual19 ] Je ne sais pas comment faire, j ai une boite de dialogue avec une TextBox. Le lien de cette boite une cellule de mon fichier excelMais cette cellule e Renvoi textbox vers Cellule [ par jeyjey1 ] Bonjour,Y a t il un moyen de récupérer la valeur d'une texbox puis de la renvoyer dans une celulle dont la colonne est connue mais pas le numéro de la Problème de changement de texte dans cellule [ par GregMIA ] Bonjour, Je débute en VBA. J'aimerai que le texte d'une cellule change par rapport à une autre. J'ai créé le code suivant : Private Sub Worksheet_Ch VBA XLS - effacer une cellule quand une liste change [ par apnart ] Bonjour,Je ne sais pas si je suis au bon endroit, mais je me lance ;-)Excel 2007Cellule A1 : contient une liste (par data validation)Cellule A2 : cont Listbox vers feuil1 [ par Corgol ] Au secours, je n'ai aucune connaissance en Visual Basic pour Excel, alors si vous pouviez m'aid


Nos sponsors

Sondage...

CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,140 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.