Chtitefanny
XLDnaute Junior
Bonjour à tous,
Je suis toujours sur la même macro. Oui. Mais j'aimerais l'améliorer.
Je voudrais pouvoir inserrer un nombre de ligne, que j'aurais indiqué et que les lignes d'inserrés ai un nom différent.
Je rappelle la macro et j'esplique :
Il faudrais que pour un nombre de ligne donnée, leurs noms soient différent. Sous la forme : "14xxx.y". Avec "xxx" qui ne change pas et "y" qui est A, B, C ... suivant le nombre de ligne d'indiqué.
Exemple :
5 lignes d'inserrées :
14004.A
14004.B
14004.C
14004.D
14004.E
C'est juste que je ne vois pas quoi rajouter à la macro.
Merci d'avance si vous avez des sollutions à proposer.
Fanny
Je suis toujours sur la même macro. Oui. Mais j'aimerais l'améliorer.
Je voudrais pouvoir inserrer un nombre de ligne, que j'aurais indiqué et que les lignes d'inserrés ai un nom différent.
Je rappelle la macro et j'esplique :
Code:
Sub Nv_Demande()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Dim NvDde As String
'Désactive les lignes filtrées éventuelles
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
'Insertion d'une nouvelle ligne puis recopie de la ligne initiale vers la nouvelle ligne
Rows("3:3").Insert Shift:=xlDown
Rows("4:4").Copy
Rows("3:3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.ClearContents
Range("P3:Y3").Select
Selection.ClearContents
'nommer la ligne
NvDde = InputBox("N°", "Demande", "14")
If NvDde = "" Then
'ne pas créer
Rows("3:3").Delete
MsgBox "Demande annulée ...", vbExclamation, "Création de la Demande": Exit Sub
End If
Range("A3").Value = NvDde
'Mise en forme par centrage vertical de la ligne
Rows("2:2").Select
Selection.VerticalAlignment = xlCenter
Range("A2").Select
'Récupération de la mise en forme conditionnelle sur une ligne close
Rows("10:10").Select
Selection.Copy
Rows("3:3").Select
Selection.PasteSpecial Paste:=xlPasteFormats
Rows("3:3").EntireRow.AutoFit
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Il faudrais que pour un nombre de ligne donnée, leurs noms soient différent. Sous la forme : "14xxx.y". Avec "xxx" qui ne change pas et "y" qui est A, B, C ... suivant le nombre de ligne d'indiqué.
Exemple :
5 lignes d'inserrées :
14004.A
14004.B
14004.C
14004.D
14004.E
C'est juste que je ne vois pas quoi rajouter à la macro.
Merci d'avance si vous avez des sollutions à proposer.
Fanny