Remplir plusieurs feuilles avec un userform

Le 08/12/2014 à 11:22

Bonjour,

Je souhaiterais pouvoir remplir deux feuilles avec un seul userform.

Les données d'un textbox doivent être rentré dans 2 tableau différents.

Voici mon code pour que les données soient ajoutées au tableau 1 :

Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion ?", vbYesNo, "Confirmation d’insertion") = vbYes Then
L = Sheets("Habilitation Agent").Range("a65536").End(xlUp).Row + 1 
Sheets("Habilitation Agent").Range("A" & L).Value = ComboBox1
Sheets("Habilitation Agent").Range("B" & L).Value = TextBox2
Sheets("Habilitation Agent").Range("C" & L).Value = TextBox3
Sheets("Habilitation Agent").Range("I" & L).Value = TextBox4
Sheets("Habilitation Agent").Range("O" & L).Value = TextBox5
Sheets("Habilitation Agent").Range("BK" & L).Value = TextBox6
Sheets("Habilitation Agent").Range("U" & L).Value = TextBox7
Sheets("Habilitation Agent").Range("AA" & L).Value = TextBox8
Sheets("Habilitation Agent").Range("AG" & L).Value = TextBox9
Sheets("Habilitation Agent").Range("F" & L).Value = TextBox10
Sheets("Habilitation Agent").Range("L" & L).Value = TextBox11
Sheets("Habilitation Agent").Range("R" & L).Value = TextBox12
Sheets("Habilitation Agent").Range("BN" & L).Value = TextBox13
Sheets("Habilitation Agent").Range("X" & L).Value = TextBox14
Sheets("Habilitation Agent").Range("AD" & L).Value = TextBox15
Sheets("Habilitation Agent").Range("AJ" & L).Value = TextBox16
Sheets("Habilitation Agent").Range("E" & L).Value = TextBox24
Sheets("Habilitation Agent").Range("K" & L).Value = TextBox25
Sheets("Habilitation Agent").Range("Q" & L).Value = TextBox26
Sheets("Habilitation Agent").Range("BM" & L).Value = TextBox27
Sheets("Habilitation Agent").Range("W" & L).Value = TextBox28
Sheets("Habilitation Agent").Range("AC" & L).Value = TextBox29
Sheets("Habilitation Agent").Range("AI" & L).Value = TextBox30
Sheets("Habilitation Agent").Range("AM" & L).Value = TextBox32
Sheets("Habilitation Agent").Range("AP" & L).Value = TextBox33
Sheets("Habilitation Agent").Range("AO" & L).Value = TextBox34
Sheets("Habilitation Agent").Range("AS" & L).Value = TextBox36
Sheets("Habilitation Agent").Range("AV" & L).Value = TextBox37
Sheets("Habilitation Agent").Range("AU" & L).Value = TextBox38
Sheets("Habilitation Agent").Range("AY" & L).Value = TextBox41
Sheets("Habilitation Agent").Range("BB" & L).Value = TextBox42
Sheets("Habilitation Agent").Range("BA" & L).Value = TextBox43
Sheets("Habilitation Agent").Range("BE" & L).Value = TextBox44
Sheets("Habilitation Agent").Range("BH" & L).Value = TextBox45
Sheets("Habilitation Agent").Range("BG" & L).Value = TextBox46
Sheets("Habilitation Agent").Range("BW" & L).Value = TextBox49
Sheets("Habilitation Agent").Range("BZ" & L).Value = TextBox50
Sheets("Habilitation Agent").Range("BY" & L).Value = TextBox51
Sheets("Habilitation Agent").Range("CC" & L).Value = TextBox52
Sheets("Habilitation Agent").Range("CF" & L).Value = TextBox53
Sheets("Habilitation Agent").Range("CE" & L).Value = TextBox54
Sheets("Habilitation Agent").Range("CI" & L).Value = TextBox57
Sheets("Habilitation Agent").Range("CL" & L).Value = TextBox58
Sheets("Habilitation Agent").Range("CK" & L).Value = TextBox59
Sheets("Habilitation Agent").Range("BQ" & L).Value = TextBox60
Sheets("Habilitation Agent").Range("BT" & L).Value = TextBox61
Sheets("Habilitation Agent").Range("BS" & L).Value = TextBox62
Sheets("Habilitation Agent").Range("CO" & L).Value = TextBox64
Sheets("Habilitation Agent").Range("CR" & L).Value = TextBox65
Sheets("Habilitation Agent").Range("CQ" & L).Value = TextBox66
End If
End Sub

