Discussion :

[Mon_ami]

Bonjour / Bonsoir
Salut tt lemonde de l'aide svp
Mon probleme est: Si la C1 n'est pas vide ecrit dans c2 et quand c2 n'est pas vide aussi ecrit dans c3.

j'ai essayé mais en vain

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Not IsEmpty(Active cell.offset(0,2)) Then
ActiveCell.Offset(0.4)= textbox1.value
Else Not Isempty(ActiveCell.Offset(0.4) Then
ActiveCell.Offset(0.8)= textbox1.value

Merci pour votre aide

[Gorfael]

Salut Mon_ami et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If IsEmpty([C1]) Then
     [C1] = textbox1.value
Elseif Isempty([C2]) Then
     [C2] = textbox1.value
else
     [C3] = textbox1.value
end if

Si C1 est vide, y mettre le contenu de Textbox1, sionon si C2 est vide, y mettre le contenu de Textbox1, sinon mettre le contenu de Textbox1 en C3
A+

[pgz]

Bonjour Mon_ami.

Si on considère que c1 est activecell.Offset(0,2); C2 est activecell.Offset(0,4); et c3 est activecell.Offset(0,8), alors tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If IsEmpty(ActiveCell.Offset(0, 2)) Then
    ActiveCell.Offset(0.2) = textbox1.Value
Else
    If IsEmpty(ActiveCell.Offset(0, 4)) Then
        ActiveCell.Offset(0.4) = textbox1.Value
    Else
        ActiveCell.Offset(0, 8) = textbox1.Value
    End If
End If

Cordialement,

PGZ

[Mon_ami]

SAlut tt lmonde

MERECI PGZ

Ton code foctionne à merveille et mon problème est résolu

MERECI PGZ MERECI PGZ MERECI PGZ