Bonjour  
 je vais essayer de mieux expliquer mon problème : en fait j'ai un formulaire sur un userform de saisie d'informations qui doivent s'insérer dans une feuille excel. J'aimerais que si userform.textbox1.value est déjà dans le première colonne de la feuil, alors on insere une ligne juste en dessous de cette ligne contenant la cellule qui contient userform.textbox1.value et ensuite on insère les données du formulaire dans cette ligne. Voici mon code en dessous. Merci beaucoup d'avance !
 
Private Sub CommandButton1_Ajouter_Click()
 
Dim i As Integer, numlign As Integer
numlign = Sheets("Liste" ).Range("A65536" ).End(xlUp).Row
With Sheets("Liste" )
For i = 7 To numlign
If .Cells(i, 1).Value = UserForm2.TextBox1 Then
.Cells(i, 1).Insert Shift:=xlDown
Range("A" & i).Value = UCase(TextBox1.Value)
Range("B" & i).Value = UCase(TextBox2.Value)
Range("C" & i).Value = UCase(TextBox3.Value)
Range("D" & i).Value = UCase(TextBox4.Value)
Range("E" & i).Value = UCase(TextBox5.Value)
Range("F" & i).Value = UCase(TextBox6.Value)
Range("H" & i).Value = UCase(TextBox7.Value)
MsgBox "Données bien enregistrées !"
Exit For
End If
Next
UserForm2.Hide
 
' num = Sheets("Liste" ).Range("TextBox1.Value" ).Insert Shift:=xlDown
'num = a.Insert
End With
 
End Sub

 
           Bonjour.
 
           En fait quelle est la question, la difficulté rencontrée ?
 
           Sinon il y a des lignes qui me plaisent moyen, par exemple la ligne n° …
 
           Ah zut !  Les lignes ne sont pas numérotées en utilisant l'icône de code prévue à cet effet
                        comme indiqué dans les règles du forum !
 
           Indenter le code faciliterait la lecture et donnerait un peu plus envie …
 
           Et puis ouvrir un deuxième sujet pour une même problématique est limite insultant
           pour celui qui a pris la peine de te répondre dans le premier sujet.
 
           On arrête ici et on reprend dans le sujet d'origine …

Doublon avec ce sujet : http://forum.hardware.fr/hfr/Progr [...] 9331_1.htm