Facile et rapide

Bonjour a tous j'ai un trou de mémoire je veux rajouter un 0 a la suite de ma text box 1 en cliquant sur un bouton mais ça ne fonctionne pas

quel'qu'un peut m'aider vite fait ?

Merci

Private Sub zero_Click()
 X = TextBox1.Value
X = X & "0"
End Sub

Bonjour,

Détail de ton erreur :

Private Sub zero_Click()
 X = TextBox1.Value 'X = TextBox1.Value / Textbox1.value = Textbox1.value
X = X & "0" 'X = X & "0" / Textbox1.value = Textbox1.value
End Sub

Tu déclares une variable qui va stocker la valeur de ta textbox, puis tu modifies cette variable, mais en faisant ceci, la valeur de la textbox elle, reste la même.

Si tu veux modifier la valeur de la Textbox fais ceci:

Private Sub zero_Click()
TextBox1.Value = TextBox1.Value & "0"
End Sub

Merci de ta réponse j'ai entré ce code mais ca ne fonctionne pas je sais pas pourquoi

Private Sub UserForm_Initialize()
TextBox1.Value = ActiveCell.Value
End Sub
Private Sub zero_Click()
TextBox1.Value = TextBox1.Value & "0"
End Sub

et dans mon textbox ca ne me rajoute pas le "0"

C'est bon problème résolu je n'appuyais pas sur le bon bouton

merci a toi

C'est bon problème résolu je n'appuyais pas sur le bon bouton

merci a toi

Ah ben si tu ne lançais pas la macro

De rien et bonne continuation

naubin1 a écrit :

je n'appuyais pas sur le bon bouton

comme disais K à J : « tu te souviens du petit bouton rouge ?

appuie sur le petit bouton rouge ! » (MIB)

dhany

Titre particulièrement explicite ! tu aurais dû mettre "trou de mémoire" peut-être pour que les moteurs de recherche ne soient pas déboussolés !

Sorry j'ai voulu mettre un titre justement qui n’encombre pas le forum car c'était "juste" un problème de syntaxe.

Merci à tous et bonne journée !

naubin1 a écrit :

c'était "juste" un problème de syntaxe.

oui, une syntaxe en forme de petit bouton rouge.

https://forum.excel-pratique.com/viewtopic.php?p=703823#p703823

dhany

en parlant de syntaxe

quelqu'un sait pourquoi quand je mets

 Dim cel As Range, fin&, aa, col&
    Dim no_colonne As Integer, nb_lignes As Integer
    L1.Clear
    With Feuil5 'pourquoi la Feuil 5 quand je le remplace par sheets("x").select ca me mets "erreur 424 Objet recquis"
        Set cel = .Rows(3).Find(C1, , , xlWhole)
        If Not cel Is Nothing Then col = cel.Column
        fin = .Cells(Rows.Count, col).End(3).Row " et quand je laisse Feuil5 dans "with" il me mets sur cette ligne erreur défini par l'application ou par l'objet
        aa = .Range(.Cells(4, col), .Cells(fin, col + 1))
        L1.List = aa: L1.ColumnCount = 2
        L1.Font.Size = 16
        L1.ColumnWidths = "60;200"
    End With
End Sub

Merci de l'éclaircissement

Bonjour,

Pour la ligne fin = ...

tu as mis .end(3)

Les 4 valeurs possibles pour end sont :

NomValeurDescription
xlDown-4121Vers le bas.
xlToLeft-4159Vers la gauche.
xlToRight-4161Vers la droite.
xlUp-4162Vers le haut.

Attention ensuite quand tu appelles sheets("x"), sheets attend soit un nom entre guillement qui est le nom de la feuille, soit l'index de la feuille, si tu mets sheets("5") pour appeler la feuille 5, ça ne fonctionnera pas

Bonjour Ausecour,

.End(4) ou .End(-4121) : idem que .End(xlDown)
.End(1) ou .End(-4159) : idem que .End(xlToLeft)
.End(2) ou .End(-4161) : idem que .End(xlToRight)
.End(3) ou .End(-4162) : idem que .End(xlUp)

j'ai déjà vérifié, tu peux essayer aussi !

dhany

Salut dhany

Merci pour l'info

Dans ce cas il va falloir vérifier que col contient bien quelque chose, et donc que cel n'est pas nothing.

Parce qui si cel is nothing dans ton cas, col = "", et donc tu demandes la cellule dernière ligne, colonne "".

Sauf que ça ne correspond à aucune cellule, du coup ça peut te planter.

Donc vérifie que ton Find te renvoie bien quelque chose, que ton cel n'est pas rien, et que col est différent de "".

C'est les seules pistes que je peux te donner

Super merci !

merci pour ton retour !

bonne continuation !

dhany

Rechercher des sujets similaires à "facile rapide"