Passer à la ligne deux d'un tableau (suite)

[Nico]

Re bonjour à tous!!!

Pourquoi ça plante????

Do While (ActiveCell.Value '')
Do While (ActiveCell.Value '')
ActiveCell = ActiveCell.Offset(0, 1)
Loop
ActiveCell = ActiveCell.Offset(1, 0)
Loop

Merci

 

[Hervé]

Bonjour

essaye comme ceci :

Public Sub vev()
Dim i As Integer, j As Integer
i = 1
j = 1
Do While Cells(i, j)  ''
    Cells(i, j).Interior.ColorIndex = 3
    Cells(i, j).Select
        Do While Cells(i, j)  ''
            Cells(i, j).Interior.ColorIndex = 3
            Cells(i, j).Select
            j = j + 1
        Loop
    i = i + 1
    j = 1
Loop
End Sub

j'ai colorié en rouge les cellules actives juste pour controler la macro.

Apparement le symbole different ne passe pas : donc entre While Cells(i, j) et '' , pense à mettre < et >

Salut
Hervé

Message édité par: Hervé, à: 22/02/2005 16:49

Message édité par: Hervé, à: 22/02/2005 16:50

 

[Dan]

Bonsoir Nico,

La charte svp ...https://www.excel-downloads.com/help/charte/

Merci de rester sur le même fil quand tu postes pour le même pb. Nouveau forum et on va déjà s'y perdre !

1er partie c'est ici : Lien supprimé

@+ Dan