J'ai essayé avec ce code pour remplir les deux tableaux, mais le problème c'est que les données sont rentrés au même numéro de ligne et non à la fin de chaque tableau ...

Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion ?", vbYesNo, "Confirmation d’insertion") = vbYes Then
L = Sheets("Habilitation Agent").Range("a65536").End(xlUp).Row + 1 
L = Sheets("Année").Range("a65536").End(xlUp).Row + 1 
Sheets("Habilitation Agent").Range("A" & L).Value = ComboBox1
Sheets("Habilitation Agent").Range("B" & L).Value = TextBox2
Sheets("Habilitation Agent").Range("C" & L).Value = TextBox3
Sheets("Habilitation Agent").Range("I" & L).Value = TextBox4
Sheets("Habilitation Agent").Range("O" & L).Value = TextBox5
Sheets("Habilitation Agent").Range("BK" & L).Value = TextBox6
Sheets("Habilitation Agent").Range("U" & L).Value = TextBox7
Sheets("Habilitation Agent").Range("AA" & L).Value = TextBox8
Sheets("Habilitation Agent").Range("AG" & L).Value = TextBox9
Sheets("Habilitation Agent").Range("F" & L).Value = TextBox10
Sheets("Habilitation Agent").Range("L" & L).Value = TextBox11
Sheets("Habilitation Agent").Range("R" & L).Value = TextBox12
Sheets("Habilitation Agent").Range("BN" & L).Value = TextBox13
Sheets("Habilitation Agent").Range("X" & L).Value = TextBox14
Sheets("Habilitation Agent").Range("AD" & L).Value = TextBox15
Sheets("Habilitation Agent").Range("AJ" & L).Value = TextBox16
Sheets("Habilitation Agent").Range("E" & L).Value = TextBox24
Sheets("Habilitation Agent").Range("K" & L).Value = TextBox25
Sheets("Habilitation Agent").Range("Q" & L).Value = TextBox26
Sheets("Habilitation Agent").Range("BM" & L).Value = TextBox27
Sheets("Habilitation Agent").Range("W" & L).Value = TextBox28
Sheets("Habilitation Agent").Range("AC" & L).Value = TextBox29
Sheets("Habilitation Agent").Range("AI" & L).Value = TextBox30
Sheets("Habilitation Agent").Range("AM" & L).Value = TextBox32
Sheets("Habilitation Agent").Range("AP" & L).Value = TextBox33
Sheets("Habilitation Agent").Range("AO" & L).Value = TextBox34
Sheets("Habilitation Agent").Range("AS" & L).Value = TextBox36
Sheets("Habilitation Agent").Range("AV" & L).Value = TextBox37
Sheets("Habilitation Agent").Range("AU" & L).Value = TextBox38
Sheets("Habilitation Agent").Range("AY" & L).Value = TextBox41
Sheets("Habilitation Agent").Range("BB" & L).Value = TextBox42
Sheets("Habilitation Agent").Range("BA" & L).Value = TextBox43
Sheets("Habilitation Agent").Range("BE" & L).Value = TextBox44
Sheets("Habilitation Agent").Range("BH" & L).Value = TextBox45
Sheets("Habilitation Agent").Range("BG" & L).Value = TextBox46
Sheets("Habilitation Agent").Range("BW" & L).Value = TextBox49
Sheets("Habilitation Agent").Range("BZ" & L).Value = TextBox50
Sheets("Habilitation Agent").Range("BY" & L).Value = TextBox51
Sheets("Habilitation Agent").Range("CC" & L).Value = TextBox52
Sheets("Habilitation Agent").Range("CF" & L).Value = TextBox53
Sheets("Habilitation Agent").Range("CE" & L).Value = TextBox54
Sheets("Habilitation Agent").Range("CI" & L).Value = TextBox57
Sheets("Habilitation Agent").Range("CL" & L).Value = TextBox58
Sheets("Habilitation Agent").Range("CK" & L).Value = TextBox59
Sheets("Habilitation Agent").Range("BQ" & L).Value = TextBox60
Sheets("Habilitation Agent").Range("BT" & L).Value = TextBox61
Sheets("Habilitation Agent").Range("BS" & L).Value = TextBox62
Sheets("Habilitation Agent").Range("CO" & L).Value = TextBox64
Sheets("Habilitation Agent").Range("CR" & L).Value = TextBox65
Sheets("Habilitation Agent").Range("CQ" & L).Value = TextBox66
Sheets(«Année»).Range("A" & L).Value = ComboBox1
Sheets(«Année»).Range("B" & L).Value = TextBox2
Sheets(«Année»).Range("C" & L).Value = TextBox3
Sheets(«Année»).Range("C" & L).Value = TextBox4
Sheets(«Année»).Range("C" & L).Value = TextBox5
Sheets(«Année»).Range("C" & L).Value = TextBox6
Sheets(«Année»).Range("C" & L).Value = TextBox7
Sheets(«Année»).Range("C" & L).Value = TextBox8
Sheets(«Année»).Range("C" & L).Value = TextBox9
Sheets(«Année»).Range("F" & L).Value = TextBox10
Sheets(«Année»).Range("F" & L).Value = TextBox11
Sheets(«Année»).Range("F" & L).Value = TextBox12
Sheets(«Année»).Range("F" & L).Value = TextBox13
Sheets(«Année»).Range("F" & L).Value = TextBox14
Sheets(«Année»).Range("F" & L).Value = TextBox15
Sheets(«Année»).Range("F" & L).Value = TextBox16
Sheets(«Année»).Range("G" & L).Value = TextBox17
Sheets(«Année»).Range("G" & L).Value = TextBox18
Sheets(«Année»).Range("G" & L).Value = TextBox19
Sheets(«Année»).Range("G" & L).Value = TextBox20
Sheets(«Année»).Range("G" & L).Value = TextBox21
Sheets(«Année»).Range("G" & L).Value = TextBox22
Sheets(«Année»).Range("G" & L).Value = TextBox23
Sheets(«Année»).Range("E" & L).Value = TextBox24
Sheets(«Année»).Range("E" & L).Value = TextBox25
Sheets(«Année»).Range("E" & L).Value = TextBox26
Sheets(«Année»).Range("E" & L).Value = TextBox27
Sheets(«Année»).Range("E" & L).Value = TextBox28
Sheets(«Année»).Range("E" & L).Value = TextBox29
Sheets(«Année»).Range("E" & L).Value = TextBox30
Sheets(«Année»).Range("G" & L).Value = TextBox31
Sheets(«Année»).Range("C" & L).Value = TextBox32
Sheets(«Année»).Range("F" & L).Value = TextBox33
Sheets(«Année»).Range("E" & L).Value = TextBox34
Sheets(«Année»).Range("G" & L).Value = TextBox35
Sheets(«Année»).Range("C" & L).Value = TextBox36
Sheets(«Année»).Range("F" & L).Value = TextBox37
Sheets(«Année»).Range("E" & L).Value = TextBox38
Sheets(«Année»).Range("G" & L).Value = TextBox39
Sheets(«Année»).Range("G" & L).Value = TextBox40
Sheets(«Année»).Range("C" & L).Value = TextBox41
Sheets(«Année»).Range("F" & L).Value = TextBox42
Sheets(«Année»).Range("E" & L).Value = TextBox43
Sheets(«Année»).Range("C" & L).Value = TextBox44
Sheets(«Année»).Range("F" & L).Value = TextBox45
Sheets(«Année»).Range("E" & L).Value = TextBox46
Sheets(«Année»).Range("G" & L).Value = TextBox47
Sheets(«Année»).Range("G" & L).Value = TextBox48
Sheets(«Année»).Range("C" & L).Value = TextBox49
Sheets(«Année»).Range("F" & L).Value = TextBox50
Sheets(«Année»).Range("E" & L).Value = TextBox51
Sheets(«Année»).Range("C" & L).Value = TextBox52
Sheets(«Année»).Range("F" & L).Value = TextBox53
Sheets(«Année»).Range("E" & L).Value = TextBox54
Sheets(«Année»).Range("G" & L).Value = TextBox55
Sheets(«Année»).Range("G" & L).Value = TextBox56
Sheets(«Année»).Range("C" & L).Value = TextBox57
Sheets(«Année»).Range("F" & L).Value = TextBox58
Sheets(«Année»).Range("E" & L).Value = TextBox59
Sheets(«Année»).Range("C" & L).Value = TextBox60
Sheets(«Année»).Range("F" & L).Value = TextBox61
Sheets(«Année»).Range("E" & L).Value = TextBox62
Sheets(«Année»).Range("G" & L).Value = TextBox63
Sheets(«Année»).Range("C" & L).Value = TextBox64
Sheets(«Année»).Range("F" & L).Value = TextBox65
Sheets(«Année»).Range("E" & L).Value = TextBox66
End If
End Sub

