bonjour tous le monde,
je suis en train de réaliser un tableur pour faire une nomenclature. Sur ma feuille1 j'ai 3 tableaux identiques les uns à la suite des autres,
j'ai un userforme qui contient les différentes matières avec lesquels je renseigne les tableaux, vu que mes tableaux sont dissocié je penser faire une macro du genre
Private Sub CommandButton1_Click()
Sheets("NOMENCLATURE").Activate
i = Sheets("nomenclature").Range("F38").End(xlUp).Row
j = Sheets("nomenclature").Range("F78").End(xlUp).Row
K = Sheets("nomenclature").Range("F118").End(xlUp).Row
If F38 = "" Then
Cells.Offset(i, 0) = ComboBox1.Value
Cells.Offset(i, -2) = TextBox1.Value
Cells.Offset(i, -1) = TextBox13.Value
ElseIf F38 <> "" Then
Cells.Offset(j, 0) = ComboBox1.Value
Cells.Offset(j, -2) = TextBox1.Value
Cells.Offset(j, -1) = TextBox13.Value
ElseIf F78 <> "" Then
Cells.Offset(K, 0) = ComboBox1.Value
Cells.Offset(K, -2) = TextBox1.Value
Cells.Offset(K, -1) = TextBox13.Value
Else
MsgBox " tableau complet"
End If
.
End Sub
toutes les cellules nommées sont les dernières lignes de chaque tableaux.
mais ça ne fonctionne pas si vous avez des idées je suis preneur.