Modifier une ligne

[gulibert]

Bonjour à tous,
Je bloque actuellement sur une sélection de ligne, je n'arrive pas à selectionner une ligne pour la modifier. J'ai mis un Cell.value=ActiveCell (car je suis dans une ListBox) mais dés que je clique dans ma listbox, la donnée s'efface. Je ne comprends plus rien le langage VBA est décidément bizarre.
Merci d'avance

 

[mutzik]

Re : Modifier une ligne

Bonjour Gulibert,

Avoue quand même qu'il est difficile de t'aider avec les maigres données que tu nous fourni. Avec ton fichier, cela irait un ptit peu mieux (sans données confid. bien sur)

 

[gulibert]

Re : Modifier une ligne

Bonjour,
J'ai enfin réussi à joindre un fichier sur ce forum:http://cjoint.com/?irlbigtY5n
Donc en fait c'est lorsque je selectionne un élement dans ma listbox en haut à gauche que pouf il s'efface je ne comprends pas...
Merci pour ton aide c'est vraiment sympa

 

[PascalXLD]

Re : Modifier une ligne

Bonjour

Et bien c'est justement ton Cell.Value = ActiveCell qui met la zizanie.

Etant donné que la cellule active est vide tu mets du vide dans ta cellule donc cela vide ta listbox aussi puisque tu es en rowsource.

Pourquoi tu as mis ce Cell.Value = ActiveCell ? C'est quoi le but

 

[gulibert]

Re : Modifier une ligne

Bonjour pascal, re mutzik,

Pourquoi tu as mis ce Cell.Value = ActiveCell ? C'est quoi le but

En fait c'était pour sélectionner la ligne correspondant à mon élément pour pouvoir la modifier
Mais je me disais bien que ca venait de la, j'arrive pas à trouver comment sélectionner cette ligne
Merci beaucoup pour votre aide c'est adorable

 

[PascalXLD]

Re : Modifier une ligne

Re

Pour selectionner la cellule fait plutot

cell.select

Sinon tu n'es pas obligé de selectionner pour modifier

 

[gulibert]

Re : Modifier une ligne

Re pascal, bonjour aimable visiteur,
Pourrais tu m'expliquer comment je puis modifier ma ligne sans la selectionner s'il te plais.
Merci beaucoup

 

[PascalXLD]

Re : Modifier une ligne

re

exemple

Dim lig As Long

Private Sub LiBFiche_Click()
Dim Plage As Range
Dim Cell As Range
Set Plage = Sheets(1).Range("A3:A" & DerLigne)
For Each Cell In Plage
If Cell.Value = LiBFiche.Value Then
TxtPoste = Cell.Offset(0, 2).Value
TxtNumSer = Cell.Offset(0, 8).Value
TxtNumVign = Cell.Offset(0, 3).Value
TxtNumSer.Visible = True
TxtNumVign.Visible = True
TxtPoste.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
lig =cell.row
exit for
End If
Next Cell
'CommandButton1.Visible = True
End Sub


Private Sub CommandButton1_Click()
       
    Cells(lig, 13).Value = Me.TxtTravaux.Value
    Cells(lig, 14).Value = Me.TxtObs.Value
    Cells(lig, 15).Value = Me.TxtCapit.Value
    Unload Me
End Sub

Bon courage

 

[gulibert]

Re : Modifier une ligne

Re,
Ca ne supprime plus il est vrai mais excel me dit que lig n'est pas reconnu alors que je l'ai bien inséré dans les instructions, je ne comprends pas... Si tu peux m'éclairer?
Merci beaucoup

 

[PascalXLD]

Re : Modifier une ligne

Re

Tu l'as bien mis comme moi en dehors d'un sub et tu as supprimé ta déclaration lig que tu avais sur
Private Sub CommandButton1_Click()

??

 

[gulibert]

Re : Modifier une ligne

Re
Non je ne l'ai pas mis hors du sub car il me dit que seul les commentaires peuvent se mettre hors du sub donc il refuse. Et je n'arrive pas à le forcer à l'extérieur.

 

[PascalXLD]

Re : Modifier une ligne

Re

Tu en as déjà des variables déclarées en haut de ton code de ton uf

tu as juste à rajouter ton

Dim lig as long

en dessous des autres et à retirer ta déclaration de ton
Private Sub CommandButton1_Click()

 

[gulibert]

Re : Modifier une ligne

Re,
Ok c'est bon en fait je l'ai mis en haut sous un OptionExplicit et ça marche nickel, merci beaucoup c'est vraiment sympa de ta part d'être si disponible pour les autres.
Bon apétit