(RESOLU) Un coup de pouce : Suivi de Chiffrage

[Morihei]

Bonsoir à tous,

j'ai un souci concernant la possibilité d’insérer ou de modifier une ligne d'un tableau avec un Userform.

Pour modifier :
= Petite explication : dans mon Userform (modidev) en sélectionnant un n° de devis je souhaiterai pouvoir modifier ses données = donc la macro M.A.J la ligne suivant la valeur du Textbox19.

Pour insertion :
= dans mon Userform (modidev) en sélectionnant un n° de devis (ex: 12.01001) je souhaiterai pouvoir insérer juste ligne en dessous ( 12.01001Bis) avec nouvelles données.

Fichier joint plus explicite.

Des connaissances et des codes piochés

Merci aux personnes qui se pencherons sur mon problème.

 

[Morihei]

Re : Un coup de pouce : Suivi de Chiffrage

Bonsoir,

ou pour mieux comprendre = comment sélectionner la ligne correspondant à la valeur d'un combobox
et ainsi modifier les saisies en rapport avec le Combobox.value

 

[Bebere]

Re : Un coup de pouce : Suivi de Chiffrage

bonjour Morihei
bienvenue
find trouve la 1ère occurence(cel.row),nbn=le nbre d'occurences

code à tester

Set cel = .Columns(3).Find(Me.TextBox19, LookIn:=xlValues)
If Not cel Is Nothing Then
nbn = Application.CountIf(.Range("C:C"), "=" & Me.TextBox19)
.Rows(cel.Row + nbn).Insert
End If

 

[Morihei]

Re : Un coup de pouce : Suivi de Chiffrage

Bonsoir Bebere,

j'ai trouvé en faisant celà

Dl1 = (ComboBox1.ListIndex) + 15 ' ma premiere ligne Rows
Rows(Dl1 + 1).Select ' me selectionne donc la ligne juste en dessous de celle recherchée
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' et insertion d'une ligne

Merci àtoi