Enregistrer un USF

[apdf]

Bonjour,

J'ai USF pour inscrire des adhérents qui fonctionne très bien, mais j'aimerais lui faire une petite modification
Lorsque je valide la liste d'adhérents qui se trouve dans les textbox il se mettent en colonne "C2" jusque la pas de problème mais j'aimerais que s'il y a déjà une liste dans la colonne "C" que sa s'enregistre a la première cellule vide sans effacer la colonne.

Je vous joins un fichier pour plus de clarté.

Merci d'avance pour votre aide.

 

[Pierrot93]

Re : Enregistrer un USF

Bonjour,

pas ouvert ton fichier, mais peut être comme ceci :

range("C65536").End(xlUp)(2).value = textbox1

bonne journée
@+

 

[apdf]

Re : Enregistrer un USF

Bonjour Pierrot,

Le code est actuellement comme ceci:

L = Sheets("Inscriptions").Range("B65000").End(xlUp).Row + 1 
    With Sheets("Inscriptions")
   j = 2
        For T = 1 To 100
            If Me.Controls("TextBox" & T) <> "" Then
            .Cells(j, 3) = Me.Controls("TextBox" & T)
            j = j + 1
            End If
        Next T
    End With

 

[Pierrot93]

Re : Enregistrer un USF

Re,

bah... modifie le comme suit :

L = Sheets("Inscriptions").Range("B65000").End(xlUp).Row + 1
    With Sheets("Inscriptions")
        For T = 1 To 100
            If Me.Controls("TextBox" & T) <> "" Then
                .Range("C65536").End(xlUp)(2).Value = Me.Controls("TextBox" & T)
            End If
        Next T
    End With

 

[apdf]

Re : Enregistrer un USF

Re,

Je te remercie et te souhaite une bonne journée