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

[borain]

Bonjour à tous,
j'aimerai placer mes donner provenant de ma texbox à la 1ere ligne non vide de ma listbox
j'utilise ce code

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

 

[sylvanu]

Je ne comprend pas ce que vous essayez de m'expliquer.
En LIEN un Gif où j'insère plusieurs lignes sans problème.
Je ne peux pas faire grand chose de plus.
Dupliquer la ligne d'insertion, mais je n'en voit pas l’intérêt.

https://www.cjoint.com/c/JDjreCpACDY

 

[borain]

C'est super merci

 

[borain]

Je ne comprend pas ce que vous essayez de m'expliquer.
En LIEN un Gif où j'insère plusieurs lignes sans problème.
Je ne peux pas faire grand chose de plus.
Dupliquer la ligne d'insertion, mais je n'en voit pas l’intérêt.

https://www.cjoint.com/c/JDjreCpACDY

Bonsoir
tu peux me renvoyer le fichier en gif stp
j'éssaie chez moi mais rien

merci

 

[sylvanu]

Bonsoir,
Il suffit de cliquer sur le lien à la fin de mon post . Https/www.........
Vous pouvez même cliquer sur le lien de votre propre post. J'ai vérifié il marche.

 

[borain]

Je parles de ton fichier

 

[sylvanu]

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.

 

[borain]

Bonjour je comprends il faut que le usf soit sur la meme feuille pour que cela fonctionne
d'accord

 

[sylvanu]

Bonjour,
Moi, j'ai testé la fonction Insertion mais n'ai aucune connaissance de comment vous faites fonctionner votre logiciel, ni à partir d'où vous lancez votre userform.
Le mieux est de faire du pas à pas, vous verrez là où ça coince.

 

[jmfmarques]

Bonjour borain
Ce que moi, je ne comprends pas, c'est le sens que pourrait bien avoir de cette phrase

Bonjour je comprends il faut que le usf soit sur la meme feuille pour que cela fonctionne
d'accord

 

[borain]

Bonjour borain
Ce que moi, je ne comprends pas, c'est le sens que pourrait bien avoir de cette phrase

Je dis si le bouton 1 qui appelle le usf1 ce trouve sur la feuille 10 de mon classeur , cela ne fonctionne pas : ça écrase les données
pourtant lorsque le bouton se trouve sur la même feuille ça fonctionne ça insére les données

 

[jmfmarques]

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):

with worksheets("....")
  .range("...").value = ...
end with