Bonjour,
Pourriez-vous m'aider à corriger ma macro svp
Je ne sais pas comment utiliser les variables dans ces cas.
Sub AjoutAm()
'
' AjoutAm Macro
'
Dim nombre As Integer
nombre = Range("H1") - 1
'
For i = 1 To nombre
Rows("2:2").Select
Selection.Copy
Rows("i+2:i+2").Select Il y a un premier problème ici. Je voudrais sélectionner la ligne i+2
ActiveSheet.Paste
Range("A3:E3").Select Et ici, sélectionner les cases A à E de la ligne i+2
Application.CutCopyMode = False
Selection.ClearContents
Next
End Sub
C'est surtout la mise en page que j'aimerai copier et non seulement les valeurs ainsi que les menus déroulants. Ici il n'y a que les valeurs il me semble.
Pas sur d'avoir compris le but recherché mais tu me diras si je m'égares ou pas
A tester
VB:
Sub Test_A()
Rows("2:" & [H1]).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[A1].CurrentRegion.RowHeight = 75
[A1:E1].Resize([H1]).Borders.Weight = 2
End Sub
Pas de menus déroulants sur le fichier joint dans le message#4
Et le code du message#6 (macro Test_A) ne copie rien.
Il insère des lignes à partir de la ligne 2
Rows("2:" & [H1]).Insert Shift:=xlDown