XL 2016 placer les donneées à la 1ere ligne non vide

borain

XLDnaute Nouveau
Bonjour à tous,
j'aimerai placer mes donner provenant de ma texbox à la 1ere ligne non vide de ma listbox
j'utilise ce code
VB:
Private Sub CommandButton1_Click()
Dim derligne As Integer

            derligne = Sheets("FEUIL11").Range("A65356").End(xlUp).Row + 1
         
             Range("A" & derligne) = Me.Lbl_Date
              Range("B" & derligne) = Me.TextBox3
              Range("C" & derligne) = Me.ComboBox2
              Range("D" & derligne) = Me.TextBox2
              Range("E" & derligne) = Me.TextBox1
             
              Range("F" & derligne) = Me.TextBox6
              Range("G" & derligne) = Me.TextBox7
             Range("h" & derligne) = Me.ComboBox3

   
            Unload Me
            UserForm1.Show
           
         
    
End Sub
mais ça envoi toujours en bas
merci pour votre aide
 
Solution
Bonsoir,
Excusez le quiproquo :
tu peux me renvoyer le fichier en gif
En PJ le fichier du post #8.
Je viens de le re-tester sur les 4 premières lignes. Pour moi, ça marche. Sauf si j'ai raté quelque chose.
Etant sous XL2007 et vous sous XL2016, ce ne peut pas être un problème de version XL.
Testez ce fichier et dites moi.

Ma procédure ( dans le cas où je ferais quelque chose de différent de vous )
Sur feuill11 je clique sur le bouton 1.
Je remplis Date, Cade anal, Utlisateur ( et rien d'autre ) puis j'appuie sur Valider.
Les datas sont insérer en ligne 2.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Excusez le quiproquo :
tu peux me renvoyer le fichier en gif
En PJ le fichier du post #8.
Je viens de le re-tester sur les 4 premières lignes. Pour moi, ça marche. Sauf si j'ai raté quelque chose.
Etant sous XL2007 et vous sous XL2016, ce ne peut pas être un problème de version XL.
Testez ce fichier et dites moi.

Ma procédure ( dans le cas où je ferais quelque chose de différent de vous )
Sur feuill11 je clique sur le bouton 1.
Je remplis Date, Cade anal, Utlisateur ( et rien d'autre ) puis j'appuie sur Valider.
Les datas sont insérer en ligne 2.
 

Pièces jointes

  • test (25) (4).xlsm
    74.7 KB · Affichages: 9

jmfmarques

XLDnaute Accro
Ce que je traduis donc plus exactement ainsi, borain
"Cela ne fonctionne que si la feuille active est bien celle à traiter"
On se met en règle générale à l'abri de telles mésaventures en prenant le soin (cela ne mange pas de pain) de préciser les choses, genre (exemple):
Code:
with worksheets("....")
  .range("...").value = ...
end with
 

Discussions similaires

Réponses
7
Affichages
949
H
Réponses
19
Affichages
5 K

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO