Microsoft 365 Textbox userform

aktal-s

XLDnaute Nouveau
Bonjour tout le monde, j'ai un petit problème concernant une textbox dans une userform, il y a deux textbox qui alimente une autre feuille dans le meme classeur, la premiere textbox ça marche mais le second ne s'alimente pas ( c'est à dire quand je mets quelque chose dans le userform la cellule qui doit etre alimenter ne s'alimente pas). merci de votre aide
voici mon code :

Private Sub CommandButton1_Click()


Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Liste")

With ws
'Find the next empty row in Range B
Dim nextRowB As Long
nextRowB = .Cells(.Rows.Count, "B").End(xlUp).Row + 1

'Find the next empty row in Range D
Dim nextRowD As Long
nextRowD = .Cells(.Rows.Count, "D").End(xlUp).Row + 1

'Insert the data from the userform into the next empty cells in Range B and Range D

.Cells(nextRowB, "B").Value = Me.txtB.Value
.Cells(nextRowD, "D").Value = Me.txtN.Value

End With

'Clear the data entry fields on the userform
Me.txtB.Value = ""
Me.txtN.Value = ""



End Sub
 

patricktoulon

XLDnaute Barbatruc
bonjour
si les deux valeurs doivent aller sur la même ligne pas la peine de déterminer deux fois le end(xlup)
VB:
Private Sub CommandButton1_Click()
    Dim nextRowB As Long
    With ThisWorkbook.Sheets("Liste")
        nextRowB = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
        .Cells(nextRowB, "B").Resize(, 2).Value = Array(Me.txtB.Value, Me.txtN.Value)
    End With
    'Clear the data entry fields on the userform
    Me.txtB.Value = ""
    Me.txtN.Value = ""
End Sub
 

cp4

XLDnaute Barbatruc
pour question de sécurité de mon entreprise je ne peux pas mettre le fichier ici
Bonjour @pierrejean , @patricktoulon ;),

Personne ne veut le fichier de ton entreprise. D'ailleurs le forum n'accepte pas des fichiers non anonymisés.
Fait un petit fichier illustrant ton problème.
edit: en ajoutant dans le code de la feuille Application.EnableEvents=False, puis le remettre à true après l'évènement à inhiber.
 
Dernière édition:

Discussions similaires

Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 711
Messages
2 081 783
Membres
101 817
dernier inscrit
carvajal