Case / IF

bonjour,

En fonction des cellules suivantes : h 23 ; h30 ; h35 ; h40 ; D23 ; d 30 ; d40.

Si la cellule vide copier les valeurs dans la cellule sinon passer a l’autre cellule vérifier quelle est vide puis copier les valeur.

j'ai du mal a faire la structure de se code : j'ai eu pour idée de faire un casse avec des if mais jai du mal quelq"un pour maider

merci

Bonjour,

Quelles valeurs ?

Copier les valeurs du TextBox1.Value

Faisons simple :

    Dim Cel, i%
    Cel = Split("H23 H30 H35 H40 D23 D30 D40")
    With Worksheets("xxxx?")
        For i = 0 To 6
            If .Range(Cel(i)) = "" Then .Range(Cel(i)) = TextBox1.Value
        Next i
    End With

Cordialement.