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

Bonjour Borain,
Vous n'auriez pas un petit fichier exemple ?

mapomme · 8 Avril 2020

Bonsoir @borain, @sylvanu

Voir fichier joint. le code est dans module1.

VB:

Sub test()
Dim PremCellVide As Long
   On Error Resume Next
   PremCellVide = Range("a1:a" & Rows.Count).SpecialCells(xlCellTypeBlanks).Areas(1)(1).Row
   On Error GoTo 0
   If PremCellVide = 0 Then MsgBox "Aucune cellule vide en colonne A": Exit Sub
   MsgBox "Première cellule vide en colonne A en ligne " & PremCellVide
End Sub

sylvanu · 9 Avril 2020

Bonjour Borain, MaPomme,
Vous pourriez préciser le problème ?
J'ai fait un essai et la listbox est bien remplit sur la première ligne vide de la feuil1.

borain · 9 Avril 2020

je veux que le remplissage ce fait au début, genre la premiere ligne de ma listbox

sylvanu · 9 Avril 2020

j'aimerai placer mes donner provenant de ma texbox à la 1ere ligne non vide de ma listbox

Et c'est exactement ce que vous faites.
( en fait "derligne" est généralement utilisé comme variable pour signifier Dernière Ligne )

En fait il vous faut insérer une ligne puis y mettre les données, alors que vous cherchez la première ligne vide pour y insérer les données.

Comme par exemple :

VB:

Private Sub CommandButton1_Click()
With Sheets("FEUIL11")
        Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        .Range("A2") = Me.Lbl_Date
        .Range("B2") = Me.TextBox3
        .Range("C2") = Me.ComboBox2
        .Range("D2") = Me.TextBox2
        .Range("E2") = Me.TextBox1
        .Range("F2") = Me.TextBox6
        .Range("G2") = Me.TextBox7
        .Range("h2") = Me.ComboBox3
End With
    Unload Me
    UserForm1.Show
End Sub

borain · 9 Avril 2020

sylvanu à dit:
Et c'est exactement ce que vous faites.
( en fait "derligne" est généralement utilisé comme variable pour signifier Dernière Ligne )

En fait il vous faut insérer une ligne puis y mettre les données, alors que vous cherchez la première ligne vide pour y insérer les données.

Comme par exemple :

VB:

Private Sub CommandButton1_Click() With Sheets("FEUIL11") Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Range("A2") = Me.Lbl_Date .Range("B2") = Me.TextBox3 .Range("C2") = Me.ComboBox2 .Range("D2") = Me.TextBox2 .Range("E2") = Me.TextBox1 .Range("F2") = Me.TextBox6 .Range("G2") = Me.TextBox7 .Range("h2") = Me.ComboBox3 End With Unload Me UserForm1.Show End Sub

Merci pour ton aide
mais j'ai essayé avec ce code ça écrase les données à chaque fois en a2 , pourtant j'ai envie d'insérer à chaque fois.

sylvanu · 9 Avril 2020

La ligne :

VB:

Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

insére une ligne en 2, donc on ne peut pas écraser les données.
Essayez sur un fichier vierge l'enregistreur de macros, en insérant une ligne en 2, vous obtenez :

Code:

Sub Macro2()
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Donc je pense que vous avez mal implémenté la macro.
En PJ un essai qui a l'air de marcher.

borain · 9 Avril 2020

sylvanu à dit:
Bonjour Borain, MaPomme,
Vous pourriez préciser le problème ?
J'ai fait un essai et la listbox est bien remplit sur la première ligne vide de la feuil1.
Regarde la pièce jointe 1061838

je suis surement hs mais j'aimerai savoir comment faire cet enregistrement de l'ecran et le posté comme une image.
je fais bien l'enregistrement sur power point mais apres j'arrive pas a le poster comme une image .

merci .

pour insertion de la ligne en a2 j'ai testé le fichier c'est toujours pareil

sylvanu · 9 Avril 2020

Ce n'est pas une image mais un gif. Je le fais avec ApowerREC. Il fait aussi des capture vidéos.

ApowerREC – Meilleur Enregistreur d'écran pour PC et Mobile

ApowerREC est un logiciel d'enregistreur d’écran multiplateforme qui peut être utilisé pour enregistrer tous les contenus affichés sur l'écran de votre Windows / Mac et sur les appareils Android et iOS.

www.apowersoft.fr

Avez vous testé ma PJ du post #8 ?

Envoyé votre code modifié, je regarderais.

borain · 9 Avril 2020

POUR LE POST #8 J'ai testé toujours pareil!

sylvanu · 9 Avril 2020

J'ai l'impression qu'on ne se comprend pas.
Ci dessous le fichier du post #8.
J’insère l'utilisateur AAAAA.
Lorsque je fais Valider, les données s'insèrent bien en ligne 2 qui vient d'être crée.
La ligne 2 du départ est en rose, après insertion elle est en 3.

Quel est le point qui m'échappe ?

borain · 9 Avril 2020

Après la ligne que vous venez d'insérer pouvez vous insérer une autre ligne ?

sylvanu · 9 Avril 2020

Pourquoi faire ? Bien sur qu'on peut en insérer, vous répéter la commande :

VB:

    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

J'ai du mal à vous suivre. J'attendais une réponse comme quoi ça marche ou ça marche pas, pas une nouvelle requête !
Pouvez vous me dire, dans le gif ci dessus ce qui ne va pas par rapport à votre demande ?

borain · 9 Avril 2020

sylvanu à dit:
Pourquoi faire ? Bien sur qu'on peut en insérer, vous répéter la commande :

VB:

Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

J'ai du mal à vous suivre. J'attendais une réponse comme quoi ça marche ou ça marche pas, pas une nouvelle requête !
Pouvez vous me dire, dans le gif ci dessus ce qui ne va pas par rapport à votre demande ?

Désolé si je m' exprime pas assez bien !
Et je vous remercie pour l'attention que vous porter à mon problème
Mais mon problème est le suivant
J'insère la première ligne oui ça marche
Mais lorsque je veux insérer la suivante ça écrasé la ligne que je venais d'inserer

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

borain

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

borain

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

borain

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

borain

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

ApowerREC – Meilleur Enregistreur d'écran pour PC et Mobile

borain

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

borain

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

borain

XLDnaute Nouveau

Discussions similaires