Insertion de lignes avec formules en VBA

[yenda]

Bonjour à tous,

Débutante en VBA, voici mon problème :

J'ai une feuille avec une liste d'URL dans une colonne. Je souhaiterais avoir dans une deuxième feuille chaque URL avec en-dessous 10 lignes reprenant cette URL avec différents paramètres (le même ensemble de paramètres pour chaque URL). J'aimerais créer une macro associée à un bouton permettant de générer automatiquement la deuxième feuille à partir de la première.

Pour illustrer :

Feuille 1 :

url1
url2
url3
url4
url5
...


Feuille 2 :
url1
xxx url1 xxx
yyy url1 yyy
zzz url1 zzz

url2
xxx url2 xxx
yyy url2 yyy
zzz url2 zzz
...

Merci pour votre aide

 

[gosselien]

Re : Insertion de lignes avec formules en VBA

Bonjour,

pas compris grand chose mais je te conseille de mettre ici une exemple de ce que tu as et ce à quoi tu veux arriver et expliquer ça clairement; de bonnes âmes se pencheront surement sur ton problème

Ps: Bonjour Vgendron

 

[vgendron]

Re : Insertion de lignes avec formules en VBA

hello,

voir PJ pour exemple

Hello Gosselien ;-)

 

[clf]

Re : Insertion de lignes avec formules en VBA

Bonjour,

Pas hyper optimisé mais fonctionne :

Sub url()
Columns("A:A").Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select
While ActiveCell <> ""
a = ActiveCell.Offset(-1)
ActiveCell.Range("A1:A10").Select
Selection.EntireRow.Insert

ActiveCell = "aaa1 " & a & " bbb1"
ActiveCell.Offset(1) = "aaa2 " & a & " bbb2"
ActiveCell.Offset(2) = "aaa3 " & a & " bbb3"
ActiveCell.Offset(3) = "aaa4 " & a & " bbb4"
ActiveCell.Offset(4) = "aaa5 " & a & " bbb5"
ActiveCell.Offset(5) = "aaa6 " & a & " bbb6"
ActiveCell.Offset(6) = "aaa7 " & a & " bbb7"
ActiveCell.Offset(7) = "aaa8 " & a & " bbb8"
ActiveCell.Offset(8) = "aaa9 " & a & " bbb9"
ActiveCell.Offset(9) = "aaa10 " & a & " bbb10"

ActiveCell.Offset(11).Select
Wend
a = ActiveCell.Offset(-1)
ActiveCell.Range("A1:A10").Select
Selection.EntireRow.Insert

ActiveCell = "aaa1 " & a & " bbb1"
ActiveCell.Offset(1) = "aaa2 " & a & " bbb2"
ActiveCell.Offset(2) = "aaa3 " & a & " bbb3"
ActiveCell.Offset(3) = "aaa4 " & a & " bbb4"
ActiveCell.Offset(4) = "aaa5 " & a & " bbb5"
ActiveCell.Offset(5) = "aaa6 " & a & " bbb6"
ActiveCell.Offset(6) = "aaa7 " & a & " bbb7"
ActiveCell.Offset(7) = "aaa8 " & a & " bbb8"
ActiveCell.Offset(8) = "aaa9 " & a & " bbb9"
ActiveCell.Offset(9) = "aaa10 " & a & " bbb10"

End Sub

Camille