Est ce que quelqu'un peut m'aider ?

Mercii

Le 08/12/2014 à 11:27

Hello.

Tu donnes le même nom de variable à 2 valeurs différentes d'affilée... tu lui dit dernière ligne du tableau 1 = L et juste après dernière ligne du tableau 2 = L donc du coup tu en perds 1 sur les 2...

Du coup il faut juste déplacer ta ligne.

Du coup pour modifier:

    Private Sub CommandButton1_Click()
    Dim L As Integer
    If MsgBox("Confirmez-vous l’insertion ?", vbYesNo, "Confirmation d’insertion") = vbYes Then
    L = Sheets("Habilitation Agent").Range("a65536").End(xlUp).Row + 1
    Sheets("Habilitation Agent").Range("A" & L).Value = ComboBox1
    Sheets("Habilitation Agent").Range("B" & L).Value = TextBox2
    Sheets("Habilitation Agent").Range("C" & L).Value = TextBox3
    Sheets("Habilitation Agent").Range("I" & L).Value = TextBox4
    Sheets("Habilitation Agent").Range("O" & L).Value = TextBox5
    Sheets("Habilitation Agent").Range("BK" & L).Value = TextBox6
    Sheets("Habilitation Agent").Range("U" & L).Value = TextBox7
    Sheets("Habilitation Agent").Range("AA" & L).Value = TextBox8
    Sheets("Habilitation Agent").Range("AG" & L).Value = TextBox9
    Sheets("Habilitation Agent").Range("F" & L).Value = TextBox10
    Sheets("Habilitation Agent").Range("L" & L).Value = TextBox11
    Sheets("Habilitation Agent").Range("R" & L).Value = TextBox12
    Sheets("Habilitation Agent").Range("BN" & L).Value = TextBox13
    Sheets("Habilitation Agent").Range("X" & L).Value = TextBox14
    Sheets("Habilitation Agent").Range("AD" & L).Value = TextBox15
    Sheets("Habilitation Agent").Range("AJ" & L).Value = TextBox16
    Sheets("Habilitation Agent").Range("E" & L).Value = TextBox24
    Sheets("Habilitation Agent").Range("K" & L).Value = TextBox25
    Sheets("Habilitation Agent").Range("Q" & L).Value = TextBox26
    Sheets("Habilitation Agent").Range("BM" & L).Value = TextBox27
    Sheets("Habilitation Agent").Range("W" & L).Value = TextBox28
    Sheets("Habilitation Agent").Range("AC" & L).Value = TextBox29
    Sheets("Habilitation Agent").Range("AI" & L).Value = TextBox30
    Sheets("Habilitation Agent").Range("AM" & L).Value = TextBox32
    Sheets("Habilitation Agent").Range("AP" & L).Value = TextBox33
    Sheets("Habilitation Agent").Range("AO" & L).Value = TextBox34
    Sheets("Habilitation Agent").Range("AS" & L).Value = TextBox36
    Sheets("Habilitation Agent").Range("AV" & L).Value = TextBox37
    Sheets("Habilitation Agent").Range("AU" & L).Value = TextBox38
    Sheets("Habilitation Agent").Range("AY" & L).Value = TextBox41
    Sheets("Habilitation Agent").Range("BB" & L).Value = TextBox42
    Sheets("Habilitation Agent").Range("BA" & L).Value = TextBox43
    Sheets("Habilitation Agent").Range("BE" & L).Value = TextBox44
    Sheets("Habilitation Agent").Range("BH" & L).Value = TextBox45
    Sheets("Habilitation Agent").Range("BG" & L).Value = TextBox46
    Sheets("Habilitation Agent").Range("BW" & L).Value = TextBox49
    Sheets("Habilitation Agent").Range("BZ" & L).Value = TextBox50
    Sheets("Habilitation Agent").Range("BY" & L).Value = TextBox51
    Sheets("Habilitation Agent").Range("CC" & L).Value = TextBox52
    Sheets("Habilitation Agent").Range("CF" & L).Value = TextBox53
    Sheets("Habilitation Agent").Range("CE" & L).Value = TextBox54
    Sheets("Habilitation Agent").Range("CI" & L).Value = TextBox57
    Sheets("Habilitation Agent").Range("CL" & L).Value = TextBox58
    Sheets("Habilitation Agent").Range("CK" & L).Value = TextBox59
    Sheets("Habilitation Agent").Range("BQ" & L).Value = TextBox60
    Sheets("Habilitation Agent").Range("BT" & L).Value = TextBox61
    Sheets("Habilitation Agent").Range("BS" & L).Value = TextBox62
    Sheets("Habilitation Agent").Range("CO" & L).Value = TextBox64
    Sheets("Habilitation Agent").Range("CR" & L).Value = TextBox65
    Sheets("Habilitation Agent").Range("CQ" & L).Value = TextBox66
    L = Sheets("Année").Range("a65536").End(xlUp).Row + 1
    Sheets(«Année»).Range("A" & L).Value = ComboBox1
    Sheets(«Année»).Range("B" & L).Value = TextBox2
    Sheets(«Année»).Range("C" & L).Value = TextBox3
    Sheets(«Année»).Range("C" & L).Value = TextBox4
    Sheets(«Année»).Range("C" & L).Value = TextBox5
    Sheets(«Année»).Range("C" & L).Value = TextBox6
    Sheets(«Année»).Range("C" & L).Value = TextBox7
    Sheets(«Année»).Range("C" & L).Value = TextBox8
    Sheets(«Année»).Range("C" & L).Value = TextBox9
    Sheets(«Année»).Range("F" & L).Value = TextBox10
    Sheets(«Année»).Range("F" & L).Value = TextBox11
    Sheets(«Année»).Range("F" & L).Value = TextBox12
    Sheets(«Année»).Range("F" & L).Value = TextBox13
    Sheets(«Année»).Range("F" & L).Value = TextBox14
    Sheets(«Année»).Range("F" & L).Value = TextBox15
    Sheets(«Année»).Range("F" & L).Value = TextBox16
    Sheets(«Année»).Range("G" & L).Value = TextBox17
    Sheets(«Année»).Range("G" & L).Value = TextBox18
    Sheets(«Année»).Range("G" & L).Value = TextBox19
    Sheets(«Année»).Range("G" & L).Value = TextBox20
    Sheets(«Année»).Range("G" & L).Value = TextBox21
    Sheets(«Année»).Range("G" & L).Value = TextBox22
    Sheets(«Année»).Range("G" & L).Value = TextBox23
    Sheets(«Année»).Range("E" & L).Value = TextBox24
    Sheets(«Année»).Range("E" & L).Value = TextBox25
    Sheets(«Année»).Range("E" & L).Value = TextBox26
    Sheets(«Année»).Range("E" & L).Value = TextBox27
    Sheets(«Année»).Range("E" & L).Value = TextBox28
    Sheets(«Année»).Range("E" & L).Value = TextBox29
    Sheets(«Année»).Range("E" & L).Value = TextBox30
    Sheets(«Année»).Range("G" & L).Value = TextBox31
    Sheets(«Année»).Range("C" & L).Value = TextBox32
    Sheets(«Année»).Range("F" & L).Value = TextBox33
    Sheets(«Année»).Range("E" & L).Value = TextBox34
    Sheets(«Année»).Range("G" & L).Value = TextBox35
    Sheets(«Année»).Range("C" & L).Value = TextBox36
    Sheets(«Année»).Range("F" & L).Value = TextBox37
    Sheets(«Année»).Range("E" & L).Value = TextBox38
    Sheets(«Année»).Range("G" & L).Value = TextBox39
    Sheets(«Année»).Range("G" & L).Value = TextBox40
    Sheets(«Année»).Range("C" & L).Value = TextBox41
    Sheets(«Année»).Range("F" & L).Value = TextBox42
    Sheets(«Année»).Range("E" & L).Value = TextBox43
    Sheets(«Année»).Range("C" & L).Value = TextBox44
    Sheets(«Année»).Range("F" & L).Value = TextBox45
    Sheets(«Année»).Range("E" & L).Value = TextBox46
    Sheets(«Année»).Range("G" & L).Value = TextBox47
    Sheets(«Année»).Range("G" & L).Value = TextBox48
    Sheets(«Année»).Range("C" & L).Value = TextBox49
    Sheets(«Année»).Range("F" & L).Value = TextBox50
    Sheets(«Année»).Range("E" & L).Value = TextBox51
    Sheets(«Année»).Range("C" & L).Value = TextBox52
    Sheets(«Année»).Range("F" & L).Value = TextBox53
    Sheets(«Année»).Range("E" & L).Value = TextBox54
    Sheets(«Année»).Range("G" & L).Value = TextBox55
    Sheets(«Année»).Range("G" & L).Value = TextBox56
    Sheets(«Année»).Range("C" & L).Value = TextBox57
    Sheets(«Année»).Range("F" & L).Value = TextBox58
    Sheets(«Année»).Range("E" & L).Value = TextBox59
    Sheets(«Année»).Range("C" & L).Value = TextBox60
    Sheets(«Année»).Range("F" & L).Value = TextBox61
    Sheets(«Année»).Range("E" & L).Value = TextBox62
    Sheets(«Année»).Range("G" & L).Value = TextBox63
    Sheets(«Année»).Range("C" & L).Value = TextBox64
    Sheets(«Année»).Range("F" & L).Value = TextBox65
    Sheets(«Année»).Range("E" & L).Value = TextBox66
    End If
    End Sub
