modifier ligne sans la rajouter en plus

[lim40]

bonjour à tous,

j'ai un ptit souci...

quand je veux modifier une donnée dans ma feuille d'près un usf, cela modifie bien celle-ci mais elle rajoute une ligne au lieu de modifié celle selectionner.
voici mon code

merci de votre aide


Private Sub CommandButton_OK_Click()

Dim L As Integer

With Worksheets("Intervention")
If Pointeur_intervention = 0 Then
L = Range("A65536").End(xlUp).Row + 1

Else

L = Pointeur_intervention

End If




If Flag_Modif Then

If INTERVENTION.Cbx_Inter = "" Then
Msg = "Mettez le Numéro d'intervention?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Oubli de Saisie "
Réponse = MsgBox(Msg, Style, Title)
If Réponse = 6 Then Exit Sub

End If

.Range("B" & L).Value = INTERVENTION.Cbx_Inter

Else

If INTERVENTION.TextBox_N°intervention = "" Then
Msg = "Mettez le Numéro d'intervention?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Oubli de Saisie "
Réponse = MsgBox(Msg, Style, Title)
If Réponse = 6 Then Exit Sub

End If

.Range("B" & L).Value = INTERVENTION.TextBox_N°intervention

End If

Call Initialise_intervention

End With

End Sub



merci j'ai trouvé l'erreur

 

[Guest]

Re : modifier ligne sans la rajouter en plus

Bonjour Lim,

Dans,

[COLOR=#0000ff]If Pointeur_intervention = 0 Then[/COLOR]
[COLOR=#0000ff]L = Range("A65536").End(xlUp).Row + 1[/COLOR]
 
[COLOR=#0000ff]Else[/COLOR]
 
[COLOR=#0000ff]L = Pointeur_intervention[/COLOR]

La variable 'L' représente le numéro de ligne à corriger.
Elle change suivant la valeur de la Variable 'Pointeur_intervention'
Si celle-ci est = 0 on ajoute une ligne; si elle est <>0 la ligne corrigée sera = Pointeur_intervention.

Mais dans ce que tu nous donnes nous ne pouvons savoir à quel endroit est changée cette variable 'Pointeur_intervention'.
Ton fichier joint est endommagé.
Alors donnes nous un fichier dégraissé et anonymisé pour qu'on puisse y voir plus clair.

A+

 

[lim40]

Re : modifier ligne sans la rajouter en plus

Bonjour Lim,

Dans,

[COLOR=#0000ff]If Pointeur_intervention = 0 Then[/COLOR]
[COLOR=#0000ff]L = Range("A65536").End(xlUp).Row + 1[/COLOR]
 
[COLOR=#0000ff]Else[/COLOR]
 
[COLOR=#0000ff]L = Pointeur_intervention[/COLOR]

La variable 'L' représente le numéro de ligne à corriger.
Elle change suivant la valeur de la Variable 'Pointeur_intervention'
Si celle-ci est = 0 on ajoute une ligne; si elle est <>0 la ligne corrigée sera = Pointeur_intervention.

Mais dans ce que tu nous donnes nous ne pouvons savoir à quel endroit est changée cette variable 'Pointeur_intervention'.
Ton fichier joint est endommagé.
Alors donnes nous un fichier dégraissé et anonymisé pour qu'on puisse y voir plus clair.

A+

merci de ton aide..
l'erreur etait dans le module dans ma variable

lim