Discussion :

[Fraisesdesbois]

Bonjour,

J'aimerais pouvoir insérer une ligne sous une autre si celle ci contient au moins une cellule avec un texte spécifique. tout ça en VBA...

Si par exemple j'ai le tableau ci dessous

Ref 	ERR	STATUT	A	B	C	D	E	F
Ref 1								
Ref 2								
Ref 3								
Ref 4								
Ref 5								
Ref 6								
Ref 7	

J'aimerais que si je saisis dans une textbox "Ref3", les informations que je saisis se mettent sous la ligne Ref 3

Pourriez vous svp me renseigner.

Merci beaucoup

[Daniel.C]

Bonjour,

les informations que je saisis

Tu les saisis où ? et elles vont où, sur la ligne insérée ?

[Fraisesdesbois]

Bonjour Daniel.C

Je les saisis via une userform.

les titres des colonnes correspond aux différentes textbox de ma userform

[Daniel.C]

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Ligne As Long, Col As Long
Col = Application.Match("Ref", [1:1], 0)
Ligne = Application.Match(Me.Ref.Text, Columns(Col), 0) + 1
Rows(Ligne).Insert
'textbox Err
Col = Application.Match("Err", [1:1], 0)
Cells(Ligne, Col) = Me.Err.Text
'etc.

S'il y a beaucoup de textboxes, on peut envisager une boucle. Dans ce cas, dis-le.