Insérer une Ligne vide a chaque Validation

[MuscatMimi]

Bonjour,a tous

Juste pour savoir

Est-il possible dans une validation via un Btn dans un usf d'insérer a chaque validation une ligne Vide??

Et si c'est possible, quelle conséquence ,lors d'une Recherche avec une Cbx et une ListBox placée dans un Usf?????,

Cordialement

 

[phlaurent55]

Re : Insérer une Ligne vide a chaque Validation

Bonjour,

oui, c'est possible
mais il ne faudra pas oublier lorsque tu alimenteras tes combobox et listbox ultérieurement , d'adapter leur contenu en fonction des lignes ajoutées

 

[MuscatMimi]

Re : Insérer une Ligne vide a chaque Validation

mais il ne faudra pas oublier lorsque tu alimenteras tes combobox et listbox ultérieurement , d'adapter leur contenu en fonction des lignes ajoutées

Pas bien compris,exemple?


@++++++++++

 

[phlaurent55]

Re : Insérer une Ligne vide a chaque Validation

Re,
je voulais simplement dire que si ( par exemple ) ta listbox fait référence à une plage de cellules (A1:A10) et qu'entre-temps tu as ajouté une ligne ( dans les 10 premières lignes),ta listbox sera toujours alimentée avec les lignes 1 à 10
et tu risques d'avoir des problèmes ( oubli de la ligne 11 qui portait le numéro 10 avant insertion)

est-ce assez clair ?

 

[MuscatMimi]

Re : Insérer une Ligne vide a chaque Validation

Merci de cette précision, ça j'y avait pensez
j'avais mal décripté ton explic

Mais je ne vois pas quelle procédure a ajouter dans ma validation pour insérer une ligne vide entre chaque Validation

 

[phlaurent55]

Re : Insérer une Ligne vide a chaque Validation

Re,

    Rows("10").Select
    Selection.Insert Shift:=xlDown

insèrera une ligne
fera descendre la ligne 10 qui portera finalement le numéro 11

il eu été plus facile de se comprendre si tu avais mis en pièce jointe un petit bout de fichier avec explications précises de ce que tu attends

 

[MuscatMimi]

Re : Insérer une Ligne vide a chaque Validation

Re

Voici mon code pour la Validation dans ma Bdd

'*****Validation dans Base de Données***********************************
Private Sub b_validation_Click()
'If Me.nom = "" Then
' MsgBox "Saisir un nom!"
''Me.nom.SetFocus
' Exit Sub
'End If
Set Temp = Sheets("Data").[A:A].Find(Me.ComboBox1, LookIn:=xlValues)
If Not Temp Is Nothing Then
If Temp.Row <> Ligne Then
MsgBox "Ce Nom de Produit Existe déjà!"
Exit Sub
End If
End If
Ligne = Sheets("Data").[A65000].End(xlUp).Row + 1
'---- transfert base
With Sheets("Data")
.Unprotect Password:="0000"

.Cells(Ligne, 1) = Format(Me.TextBox1, "dd/mm/yyyy") 'A
.Cells(Ligne, 2) = Me.TextBox2 'B
.Cells(Ligne, 3) = Me.ComboBox1 'C
.Cells(Ligne, 4) = Format(Me.TextBox3, "# ##0.00 €") 'D
.Cells(Ligne, 5) = Me.TextBox4 'E
.Cells(Ligne, 6) = Me.TextBox5 'F
.Cells(Ligne, 7) = Format(Me.TextBox6, "# ##0.00 €") 'G
.Cells(Ligne, 8) = Format(Me.TextBox7, "# ##0.00 €") 'H
.Cells(Ligne, 9) = Format(Me.TextBox8, "# ##0.00 €") 'I
.Cells(Ligne, 10) = Format(Me.TextBox9, "# ##0.00 €") 'J
.Cells(Ligne, 11) = Me.Commentaire
.Cells(Ligne, 12) = Me.TextBox10
.Protect Password:="0000"
End With
Me.ComboBox1.SetFocus
Sheets("Data").[A3:L5000].Sort Key1:=Sheets("Data").[A3]
Ligne = Sheets("Data").[C:C].Find(Me.ComboBox1, LookIn:=xlValues).Row
'majChoixNom

