Private Sub CommandButton1_Click()
Dim x As Long, z As Integer, v As Integer, w As Integer, a As Integer, b As Integer, y As Integer, n As Long, ligne As Integer
'insertion feuille Domaine1
'Objectif 1
If Range("B2").Value = 1 Then
x = Range("A2").Value
For n = x To Rows.Count
If Range("C" & n) = "" Then
ligne = n
Exit For
End If
Next
Set C = ActiveSheet.Columns("C").Find(Me.ComboBox1, LookIn:=xlValues, lookat:=xlPart)
If Not C Is Nothing Then
MsgBox ("Objectif déjà saisi, veuillez recommencer !")
Me.ComboBox1 = ""
Else
Rows(ligne).Select
Selection.Copy
Selection.Insert Shift:=xlUp
Range("C" & ligne).Value = ComboBox1.Value
Range("D" & ligne).Value = TextBox0.Value
'stockage et vérification dans la base de donnée
' cela bloque ici si je mets à la place de "Activesheet" "Sheets("BDD1")" ou bien "Sheets("Feuil42")
Sheets("BDD1").Activate
Set C = ActiveSheet.Columns("A").Find(Me.ComboBox1, LookIn:=xlValues, lookat:=xlPart)
If C Is Nothing Then
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = ComboBox1
End If
'insertion dans les résultats élèves
Sheets("RésultatsD1").Activate
Rows(ligne).Select
Selection.Copy
Selection.Insert Shift:=xlUp
Range("C" & ligne).Value = ComboBox1.Value
Range("D" & ligne).Value = TextBox0.Value
'valeur de départ des lignes subalternes
Range("A3").Value = Range("A3").Value + 1
Range("A4").Value = Range("A4").Value + 1
Range("A5").Value = Range("A5").Value + 1
Range("A6").Value = Range("A6").Value + 1
Range("A7").Value = Range("A7").Value + 1
Range("A8").Value = Range("A8").Value + 1
Range("A9").Value = Range("A9").Value + 1
Range("A10").Value = Range("A10").Value + 1
Sheets("Domaine1").Activate
'valeur de départ des lignes subalternes
Range("A3").Value = Range("A3").Value + 1
Range("A4").Value = Range("A4").Value + 1
Range("A5").Value = Range("A5").Value + 1
Range("A6").Value = Range("A6").Value + 1
Range("A7").Value = Range("A7").Value + 1
Range("A8").Value = Range("A8").Value + 1
Range("A9").Value = Range("A9").Value + 1
Range("A10").Value = Range("A10").Value + 1
'remise à zéro
Application.CutCopyMode = False
Range("B2").Value = 0
' fermeture
Unload Me
End If
End If
'+8 blocs du même type
End Sub