Bonsoir le forum,
Une petite optimisation à vous soumettre ...
Je souhaiterai lire un fichier tel que :
A B C D E F
01 U U U U U U
02
03 A A A A A A
.....
Losque la cellule en A est vide copier la ligne -1 pour obtenir :
A B C D E F
01 U U U U U U
02 U U U U U U
03 A A A A A A
J'ai commencé et voilà ce que j'obtiens, pouvez m'aider s'il vous plait ....
Sub miseenforme()
Dim x As Integer
'Boucle sur chaque classeur de l'application Excel
For Each Wb In Application.Workbooks
'Boucle sur chaque feuille de chaque classeur
'Boucle de 1 à 10
For x = 2 To 10000
If IsEmpty(Cells(x, 1)) Then [x-1, 1:x-1,9].Select
Selection.Copy
Cells(x, 1).Select
ActiveSheet.Paste
Next x
Next Wb
End Sub
Merci d'avance
Une petite optimisation à vous soumettre ...
Je souhaiterai lire un fichier tel que :
A B C D E F
01 U U U U U U
02
03 A A A A A A
.....
Losque la cellule en A est vide copier la ligne -1 pour obtenir :
A B C D E F
01 U U U U U U
02 U U U U U U
03 A A A A A A
J'ai commencé et voilà ce que j'obtiens, pouvez m'aider s'il vous plait ....
Sub miseenforme()
Dim x As Integer
'Boucle sur chaque classeur de l'application Excel
For Each Wb In Application.Workbooks
'Boucle sur chaque feuille de chaque classeur
'Boucle de 1 à 10
For x = 2 To 10000
If IsEmpty(Cells(x, 1)) Then [x-1, 1:x-1,9].Select
Selection.Copy
Cells(x, 1).Select
ActiveSheet.Paste
Next x
Next Wb
End Sub
Merci d'avance