RE
j'ai réussi à faire ca, sauf que ma marco rajoute bien une ligne avec le même format mais j'arrive pas a supprimer le contenu de la ligne que j’ajoute automatiquement
Hum je vous propose quelque chose que vous n'utilisez pas
Dans le fichier que je vous ai proposé, voici le code corrigé
Sub Ajout()
Dim nb As Byte
On Error Resume Next
nb = InputBox("Combien de ligne voulez vous ? ")
If nb = 0 Then GoTo Fin
If Range("A" & ActiveCell.Row).Value Like "*ID*" And ActiveCell.Row > 2 Then
Range("A" & (ActiveCell.Row + 1)).Resize(nb).EntireRow.Insert
Else: MsgBox "Veuillez sélectionner cellule ayant une valeur en colonne A et en dehors des lignes 1 et 2"
End If
Exit Sub
Fin: MsgBox " Veillez entrer un nombre s'il vous plait"
End Sub
La ligne considérée suppose que vous avez un ID en colonne A. Cette considération pour éviter un souci lorsque vous êtes positionné dans les colonnes de titre "Quality",...
Vous pourriez positionner les titres en colonne A aussi mais à vous de voir.
Crdlt