Bonjour,
Je teste, je teste, mais je n'y arrive toujours pas !!!
Ci joint le fruit pourri de mon labeur ...
je cherche à créer une de données à partir d'une liste déja préétablie en feuil2:
- dans la feuill1, la base de données à partir du premier élément de ma liste en Feuil2\C2
- dans la feuil2, la liste à utiliser est colonne C, que j'ai nommé "societe"
Je souhaite dupliquer cette base pour chaque cellule de ma liste en renommant dans la colonne A le bon nom. La base de données doit être dupliquer dans la feuil1 à la suite.
j'ai écrit ça, mais je n'arrive pas à configurer une boucle pour qu'il duplique en fonction de la liste
en fait, je ne sais pas configurer la boucle ...
Merci beacoup de votre aide !
Topo
Je teste, je teste, mais je n'y arrive toujours pas !!!
Ci joint le fruit pourri de mon labeur ...
je cherche à créer une de données à partir d'une liste déja préétablie en feuil2:
- dans la feuill1, la base de données à partir du premier élément de ma liste en Feuil2\C2
- dans la feuil2, la liste à utiliser est colonne C, que j'ai nommé "societe"
Je souhaite dupliquer cette base pour chaque cellule de ma liste en renommant dans la colonne A le bon nom. La base de données doit être dupliquer dans la feuil1 à la suite.
j'ai écrit ça, mais je n'arrive pas à configurer une boucle pour qu'il duplique en fonction de la liste
PHP:
Sub Dupliquer()
Dim derligne As Long
Dim i
For i = 1 To Range("societe").End(xlUp).Row
Sheets("Feuil1").Select
Range("A1:Z20").Select
Selection.Copy
derligne = Range("A65536").End(xlUp).Row + 1
Cells(derligne, 1).Select
ActiveSheet.Paste
Selection.Replace What:=i, Replacement:=i + 1, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
End Sub
en fait, je ne sais pas configurer la boucle ...
Merci beacoup de votre aide !
Topo