Remonter des données xls via macro VB
Otho
-
amigo -
amigo -
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
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
A voir également:
- Remonter des données xls via macro VB
- Fuite données maif - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Trier des données excel - Guide
- Sauvegarde des données - Guide
- Vb - Télécharger - Langages
1 réponse
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
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
