Microsoft 365 Textbox userform

[aktal-s]

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

 

[cp4]

Bonjour,

Supprime le point avant .Rows.Count

A+

 

[aktal-s]

Bonjour,

Supprime le point avant .Rows.Count

A+

bjour, c'est toujours pareil avec le point supprimé

 

[pierrejean]

Bonjour
Salut cp4
Le code n'est pas en cause
Voir test

 

[aktal-s]

effectivement le code marche, c'est la feuille, il y a d'autre macros :/

 

[patricktoulon]

bonjour
si les deux valeurs doivent aller sur la même ligne pas la peine de déterminer deux fois le end(xlup)

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

 

[aktal-s]

Dans ma feuille ça marche seulement sur la colonne B, y a t il une solution pour ça? merci

 

[pierrejean]

re
@patricktoulon
rien n'indique qu'il s'agit de la même ligne
@ aktal
avec le fichier on y verrait plus clair !!!!

 

[aktal-s]

pour question de sécurité de mon entreprise je ne peux pas mettre le fichier ici

 

[cp4]

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.

 

[aktal-s]

merci à tous, c'est reglé en faite j'avais des formules transparent jusqu'à la ligne 300 et le userform alimentait les cellules après la ligne 300.