formulaire

finpier34

XLDnaute Nouveau
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
 

Pièces jointes

  • essai formulaire.xlsm
    141 KB · Affichages: 69
  • essai formulaire.xlsm
    141 KB · Affichages: 73
  • essai formulaire.xlsm
    141 KB · Affichages: 70

Hulk

XLDnaute Barbatruc
Re : formulaire

Hello tout le monde :)

Il y a en tous cas une erreur sur cette ligne de code.
Code:
derligne = .Range("A65536").End(xlUp.Row) + 1

Plutôt comme ça...
Code:
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...

Code:
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.
 
Dernière édition:

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088