boucle

[barbara]

bonjour,

dans une colonne il y a des cellules vides qui doivent être remplies avec la valeur de la cellule adjacente.

j'ai fait une boucle pour cela mais pb : il y a des doublons et le remplissage de la cellule ne fonctionne que la 1ere fois que la boucle rencontre la valeur( la 2nde fois la cellule reste vide).

merci pour vos réponses

barbara [file name=Classeur2_20060515125916.zip size=7953]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060515125916.zip[/file]

 

[JC de Lorient]

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

 

[_Thierry]

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

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

 

[barbara]

bonjour à tous les trois,

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

merci beaucoup

barbara