formulaire

[finpier34]

bonjour a tous,
je fais une erreur sur un formulaire mais impossible de la trouver.

je veux mettre le contenu de la texbox1 dans la feuil1 en A2 en validant la cowbobox "validation"

si quelqu'un peu prendre un peu de temps pour voir mon fichier je l'en remercie d'avance

bonne soirée a tous

GP

 

[Hulk]

Re : formulaire

Hello tout le monde 🙂

Il y a en tous cas une erreur sur cette ligne de code.

derligne = .Range("A65536").End(xlUp.Row) + 1

Plutôt comme ça...

derligne = .Range("A65536").End(xlUp).Row + 1

Pour le reste je ne comprends pas...

Si c'est pour passer la valeur du TextBox1 sur la ligne suivante à chaque validation, je verrais plutôt un truc comme ça...

With Worksheets("feuil1")
    derligne = .Range("A65536").End(xlUp).Row + 1
    For Each ctrl In UserForm1.Controls
        If TextBox1.Value > 0 Then Feuil1.Cells(derligne, 1) = TextBox1.Value
    Next
End With

À paufiner.

 

[finpier34]

Re : formulaire

merci beaucoup
et bonne soirée
GP