Le 08/12/2014 à 11:32

Ca marche !!

Merci beaucoup

Le 08/12/2014 à 11:36

Par contre tu regarderas mais tu affecte plusieurs valeurs différentes à la même cellule d'affilée du coup la première est écrasée.

Sheets(«Année»).Range("C" & L).Value = TextBox3
    Sheets(«Année»).Range("C" & L).Value = TextBox4

Là excel va assigner la valeur TextBox3 à la cellule C"L" et juste après la valeur TextBox4 donc du coup plus de trace de ta valeur TextBox3 dans la cellule

Le 08/12/2014 à 11:48

J'ai vu ça !

Du coup les données ne s'ajoutent pas dans le deuxième tableaux (sauf les deux premières colonnes)

En fait j'ai besoin que chaque ligne de mon userform s'ajoute dans une nouvelle ligne de mon tableau.

Voici mon fichier pour être plus claire :

https://www.cjoint.com/c/DLil2XSoUem

Quand j'ajoute des données avec l'userfom, les données sont bien ajoutées dans le premier tableau mais pas dans le second.

Le 08/12/2014 à 11:55

Ok je vois ce que tu veux. Je m'en occupe après le repas

Le 08/12/2014 à 13:37

Ok merci

Le 08/12/2014 à 14:04

Elles sont où dans ton userform les texbox 39 à 66??

