textbox caractères et cellules

[zesuila]

Bonjour à tous,
Bon je sais le titre du sujet est disons, peu attarayant :sick: mais il est tôt et surtout je ne sais pas comment exprimer ma demande !

Voilà mon soucis :
Je dois entrer dans une textbox un nombre par exemple : 123456
Là je sais faire. Mais ce nombre doit être réinscrit dans la feuille par exemple 'F1' mais un chiffre par cellule
par exemple en
A1 B1 C1 D1 E1 F1
1 2 3 4 5 6

Peut on demander en vba de le faire ?

merci de votre aide
Zesuila

 

[PascalXLD]

Bonjour

Sur un click bouton un truc du genre

Private Sub CommandButton1_Click()

Dim x As Byte, ligne As Integer
ligne = 1
For x = 1 To Len(TextBox1)
Cells(ligne, x) = Mid(TextBox1, x, 1)
Next
End Sub

Bon courage

 

[zesuila]

B) oui c'est exactement cela, mais je ne sais pas trop comment 'travailler' ce code
Comment lui expliquer à ce 'command button' bien sympathique de remplir par exemple les cellules T30 à Y30
et si tu as un moment pour m'expliquer ce code
Encore merci

 

[PascalXLD]

RE

Alors quand tu ecris

cells(ligne,x)

ligne correpond à ta ligne et cell a la colonne

donc T etant la colonne 20 tu ajoutes 19 à x et l'affaire est joué

J'ai rajouté aussi le nom de la feuille que j'avais oublié

Private Sub CommandButton1_Click()

Dim x As Byte, ligne As Integer
ligne = 30
For x = 1 To Len(TextBox1)
    Sheets('Feuil1').Cells(ligne, x + 19) = Mid(TextBox1, x, 1)
Next
End Sub

 

[zesuila]

Génial !
Et si par ce toujours (voire même encore plus) sympathique 'command button' il pouvait remplir par exemple les cellules
T30 à Y30 MAIS AUSSI les cellules B15 à D15 !
Est ce possible de 'continuer' ton code

 

[PascalXLD]

RE

Voilà

Mais bon je passe par 2 variables ligne1 et ligne2 mais tu pourrais directement ecrire 15 et 30 dans le code mais bon c'est souvent plus facile en cas de modif de passer par des variables

Private Sub CommandButton1_Click()

Dim x As Byte, ligne1 As Integer, ligne2 As Integer
ligne1 = 30
ligne2 = 15
For x = 1 To Len(TextBox1)
    Sheets('Feuil1').Cells(ligne1, x + 19) = Mid(TextBox1, x, 1)
    Sheets('Feuil1').Cells(ligne2, x + 2) = Mid(TextBox1, x, 1)
Next
End Sub

Message édité par: Pascal76, à: 14/04/2006 08:00

 

[zesuila]

Je teste ! et je te tiens pas au courant car je sais pertinemment que cela va fonctionner
Merci beaucoup
(bon si cela ne fonctionnait pas, là je te tiens au courant )

 

[zesuila]

euh cela ne marche pas !
mais bon je dois m'y prendre comme un manche
D'abord, est ce parce que je n'utilise finalement pas un bouton de commande (pour plus de facilité pour l'utilisateur), mais plutôt une sortie de textbox ?

Voici mon code

Private Sub TextBox7_Enter()
Dim x As Byte, ligne As Integer
ligne = 14
For x = 1 To Len(TextBox7)
Sheets('Fiche de demande complète').Cells(ligne, x + 26) = Mid(TextBox1, x, 1)

et c'est donc les cellules AA14 jusquà AE14 qui doivent être remplies par le résultat de la textbox 7

Mais dans mon cas, cela rempli la cellule AA14 mais avec les 5 chiffres dedans
J'ai essayé avec textbox_change mais même effet
ou est l'erreur ?

 

[PascalXLD]

re

Euh en anglais Enter ne veut-il pas dire entrée ??

Prends plutot l'evenement exit (sortie) du textbox

 

[zesuila]

ouh lalalalalalala :sick:

PARDON !!!
textbox 1 au lieu de textbox 7 !!! :whistle: :whistle:

ça marche !!

merci et désolé

 

[zesuila]

Rebonjour
une petite question comme cela en passant :

Quand les cellules sont fusionnées, cela ne fonctionne pas ! y a t il une solution ?

Merci encore

 

[PascalXLD]

Arf les cellules fusionnées

On en a déjà bavé hier avec Thierry sur ce fil

Lien supprimé

Bon par contre là un petit exemple dans un fichier joint serait la bienvenue

 

[zesuila]

je pense que je vais plutôt supprimer la fusion des cellules, elle n'est pas utile. Mais pour le 'fun' je vais mettre mon fichier zippé.

Par contre j'ai une question à te poser :
comment fais tu pour mettre aussi rapidement un lien sur un sujet déjà traité. Moi j'ai du mal à stocker et gérer les différents fils qui pourrait m'interesser.
Mais bon j'en reparlerai un peu plus tard et dans le 'salon'.
Je travaille sur le fichier zippé et je l'envoie.

 

[PascalXLD]

RE

Bien là si tu veux on s'est tellement cassé la tête avec Thierry que ce genre de fil tu t'en souviens longtemps.
Alors j'ai fait une petite recherche sur le forum en cherchant 'fusionn' et j'ai tout de suite retrouvé le fil

Message édité par: Pascal76, à: 14/04/2006 10:58

 

[zesuila]

OK,
Voici le fichier
Encore merci pour tes explications. [file name=testED.zip size=16078]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testED.zip[/file]