Pkoi ma boucle ne marche pas!!!!

[Ilan]

dans le fichier suivant , j'ai créer une macro MAJ qui permet de selctionner les cellules de calcul initiale et les recopier a la cellule d'en dessous si les conditions sont verifiées...

Mais ce ne marche pas !!!

HELP me!!

Please.

Ilan


Sub MAJ()

Dim i As Integer

i = 3

Do While Range("G" & i).Value <> ""
Range("L" & (i - 1) & ":Q" & (i - 1)).Select
Selection.AutoFill Destination:=Range("L" & i & ":Q" & i), Type:=xlFillDefault

i = i + 1
Loop

End Sub

 

[@Christophe@]

Bonjour

Normal, avec de telle modif dans un autofill

essaye comme cela

Sub MAJ()

Dim i As Integer

i = 3

Do While Range("G" & i).Value <> ""
Range("L" & i & ":Q" & i).AutoFill Destination:=Range("L" & i & ":Q" & i + 1), _
Type:=xlFillDefault

i = i + 1
Loop

End Sub


Bonne journée

@Christophe@

 

[@Christophe@]

Re

Et comme ton problème, je vois ou il est, et que tu bosse avec des i - 1,...

Essaye plutôt comme cela:

Sub MAJ()

Dim i As Integer
Dim j As Integer

i = 3
j = 2

Do While Range("G" & i).Value <> ""
Range("L" & j & ":Q" & j).AutoFill Destination:=Range("L" & j & ":Q" & j + 1), _
Type:=xlFillDefault

i = i + 1
j = j + 1
Loop

End Sub


Et surtous le plus important n'oublie pas de donner un suivi cette fois si au fil

@Christophe@

 

[DJN90]

Bjr Ilan,

La macro bloque toujours sur l'instruction

Do While Range("G" & i).Value <> ""

Je pense que la cause est que tu travailles en mode plan réduit.
Si tu ouvre le plan et exécute ta macro, cela semble fonctionner.

Simple suggestion (je suis pas un pro comme christophe ou thierry en VBA), essaye de rajouter cette instruction au début et à la fin de ta macro.

Début : "ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1" Fin : "ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2"

Cela suppose bien évidemment que la feuille active est la feuille 1 où se trouve tes données.

Come Christophe le fait remarquer, fait savoir au forum ce qu'il en est.


Dan

 

[Ilan]

Je vais essayer dans la journée d'appliquer vos aides , toutefois, je tiens à vous remercier sincèrement pour vos aides!!

Ilan