nettoie 'procédure vide Contrôles
End Sub

Donc a chaque fois que je valide, entre chaque validation il faut qu'il y es une ligne vide qui s'insére

 

[Excel-lent]

Re : Insérer une Ligne vide a chaque Validation

Bonjour le fil,

    Rows("10").[COLOR="Blue"]Select
    Selection.[/COLOR]Insert [COLOR="Red"]Shift:=xlDown[/COLOR]

Code pouvant être remplacé par ceci (faisant exactement la même chose) :

Rows("10").Insert

Car :
Shift:=xlDown valeur prise par défaut par Excel, donc si cette option te convient, tu n'es pas obligé de l'écrire.
Ceci te permet de sélectionner la ligne puis dire à excel de faire ... avec le truc sélectionné. Or pour faire ce genre d'opération, tu n'es pas obligé de sélectionner la ligne : gain de temps d'exécution.

Bonne après midi à tous

 

[MuscatMimi]

Re : Insérer une Ligne vide a chaque Validation

Bonjour Exce-lent

merci de ta réponse

Ca fonctionne pour une Validation , aprés toutes les données Validées,
sont les unes en dessous des autres, y a pas de ligne vide entre chaque

Cordialement

 

[Excel-lent]

Re : Insérer une Ligne vide a chaque Validation

Bonjour le fil,

y a pas de ligne vide entre chaque

La solution apporté (par phlaurent55, pour ma part je n'ai aucun mérite, je n'ai fais que l'optimiser) te convient?

C'est ce que tu voulais?

A te lire

 

[MuscatMimi]

Re : Insérer une Ligne vide a chaque Validation

Ben ,non, relis ma demande tu verra que ce n'est pas cela que j'ai demandé

a ++++++++++++

 

[kjin]

Re : Insérer une Ligne vide a chaque Validation

Bonsoir,
Pas sûr mais il me semble qu'il faut juste mettre

Ligne = Sheets("Data").[A65000].End(xlUp).Row + [COLOR="Blue"]2[/COLOR]

Non ?!

Edit : Pas lu la suite de la question, donc il faudra tester les cellules non vides pour alimenter tes contrôles ensuite, eh oui !
A+
kjin

 

[MuscatMimi]

Re : Insérer une Ligne vide a chaque Validation

Bonsoir kjin

merci de ton aide

rien ne fonctionne, pas grave j'abandonne**
bonne soirée

 

[Excel-lent]

Re : Insérer une Ligne vide a chaque Validation

Bonjour Exce-lent

merci de ta réponse

Ca fonctionne pour une Validation

Dans mon esprit, cela signifiais que tu avais compris la réponse de phlaurent55 et la mienne!

Mais au vue de la fin de ton message, j'avais l'impression du contraire! Bref je pensais que tu avais compris notre réponse, mais que tu avais encore quelques réglage à faire pour l'adapter correctement.

Mais je ne savais pas si tu voulais toujours de l'aide, ou si tu te débrouillais!

Maintenant c'est clair! 🙂

Sur ton fichier mis en ligne il n'y a ni ton code, ni ton UserForm! 😕 Donc j'ai mis une solution Private Sub Worksheet_Change qui a le mérite d'être indépendante de ton UserForm et de sa macro!

Mais est-ce compatible?

La macro proposé ci-joint, rajoute une ligne à chaque fois que tu saisie une nouvelle donnée dans la colonne A.

A te lire

Edition :

pas grave j'abandonne

Bon ben tant pis, je ne serais donc jamais si ma solution fait ton affaire 🙁

 

[kjin]

Re : Insérer une Ligne vide a chaque Validation

Bonsoir,
Pourquoi abandonner !?
Il me semble pourtant que la solution n'est pas bien loin
Par contre, tu auras un gros soucis pour trier ta base alors qu'elle comporte des lignes vides
A+
kjin