Boucle VBA ...

[davidtrio]

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

 

[vbacrumble]

Re : Boucle VBA ...

Bonsoir


Une autre approche (ici macro valable pour la feuille active)

Sub miseneforme()
Dim datas As Range
Set datas = ActiveSheet.UsedRange
datas.SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
End Sub

EDITION: pour traiter le classeur entier

Sub misenformeWBK()
Dim i As Long
For i = 1 To Worksheets.Count
    With Sheets(i).UsedRange
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
    End With
Next
End Sub

A+

 

[Catrice]

Re : Boucle VBA ...

Bonsoir,

Ci-joint une solution

Sub Test()
For Each Y In Sheets
If Y.Range("A1") = "" Then Exit For
For Each X In Y.Range("A1:" & Y.Range("A65536").End(xlUp).Address)
If X = "" Then Y.Range(X.Offset(-1, 0), Y.Cells(X.Offset(-1, 0).Row, 256).End(xlToLeft)).Copy X
Next
Next
End Sub

 

[tototiti2008]

Re : Boucle VBA ...

Bonjour à tous,

en retard, une autre solution (pour une seule feuille)

 

[davidtrio]

Re : Boucle VBA ...

bonsoir,
vraiment fort ce forum, merci à vous 3 d'avoir bossé sur mon problème ...
Qui est un problème résolu ...
MERCI ENCORE et bon week-end à vous ...