(RESOLU) Un coup de pouce : Suivi de Chiffrage

Morihei

XLDnaute Nouveau
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.
 

Pièces jointes

  • Test suivi_1.xlsm
    749 KB · Affichages: 297
Dernière édition:

Bebere

XLDnaute Barbatruc
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
Code:
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

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
6
Affichages
422

Statistiques des forums

Discussions
312 913
Messages
2 093 535
Membres
105 752
dernier inscrit
fred13340