XL 2016 Variable qui gère les lignes/colonnes

[Fydie]

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

Merci d'avance pour votre aide

 

[Staple1600]

Bonjour le fil, Re Fydie

Fydie
Un petit exemple (un fichier excel anonymisé) permettrait d'y voir plus clair, non ?

 

[Staple1600]

Re

Est-ce que par hasard, c'est ce que tu souhaites faire?

Sub AjoutAm_pour_Test()
Dim nombre As Long
nombre = Range("H1") - 1
For i = 3 To nombre
Rows(i).Value = Rows(2).Value
Next
End Sub

 

[Fydie]

Re Staple,

Merci de ton aide.
Je voudrais selon le nombre d'"aménagements", mettre le nombre de ligne nécessaire identique à la ligne 2.

 

[Fydie]

Re

Est-ce que par hasard, c'est ce que tu souhaites faire?

Sub AjoutAm_pour_Test()
Dim nombre As Long
nombre = Range("H1") - 1
For i = 3 To nombre
Rows(i).Value = Rows(2).Value
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.

 

[Staple1600]

Re

Pas sur d'avoir compris le but recherché mais tu me diras si je m'égares ou pas
A tester

Sub Test_A()
Rows("2:" & [H1]).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[A1].CurrentRegion.RowHeight = 75
[A1:E1].Resize([H1]).Borders.Weight = 2
End Sub

 

[Fydie]

Oui on s'égare un petit peu je crois ahah
J'ai envoyé le fichier. Je vais essayer d'être plus clair :

La ligne 2 est paramétrée avec des menus déroulants, une condition de couleur et aussi une certaine dimension.

J'aimerai bien créer une macro qui la duplique le nombre de fois qu'il est indiqué (dans la case H1).
Il faudrait la dupliquer mais sans le contenu.

J'espère que je suis plus clair. Et merci beaucoup de ton aide.

 

[Staple1600]

Re

Sauf erreur de ma part, je ne vois nul menu déroulant dans le fichier joint.

Tu as essayé la macro du message#6 ?
(Je l'ai testée justement sur ton fichier)

 

[Fydie]

Les menus déroulants sont sur les cases B2, C2 et D2 initialement.
Oui c'est presque ça. Mais ça duplique la ligne 1 et non la ligne 2.

 

[Staple1600]

Re

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

 

[Fydie]

Oui autant pour moi. C'est des "Validations de données"

 

[Fydie]

J'ai trouvé comment faire sur base de ton code.
Merci encore une fois pour ta patience et ton temps.
Bonne journée