Le code sans les textbox que je n'ai pas trouvé (Si elles sont là il suffit de les rajouter avec le même schéma

'Pour le bouton Ajouter
Private Sub CommandButton1_Click()
Dim L, i As Integer
If MsgBox("Confirmez-vous l’insertion ?", vbYesNo, "Confirmation d’insertion") = vbYes Then

L = Sheets("Habilitation Agent").Range("a65536").End(xlUp).Row + 1

Sheets("Habilitation Agent").Range("A" & L).Value = ComboBox1
Sheets("Habilitation Agent").Range("B" & L).Value = TextBox2
Sheets("Habilitation Agent").Range("C" & L).Value = TextBox3
Sheets("Habilitation Agent").Range("I" & L).Value = TextBox4
Sheets("Habilitation Agent").Range("O" & L).Value = TextBox5
Sheets("Habilitation Agent").Range("BK" & L).Value = TextBox6
Sheets("Habilitation Agent").Range("U" & L).Value = TextBox7
Sheets("Habilitation Agent").Range("AA" & L).Value = TextBox8
Sheets("Habilitation Agent").Range("AG" & L).Value = TextBox9
Sheets("Habilitation Agent").Range("F" & L).Value = TextBox10
Sheets("Habilitation Agent").Range("L" & L).Value = TextBox11
Sheets("Habilitation Agent").Range("R" & L).Value = TextBox12
Sheets("Habilitation Agent").Range("BN" & L).Value = TextBox13
Sheets("Habilitation Agent").Range("X" & L).Value = TextBox14
Sheets("Habilitation Agent").Range("AD" & L).Value = TextBox15
Sheets("Habilitation Agent").Range("AJ" & L).Value = TextBox16
Sheets("Habilitation Agent").Range("E" & L).Value = TextBox24
Sheets("Habilitation Agent").Range("K" & L).Value = TextBox25
Sheets("Habilitation Agent").Range("Q" & L).Value = TextBox26
Sheets("Habilitation Agent").Range("BM" & L).Value = TextBox27
Sheets("Habilitation Agent").Range("W" & L).Value = TextBox28
Sheets("Habilitation Agent").Range("AC" & L).Value = TextBox29
Sheets("Habilitation Agent").Range("AI" & L).Value = TextBox30
Sheets("Habilitation Agent").Range("AM" & L).Value = TextBox32
Sheets("Habilitation Agent").Range("AP" & L).Value = TextBox33
Sheets("Habilitation Agent").Range("AO" & L).Value = TextBox34
Sheets("Habilitation Agent").Range("AS" & L).Value = TextBox36
Sheets("Habilitation Agent").Range("AV" & L).Value = TextBox37
Sheets("Habilitation Agent").Range("AU" & L).Value = TextBox38

