enregister un textbox dans une autre feuille Microsoft officeRésolu

Question

Bonjour a tous, j'ai un probleme tres simple. je voudrais enregistrer  la valeur d'un textbox dans un userform dans une autre feuille feuille excel.
voila mon code et mon probleme ici (enfin je pense) :

'Création article pour inventaire

Private Sub CommandButton7_Click()
'.....Message d'erreur si pas de texte enregistrer dans un textbox
       If Me.TextBox29 = "" Then
    MsgBox "Veuillez renseigner un Code Article"
    Exit Sub ' Exit sub bloque la procedure en cas de textbox vide (à placer avant la procedure)
  End If
  '.......................................................
 Feuil1.Range("a2:c2").Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
    Range("a1:c1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
      End With
      ActiveWindow.ScrollColumn = 1
    Range("b1").Select
Range("A2").Value = Format(Now, "dd/mmm/yy") ' date automatique
Range("B2").Value = TextBox28.Value
Range("C2").Value = TextBox29.Value

Range("C2").Select
Columns("B:C").Select

'vide les textbox apres validation
TextBox28.Value = ""
TextBox29.Value = ""

End Sub


merci pour votre aide !!!

ucfoutu · Accepted Answer

Bonjour,

VBA n'est pas VB6. Tu aurais dû ouvrir cette discussion dans Langages dérivés > VBA !

L'indentation de ton code et sa présentation entre balises codes ne sont par ailleurs pas un luxe, mais une nécessité.

Il convient que tu y veilles dorénavant.

Je vais te répondre de manière générale :
Pour écrire dans la cellule B4 de la feuille Feuil2 le contenu d'une textbox nommée titi sur un userform nommé toto (et chargé) :
Worksheets("Feuil2").Range("B4").Value = toto.titi.text


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Garin17 · Answer

desolé pour l'erreur d'emplacement de discution et Merci pour ton retour rapide

castou60 · Answer

Castou60

Private Sub CommandButton7_Click() 
'.....Message d'erreur si pas de texte enregistrer dans un textbox 
If Me.TextBox29 = "" Then 
MsgBox "Veuillez renseigner un Code Article" 
Exit Sub ' Exit sub bloque la procedure en cas de textbox vide (à placer avant la procedure) 
End If
-----------------------------------------------------------------------
Et comme ça:

Private Sub CommandButton7_Click() 
'.....Message d'erreur si pas de texte enregistrer dans un textbox 
If Me.TextBox29.text = <> "" Then 
MsgBox ("Veuillez renseigner un Code Article", + vbInformation)
End if
Exit Sub

castou60 · Answer

Castou60

'vide les textbox apres validation 
TextBox28.Value = "" 
TextBox29.Value = "" 
---------------------------------------------------------------------------

et comme ça :
textbox28.clear()
textbox29.clear()
---------------------------------------------------------------------------

Enregister un textbox dans une autre feuille Microsoft office

4 réponses

Votre réponse

Discussions similaires