remonter des données xls via macro VB Fermé

Question

Bonjour,
Pourrez vous me montrer comment revenir toujours à (A1) sous VB excel  après la saisie dans un ComboBox sans faire de tri. voici l'exemple :

Private Sub CommandButton1_Click()
Dim L As Integer
Dim i As Integer
Dim Nom As String
Nom = ComboBox1.Value
If Nom = "" Then Exit Sub

        L = Sheets("accueil").Range("A65536").End(xlUp).Row + 1
        Sheets("accueil").Range("A" & 30).Value = Nom
        Sheets("accueil").Columns("A").Sort Key1:=Range("A1"),  ..... je pense que c'est ici que j'ai le problème

Merci de me répondre

amigo · Answer

bonjour,

pourquoi tu determines L
L = Sheets("accueil").Range("A65536").End(xlUp).Row + 1  

et ensuite tu mets la valeur Nom dans A30, je pense que tu devrais plutot ecrire
Sheets("accueil").Range("A" & L).Value = Nom

pour revenir à A1 tu enlèves
Sheets("accueil").Columns("A").Sort Key1:=Range("A1"), .....
que tu remplaces par
Range("A1").Select

Remonter des données xls via macro VB

1 réponse

Discussions similaires

Newsletters