L = Sheets("Année").Range("a65536").End(xlUp).Row + 1

For i = L To L + 8
Sheets("Année").Range("A" & i).Value = ComboBox1
Sheets("Année").Range("B" & i).Value = TextBox2
Next i

Sheets("Année").Range("C" & L).Value = TextBox3
Sheets("Année").Range("C" & L + 1).Value = TextBox4
Sheets("Année").Range("C" & L + 2).Value = TextBox5
Sheets("Année").Range("C" & L + 3).Value = TextBox6
Sheets("Année").Range("C" & L + 4).Value = TextBox7
Sheets("Année").Range("C" & L + 5).Value = TextBox8
Sheets("Année").Range("C" & L + 6).Value = TextBox9
Sheets("Année").Range("F" & L).Value = TextBox10
Sheets("Année").Range("F" & L + 1).Value = TextBox11
Sheets("Année").Range("F" & L + 2).Value = TextBox12
Sheets("Année").Range("F" & L + 3).Value = TextBox13
Sheets("Année").Range("F" & L + 4).Value = TextBox14
Sheets("Année").Range("F" & L + 5).Value = TextBox15
Sheets("Année").Range("F" & L + 6).Value = TextBox16
Sheets("Année").Range("G" & L).Value = TextBox17
Sheets("Année").Range("G" & L + 1).Value = TextBox18
Sheets("Année").Range("G" & L + 2).Value = TextBox19
Sheets("Année").Range("G" & L + 3).Value = TextBox20
Sheets("Année").Range("G" & L + 4).Value = TextBox21
Sheets("Année").Range("G" & L + 5).Value = TextBox22
Sheets("Année").Range("G" & L + 6).Value = TextBox23
Sheets("Année").Range("E" & L).Value = TextBox24
Sheets("Année").Range("E" & L + 1).Value = TextBox25
Sheets("Année").Range("E" & L + 2).Value = TextBox26
Sheets("Année").Range("E" & L + 3).Value = TextBox27
Sheets("Année").Range("E" & L + 4).Value = TextBox28
Sheets("Année").Range("E" & L + 5).Value = TextBox29
Sheets("Année").Range("E" & L + 6).Value = TextBox30
Sheets("Année").Range("G" & L + 7).Value = TextBox31
Sheets("Année").Range("C" & L + 7).Value = TextBox32
Sheets("Année").Range("F" & L + 7).Value = TextBox33
Sheets("Année").Range("E" & L + 7).Value = TextBox34
Sheets("Année").Range("G" & L + 8).Value = TextBox35
Sheets("Année").Range("C" & L + 8).Value = TextBox36
Sheets("Année").Range("F" & L + 8).Value = TextBox37
Sheets("Année").Range("E" & L + 8).Value = TextBox38
End If
End Sub
Le 08/12/2014 à 14:32

C'est exactement ce que je voulais !

Merci beaucoup.

J'ai complété avec les textbox qui manquaient et tout fonction.

Rechercher des sujets similaires à "remplir feuilles userform"