Comment incrémenter une ligne Excel

[lucie35]

Bonjour

Etant encore une novice en VB, je vous demande votre aide


J'aimerais savoir comment incrémenter des lignes? je sais que pour incrémenter une colonne il suffit simplement de faire une boucle for avec "i" comme vraiable et d'écrire: range("i1,i3,i5") par exp, sauf que pour les lignes je sais pas trop comment faire)?

- Du coup si je sais comment incrémenter mes lignes, ma boucle for doit donc parcourir tout mon fichier de départ et coller chaque lignes (à chaque itération) dans des emplacements fixes dans mon fichier d'arrivé, sachant que chaque ligne sera collé dans un fichier "arrivé" a part entière.--> j'ai donc un problème sur la syntaxe du "coller", je sais pas comment faire pour coller chaque ligne sur chaque fichier avec ma variable de la boucle "for".

- Et pour finir, j'arrive a créer plusieurs fichier "arrivé" en un clic (with un "modele") mais j'arrive pas à les enregistrer :s --> le problème vient peut etre du nom de fichier? faut ptet mettre une variable (string ou integer??) qu on incrémente a coté du nom?? --> mais ça m'affiche tjr une erreur?

Voila voila )

Si qq à une idée....

Merci d'avance

 

[vgendron]

Re : Comment incrémenter une ligne Excel

bonjour,

pour incrémenter une ligne, c'est comme pour une colonne:

for i =1 to DernièreLigne
Cells(i,j)="ce que tu veux coller comme data"
i=i+1
Next i

si tu veux faire sur la colonne, tu fais la boucle sur j

pour le reste. poste ton fichier exemple qu'on y voit un peu plus clair

 

[lucie35]

Re : Comment incrémenter une ligne Excel

ok merci

 

[tototiti2008]

Re : Comment incrémenter une ligne Excel

Bonjour lucie35, Bonjour vgendron,

enlève la ligne "i=i+1" proposée par vgendron, elle est en trop

 

[vgendron]

Re : Comment incrémenter une ligne Excel

Hello tototiti

bien vu.. ;-)

 

[lucie35]

Re : Comment incrémenter une ligne Excel

Voici ma macro:

j'ai commencé par créer un modele "départ arrivé" a partir de mon fichier.
je selectione la permière ligne (grenoble,...,38000) que je copie dans le classeur arrvié de mon nouveau fichier.

Sub Macro5()
'
' Macro5 Macro
'

'
Workbooks.Add Template:= _
"C:\Users\LDNB0036\AppData\Roaming\Microsoft\Templates\Départ-Arrivé.xltm"

Windows("Départ-Arrivé.xlsx").Activate ' copie la cellule gernoble dans la cellule ville du fichier arrivé
Range("A4").Select
Selection.Copy
Windows("Départ-Arrivé1").Activate
Range("C17").Select
ActiveSheet.Paste

Windows("Départ-Arrivé.xlsx").Activate
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Départ-Arrivé1").Activate
Range("C15").Select
ActiveSheet.Paste

Windows("Départ-Arrivé.xlsx").Activate
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Départ-Arrivé1").Activate
Range("C16").Select
ActiveSheet.Paste

Application.CutCopyMode = False
ChDir "C:\Users\LDNB0036\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\LDNB0036\Desktop\Départ-Arrivé1.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Windows("Départ-Arrivé.xlsx").Activate

End Sub

Du coup maintenant faut faire une boucle for pour répeter cette opération 2 fois (en créant 2 autres fichiers) et arriver à les enregistrer :S

)

 

[tototiti2008]

Re : Comment incrémenter une ligne Excel

Re,

Oui, a priori il suffit de mettre tout ça dans une boucle comme proposé par vgendron
Il est rare d'avoir à sélectionner les cellules en VBA, tu peux donc te débarrasser des Select de ton code

peut-être un truc comme ça (pas testé, je n'ai pas ton modèle)

Sub Macro5()
Dim i as long, wkb as workbook
For i = 4 to 7
    Workbooks.Add Template:= _
        "C:\Users\LDNB0036\AppData\Roaming\Microsoft\Templates\Départ-Arrivé.xltm"
    set wkb = activeworkbook
wkb.range("C17").value = workbooks("Départ-Arrivé.xlsx").Range("A" & i).value
wkb.range("C15").value = workbooks("Départ-Arrivé.xlsx").Range("B" & i).value
    wkb.range("C16").value = workbooks("Départ-Arrivé.xlsx").Range("C" & i).value
    
    wkb.SaveAs Filename:= _
        "C:\Users\LDNB0036\Desktop\Départ-Arrivé" & i - 3 & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    wkb.close false
next i
    
End Sub

 

[lucie35]

Re : Comment incrémenter une ligne Excel

En faite le modele je l'ai crée à partir du fichier que j'ai mis en pièce jointe, c'est le même.

Merci pour ton code, je vais le tester ce soir

 

[lucie35]

Re : Comment incrémenter une ligne Excel

Merci bcp pour vos réponses )
tototiti2008, il manque juste une ou deux .sheets entre wkb et range, sinon c'est parfait ça marche bien.

 

[tototiti2008]

Re : Comment incrémenter une ligne Excel

Bonjour lucie35,

il manque juste une ou deux .sheets entre wkb et range

En effet

un truc comme ça donc

Sub Macro5()
Dim i as long, wkb as workbook
For i = 4 to 7
    Workbooks.Add Template:= _
        "C:\Users\LDNB0036\AppData\Roaming\Microsoft\Templates\Départ-Arrivé.xltm"
    set wkb = activeworkbook
wkb.Sheets(1).range("C17").value = workbooks("Départ-Arrivé.xlsx").Range("A" & i).value
wkb.Sheets(1).range("C15").value = workbooks("Départ-Arrivé.xlsx").Range("B" & i).value
    wkb.Sheets(1).range("C16").value = workbooks("Départ-Arrivé.xlsx").Range("C" & i).value
    
    wkb.SaveAs Filename:= _
        "C:\Users\LDNB0036\Desktop\Départ-Arrivé" & i - 3 & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    wkb.close false
next i
    
End Sub