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

borain · 8 Avril 2020

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

sylvanu · 13 Avril 2020

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 · 9 Avril 2020

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 · 9 Avril 2020

C'est super merci

borain · 13 Avril 2020

sylvanu à dit:
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 · 13 Avril 2020

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 · 13 Avril 2020

Je parles de ton fichier

sylvanu · 13 Avril 2020

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 · 14 Avril 2020

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

sylvanu · 14 Avril 2020

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 · 14 Avril 2020

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

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

borain · 14 Avril 2020

jmfmarques à dit:
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 · 14 Avril 2020

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

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

borain

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

borain

XLDnaute Nouveau

borain

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

borain

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

borain

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

borain

XLDnaute Nouveau

jmfmarques

XLDnaute Accro

Discussions similaires