Bonsoir
J’aimerai finaliser mon application, mais je bute sur la maj des données saisies

1.Les valeurs saisies dans la USF ne se copient pas dans l’onglet correspondant à la valeur de la combobox1 (V1 = nom combo1)
et de la combobox2 (P2 = nom combo2)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub MAJ()
Dim i As Byte, Nom As String, DerLig As Long
Dim Dum As String, Longueur As Integer
 
Nom = V1.Value ' = Valeur de la Combobox1
Dum = Right(Nom, 2)
Longueur = Len(Nom)
Nom = Mid(Nom, 1, (Longueur - 4))
Nom = Nom & Dum
Nom = LCase(Nom)
Nom = Trim(Nom)
Dum = UCase(Left(Nom, 1))
Nom = Dum & Mid(Nom, 2)
 
With Sheets(Nom)
DerLig = .Range("A65536").End(xlUp).Row + 1
.Cells(DerLig, 1) = V1
.Cells(DerLig, 2) = TextBox5
.Cells(DerLig, 3) = TextBox6
.Cells(DerLig, 4) = Combobox7
.Cells(DerLig, 5) = ComboBox10a
 
End With
End Sub
Attention il y a un espace dans le nom des onglets.
Exemple: Dupont Paul, Dupont Jean, Dupont Claude.

Merci pour votre collaboration

Vmax