Remplacer (écraser) une ligne

Jules · 26 Mars 2007

Bonjour à tous.
Dans le fichier joint, je cherche en vain le moyen de remplacer une ligne lors de la modification de certaines de ses données.
J'utilise une multipage : via une listview, j'affiche ma sélection (page rechercher) dans des textbox (page modifier).
Une fois les modifications insérées, je les enregistre dans la feuille.
Or, mon code créé une nouvelle entrée dans la feuille au lieu de remplacer (écraser) la ligne modifiée.

PHP:

Private Sub CommandButton6_Click()
Dim n As Integer
Dim ligne As Variant
For n = 1 To 5
If Sheets("BD").Cells(65536, n).End(xlUp).Row > ligne Then ligne = Sheets("BD").Cells(65536, n).End(xlUp).Row
Next n
Sheets("BD").Cells(ligne + 1, 1) = TextBox4.Text
Sheets("BD").Cells(ligne + 1, 2) = TextBox5.Text
Sheets("BD").Cells(ligne + 1, 3) = TextBox6.Text
Sheets("BD").Cells(ligne + 1, 4) = TextBox7.Text
Sheets("BD").Cells(ligne + 1, 5) = TextBox8.Text
End Sub

Une ame charitable pourrait-elle m'expliquer comment solutionner ce petit problème ?
D'avance, mille mercis.

wilfried_42 · 26 Mars 2007

Re : Remplacer (écraser) une ligne

bonjour jules

rien qu'en regardant ton texte, je te confirme que ca ajoute

For n = 1 To 5
If Sheets("BD").Cells(65536, n).End(xlUp).Row > ligne Then ligne = Sheets("BD").Cells(65536, n).End(xlUp).Row
Next n

cette partie te donne la derniere ligne utilisée en controlant que les colonnes soient vide ou pleine

une fois que ta deriniere ligne et trouvée,
tu ajoutes 1 à ligne donc tu ajoutes dans ta base

dans ta fonction selectionner

TextBox4.Text = Sheets("BD").Cells(i + 1, 1)
TextBox5.Text = Sheets("BD").Cells(i + 1, 2)
TextBox6.Text = Sheets("BD").Cells(i + 1, 3)
TextBox7.Text = Sheets("BD").Cells(i + 1, 4)
TextBox8.Text = Sheets("BD").Cells(i + 1, 5)
textbox9.text = cstr(i+1)

tu ajoutes une textbox9 invisible( Visible : False)

et dans ta routine :

Private Sub CommandButton6_Click()
Dim n As Integer
Dim ligne As Variant
ligne = cint(textbox8.text)
Sheets("BD").Cells(ligne , 1) = TextBox4.Text
Sheets("BD").Cells(ligne , 2) = TextBox5.Text
Sheets("BD").Cells(ligne , 3) = TextBox6.Text
Sheets("BD").Cells(ligne , 4) = TextBox7.Text
Sheets("BD").Cells(ligne , 5) = TextBox8.Text

Jules · 26 Mars 2007

Re : Remplacer (écraser) une ligne

Un grand merci pour ton aide Wilfried : ton code fonctionne à la perfection.
J'abuse sans doute mais saurais-tu me dire, toujours pour le meme fichier comment :
supprimer une ligne sélectionnée simultanément dans la feuille et dans la listeview ?
Cordialement

wilfried_42 · 26 Mars 2007

Re : Remplacer (écraser) une ligne

re:

quand tu supprime la ligne, relance a macro pour regenerer ta listeview, il y à peut etre un autre moyen mais je connais pas suffisemment les userforms

Remplacer (écraser) une ligne

Jules

Guest

Pièces jointes

wilfried_42

XLDnaute Barbatruc

Jules

Guest

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Remplacer (écraser) une ligne

Jules

Guest

Pièces jointes

wilfried_42

XLDnaute Barbatruc

Jules

Guest

wilfried_42

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency