Interfacer mon usf avec ma plage

Salut le forum

Je sollicite votre aide pour pouvoir interfacer mon usf avec ma feuille "ETAT".

Voici les conditions:

TextBox2.Value à coller dans la cellule ETAT!E6

TextBox3.Value à coller dans la cellule ETAT!E7

TextBox4.Value à coller dans la cellule ETAT!E8

TextBox5.Value à coller dans la cellule ETAT!E9

TextBox6.Value à coller selon la valeur du frame1 qui est coché(si sal est coché, le collage devra se faire dans la cellule ETAT !E12 sinon si Pen est coché, le collage devra se faire en ETAT !E13 sinon dans ETAT !E14)

TextBox7.Value à coller dans la cellule ETAT!E17

TextBox8.Value à coller dans la cellule ETAT!E18

TextBox9.Value à coller dans ETAT !E19

TextBox12.Value à coller dans ETAT !E25

N.B: Si ETAT!6 n'est pas vide, le collage devra se faire sur la colonne suivante (ETAT!F6) et ainsi de suite

Merci pour vos contributions

edit Dan : Supprimé "besoin d'aide"

Salut,

Dans le fichier ci-joint, je te montre comment remplir la ligne 6 avec le TextBox2 avec le code ci-dessous.

Private Sub CommandButton1_Click()
Dim DerCol As Integer
Sheets("ETAT").Activate
DerCol = WorksheetFunction.Max(4, Cells(6, Columns.Count).End(xlToLeft).Column)
Cells(6, DerCol + 1) = TextBox2
Unload Me
End Sub

Pour les autres TextBox, tu suis l’exemple.

Cordialement.

Salut Yvouille

Merci pour ton esquisse de solution.

J'ai compris la logique mais un problème subsistera quant à la condition portant sur le frame1.

Comment intégrer cette condition dans ton code?

TextBox6.Value à coller selon la valeur du frame1 qui est coché(si sal est coché, le collage devra se faire dans la cellule ETAT !E12 sinon si Pen est coché, le collage devra se faire en ETAT !E13 sinon dans ETAT !E14)

Merci de revoir stp!

Re,

Pour le TextBox6, utilise le passage ci-dessous :

If Sal = True Then
    Cells(12, DerCol + 1) = TextBox6
Else
If Pen = True Then
    Cells(13, DerCol + 1) = TextBox6
Else
    Cells(14, DerCol + 1) = TextBox6
End If
End If

Amicalement.

Merci infiniment pour vos solutions magiques.