XL 2016 Variable qui gère les lignes/colonnes

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2019

• #2

Bonjour le fil, Re Fydie

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2019

• #3

Re

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

VB:

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

 

Vote positif 0 Vote négatif

F

Fydie

XLDnaute Nouveau

• 24 Novembre 2019

• #4

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.

 

Pièces jointes

• Classeur1.xlsm

  21.2 KB · Affichages: 5

Vote positif 0 Vote négatif

F

Fydie

XLDnaute Nouveau

• 24 Novembre 2019

• #5

Staple1600 à dit:

Re

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

VB:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2019

• #6

Re

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

 

Vote positif 0 Vote négatif

F

Fydie

XLDnaute Nouveau

• 24 Novembre 2019

• #7

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2019

• #8

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)

 

Vote positif 0 Vote négatif

F

Fydie

XLDnaute Nouveau

• 24 Novembre 2019

• #9

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2019

• #10

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

 

Vote positif 0 Vote négatif

F

Fydie

XLDnaute Nouveau

• 24 Novembre 2019

• #11

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

 

Pièces jointes

• Sans titre.png

  46 KB · Affichages: 5

Vote positif 0 Vote négatif

F

Fydie

XLDnaute Nouveau

• 24 Novembre 2019

• #12

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

 

Vote positif 0 Vote négatif