boucle

salut Barbara
si g tout compris, essaye comme ça :
Sub test()
Dim AL As Integer
Dim cel As Range
AL = Sheets('Feuil1').Range('A37767').End(xlUp).Row
For Each cel In Range('B2:B' & AL)
If cel = '' Then
cel = cel.Offset(0, -1).Value
End If
Next
End Sub

Bonjour Barbara,

Pas vraiment certain d'avoir compris ta problématique au regard de ton code...

Set cel = Plage.Find(what:=NUM, lookat:=xlWhole, LookIn:=xlValues, SearchOrder:=xlByRows, searchdirection:=xlNext)

Vu que tu cherches NUM, qui est la string de la Cellule 'A' et L... C'est assez confus...

En prime tu places cette macro en Priavate Module de Feuille (ce qui n'est pas conseillé, mais plutôt dans un module Standard)

Voici un Code tout simple pour une Boucle toute Simple (comme j'ai interprété ton besoin)

Sub CellAdjacente()
Dim Plage As Range, Cell As Range

With Sheets('Feuil1')
Set Plage = .Range(.Range('A2'), .Range('A65536').End(xlUp))
End With

For Each Cell In Plage
    If Cell.Offset(0, 1) = Empty Then
        Cell.Offset(0, 1) = Cell
    End If
Next Cell


End Sub

Cliquez pour agrandir...

Bonne Journée
[ol]@+Thierry[/ol]


EDITION !!!

Bonjour JC de Lorient, Bonjour Amigo José, sorry pas raffraichi, en retard, mais plus détaillé pour les erreurs de la Miss lol

Message édité par: _Thierry, à: 15/05/2006 13:18

bonjour à tous les trois,

Pourquoi faire simple quand on peut faire compliqué...

merci beaucoup

barbara