Discussion :

[retraite83]

Bonjour,

je suis en train d'essayer de comprendre comment écrire une macro qui fait de la mise en page, j'écris une petite macro de test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub test()
 
Range("B5") = Workbooks("classeur2.xlsx").Sheets("Feuil1").Range("A2").Value
Range("M6") = Workbooks("classeur2.xlsx").Sheets("Feuil1").Range("B2").Value
Range("Q7") = Workbooks("classeur2.xlsx").Sheets("Feuil1").Range("E2").Value
 
End Sub

Cela marche bien pour la première ligne du classeur 2, je vais intégrer cela dans une boucle pour traiter 10 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim i as Integer
For i = 1 to 10
...
Next i

Je veux faire à chaque incrémentation de i --> modulo 5 sur B5, M6, Q7 --> B10, M11, Q12 et modulo 1 sur A2, B2, E2 --> A3, B3, E3

J'imagine devoir déclarer mes cellules comme variable ? et ensuite ?

[Jean-Philippe André]

Salut,

je pense qu'on a une erreur de signification dans ton énoncé

modulo 1

un modulo c'est un reste de division entière...

de plus, un coup tu tapes sur les colonnes B, M et Q puis a nouveau sur A,B,C

B5, M6, Q7 --> B10, M11, Q12 et modulo 1 sur A2, B2, E2 --> A3, B3, E3

Tu pourrais nous donner la liste des 3 premiers cas selon ton approche stp ?

Ca reste nécessaire pour qu'on comprenne vraiment où tu veux en venir

Merci

[retraite83]

oui bien sur,

Dans mon test pour voir comment ça marche, je veux traiter 10 lignes de ma feuille "Feuil1" qui contiennent des infos à mettre en page dans ma "Feuil2" (feuille courante)

Ces infos sont pour la 1ere ligne de "Feuil1" en A2, B2 et E2, sur la seconde ligne elles seront donc en A3, B3 et E3 et ainsi de suite. (c'est ce que j'ai appelé modulo 1)

Je veux les mettre dans ma "Feuil2" respectivement pour la ligne 1 de "Feuil1" (A2, B2 et E2) en B5, M6 et Q7

Pour la ligne suivante de "Feuil1" (A3, B3 et E3 ) en B10, M11 et Q12 et ainsi de suite. (c'est ce que j'ai appelé modulo 5)

J'espère avoir été plus clair

[Jean-Philippe André]

Ok,

on aurait un code de ce style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Delta As Integer
Delta=5
For I=2 To 11
Range("B" & Delta) = Workbooks("classeur2.xlsx").Sheets("Feuil1").Range("A" & I).Value
Range("M" & Delta+1) = Workbooks("classeur2.xlsx").Sheets("Feuil1").Range("B" & I).Value
Range("Q" & Delta +2) = Workbooks("classeur2.xlsx").Sheets("Feuil1").Range("E" & I).Value
Delta=Delta+5
Next I

On peut même envisager de virer Delta et de faire tous les calculs à partir de I.

[retraite83]

C'est parfait et formateur, merci

dans le même esprit je voudrai au passage dans ma boucle copier aussi l'image qui se trouve sur chaque ligne de "Feuil1" classeur2.xlsx en ("A" & I) vers "B" & Delta

Là cela se complique pour moi,

j'ai fait un test (en galérant) pour supprimer l'image dans une boucle en intégrant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
For Each shap In ActiveSheet.Shapes
    If shap.TopLeftCell.Row = i Then shap.Delete

mais pour la copier ?

[Jean-Philippe André]

Essaie de générer du code à partir de l'enregistreur de macro, et tu trouveras ces subtilités de copie/collage d'images