ajouter et supprimer des lignes avec userform?

[3ali]

bonjours mes amis;
je suis débutant,j'ai 1 feuil de classeur qui contient des bd et je veux ajouter et supprimer des lignes et ajouter des date par userform
et merci a vous
voir mon exemple
























open source software

 

[fhoest]

Re : ajouter et supprimer des lignes avec userform?

Bonjour 3ali,
Voici ton fichier en retour,
regarde si cela te va et si il ne faut pas quelques modifs
A+

 

[3ali]

Re : ajouter et supprimer des lignes avec userform?

Bonjour;
merci fhoest pour votre exemple; je veux ajouter des nom et prénom et matricule dans BD; avec cette exemple le bouton ajouter ne marche pas et si je supprime 1 ligne il reste vide(je veux que les lignes se déplace a la place de ligne vide)

 

[fhoest]

Re : ajouter et supprimer des lignes avec userform?

Bonsoir,
remplace le code du commandbutton2 par celui ci

Private Sub CommandButton2_Click()
With Sheets(1)
.Rows(ligne).Delete
End With
End Sub

ensuite:
pour commandbutton1:

Private Sub CommandButton1_Click()
With Sheets(1)
drligne = .[k:g].Find("*", , , , 1, 2).Row + 1
.Range("g" & drligne) = ComboBox2
.Range("h" & drligne) = ComboBox1
.Range("i" & drligne) = TextBox1
.Range("j" & drligne) = TextBox2
.Range("k" & drligne) = TextBox4
End With
Call raffraichir
End Sub

et remplacer sub combobox1_change() par:

Private Sub ComboBox1_AfterUpdate()
With Sheets(1)
On Error Resume Next
ligne = .[h:h].Find(ComboBox1, , , , 1, 2).Row
TextBox1 = .Range("i" & ligne)
TextBox2 = .Range("j" & ligne)
TextBox4 = .Range("k" & ligne)
End With
End Sub

A bientôt.

 

[3ali]

Re : ajouter et supprimer des lignes avec userform?

BONSOIR
Mr fhoest le code du commandbutton2 (bouton supprimer) ne marche pas
et merci pour votre aide
















авто из Ñ￾понии

 

[fhoest]

Re : ajouter et supprimer des lignes avec userform?

Bonjour,

Private Sub CommandButton2_Click()
msgbox ligne
Rows(ligne).Delete
End Sub

essaie comme ceci
normalement un message donnera le numéro de ligne qui va disparaître
si ça fonctionne la ligne
msgbox ligne est a effacer
A bientôt

 

[3ali]

Re : ajouter et supprimer des lignes avec userform?

bonjour
"le bouton suppression" ne marche pas avec se code:
Private Sub CommandButton2_Click()
msgbox ligne
Rows(ligne).Delete
End Sub

Rows(ligne).Delete (souligner en jaune!)

 

[3ali]

Re : ajouter et supprimer des lignes avec userform?

bonjour;

Code:

Private Sub CommandButton2_Click()
msgbox ligne
Rows(ligne).Delete
End sub

ne marche pas Rows(ligne).Delete:colorer en jaune

 

[3ali]

Re : ajouter et supprimer des lignes avec userform?

le code ne marche pas
voir mon fichier

 

[3ali]

Re : ajouter et supprimer des lignes avec userform?

OUI ca plante au niveau ce ligne:".Range("g" & ligne).EntireRow.Delete" m'affiche couleur jaune VBA

 

[3ali]

Re : ajouter et supprimer des lignes avec userform?

le message de déboggage (voir image)
apres ce message il s'affiche ".Range("g" & ligne).EntireRow.Delete" souligner en jaune

 

[jacky49]

Re : ajouter et supprimer des lignes avec userform?

Bosoir Jean Marcel,

j'ai tester et chez moi, pas de bug, cela fonctionne.
Juste un Bug lorsque je veux Ajouter à la place de Supprimer.
j'ai excel 2007
a+
jacky

 

[fhoest]

Re : ajouter et supprimer des lignes avec userform?

Bonsoir a tous,
dans le premier fichier que je t'ai fais as tu tout copier car dans le modules 2
tu dois imperativement avoir les lignes de code

Public ligne As Long
Public drligne As Long

en haut du module
si pas la valeur de ligne=0 donc erreur sur tous les code contenant ligne que je t'ai proposer ,car je ne comprends pas ,chez moi tout les codes que je t'ai proposer sur l'effacement fonctionne.
A+
Quel est la valeur de ligne avec le message? avant le bugg...

Private Sub CommandButton2_Click()
[COLOR="Red"]if ligne=0 then exit sub[/COLOR]
With Sheets(1)
.Rows(ligne).Delete
End With
End Sub

ajoute la ligne en rouge et essai les 3 codes proposé de chacun,je pense que tu appui sur le commandbutton sans avoir préalablement fait les choix dans les divers combobox,
le code n'est pas devint il faut faire les bonnes actions avant de vouloir supprimer la ligne.

 

[jacky49]

Re : ajouter et supprimer des lignes avec userform?

Bonjour le forum, jean marcel,

j'ai essayé le fichoer avec l'ajout et la suppression et cela fonctionne sans problème chez moi.
a+
jacky

 

[3ali]

Re : ajouter et supprimer des lignes avec userform?

bonjour
pour moi ca marche bien mon probleme c l'orsque je clique sur le bouton ajouter (si les cases userform son vide) il me donne des lines dans sheet(1) qui sont vide ;comment empecher l'ajout par msgbox lors de ma saisi ds les cases de l'userform .
2eme probleme les nom et prenom se repete 2x ou 3x dans combobox2 si j'ajoute des lignes.