XL 2010 Problème de boucles VBA demande aide pour correction

[Philippe LAMACHE]

Bonjour à tous,

Comme vous pourrez le voir plus bas, je ne maîtrise pas complètement le VBA ...

Le petit bout de code que j'ai essayé de créer (afin de boucler vers le bas puis de passer à la colonne suivante pour boucler à nouveau vers le bas puis passer à la colonne suivante ... etc) ne fonctionne pas.

Sub essai()
MaPlgEnLig = Range("G1" & ":" & Cells(1, Columns.Count).End(xlToLeft).Address).Select
For Each MaCol In MaPlgEnLig
MaPlgEnCol = Range(MaCol.Offset(3, 0), Cells(65536, ActiveCell.Column).End(xlUp))
If IsNull(MaPlgEnCol) Then
GoTo Suivante
Else
For Each MaLig In MaPlg
If MaLig.Value <> "" Then
MaLig.Select
End If
Next MaLig
Suivante:
Next MaCol
End Sub

Quelqu'un aurait-il la gentillesse de me venir en aide ?

Par avance, merci.

 

[Philippe LAMACHE]

Bonjour,
J'ai réussi à me corriger.

Sub essai()
Feuil32.Activate
Dim MaPlgEnLig As Range, MaPlgEnCol As Range, MaCol As Range, MaLig As Range
Set MaPlgEnLig = Feuil32.Range("G1" & ":" & Cells(1, Columns.Count).End(xlToLeft).Address)
MaPlgEnLig.Select
For Each MaCol In MaPlgEnLig
MaCol.Offset(3, 0).Select
Set MaPlgEnCol = Range(ActiveCell, Cells(65536, ActiveCell.Column).End(xlUp))
MaSomme = Application.Sum(MaPlgEnCol)
For Each MaLig In MaPlgEnCol
If MaSomme = 0 Then
GoTo Suivante
ElseIf MaLig.Value <> "" Then
MaLig.Select
End If
Next MaLig
Suivante:
Next MaCol
End Sub

Désolé pour le dérangement.