Private Sub CommandButton9_Click()
For i = 6 To 36
If Range("D" & i) = "" And _
Range("D" & i - 1) <> "" _
Or Application.WorksheetFunction.Sum(Range("G" & i - 1 & ":Zz" & i - 1)) = 0 _
And Application.WorksheetFunction.Sum(Range("G" & i & ":Zz" & i)) > 0 Then
'mon problème est là, je commence à la feuil2
With Sheets("Feuil2")
.Range("A11").Value = ListBox10.Value
.Range("A12").Value = ListBox27.Value
.Range("A13").Value = ListBox28.Value
.Range("A14").Value = ListBox29.Value
.Range("A15").Value = ListBox30.Value
.Range("A16").Value = ListBox31.Value
.Range("A17").Value = ListBox32.Value
.Range("A18").Value = ListBox33.Value
.Range("A19").Value = ListBox34.Value
.Range("A3").Value = ListBox11.Value
.Range("A4").Value = ListBox12.Value
.Range("A5").Value = ListBox13.Value
.Range("A6").Value = ListBox14.Value
.Range("A7").Value = ListBox15.Value
.Range("A8").Value = ListBox16.Value
.Range("A21").Value = ListBox17.Value
.Range("A22").Value = ListBox18.Value
.Range("A23").Value = ListBox19.Value
.Range("A24").Value = ListBox20.Value
.Range("A25").Value = ListBox21.Value
.Range("A26").Value = ListBox22.Value
.Range("A27").Value = ListBox23.Value
.Range("A28").Value = ListBox24.Value
.Range("A29").Value = ListBox25.Value
.Range("A30").Value = ListBox26.Value
End With
End Sub
Private Sub CommandButton9_Click()
Dim i As Byte 'déclare la variable i (incrément)
Dim x As Byte 'déclare la variable o (Onglet)
For i = 6 To 36
If Range("D" & i) = "" And _
Range("D" & i - 1) <> "" _
Or Application.WorksheetFunction.Sum(Range("G" & i - 1 & ":Zz" & i - 1)) = 0 _
And Application.WorksheetFunction.Sum(Range("G" & i & ":Zz" & i)) > 0 Then
For x = 2 To Sheets.Count
With Sheets(x)
.Range("A11").Value = ListBox10.Value
.Range("A12").Value = ListBox27.Value
.Range("A13").Value = ListBox28.Value
.Range("A14").Value = ListBox29.Value
.Range("A15").Value = ListBox30.Value
.Range("A16").Value = ListBox31.Value
.Range("A17").Value = ListBox32.Value
.Range("A18").Value = ListBox33.Value
.Range("A19").Value = ListBox34.Value
.Range("A3").Value = ListBox11.Value
.Range("A4").Value = ListBox12.Value
.Range("A5").Value = ListBox13.Value
.Range("A6").Value = ListBox14.Value
.Range("A7").Value = ListBox15.Value
.Range("A8").Value = ListBox16.Value
.Range("A21").Value = ListBox17.Value
.Range("A22").Value = ListBox18.Value
.Range("A23").Value = ListBox19.Value
.Range("A24").Value = ListBox20.Value
.Range("A25").Value = ListBox21.Value
.Range("A26").Value = ListBox22.Value
.Range("A27").Value = ListBox23.Value
.Range("A28").Value = ListBox24.Value
.Range("A29").Value = ListBox25.Value
.Range("A30").Value = ListBox26.Value
End With
Next x
Next i
End Sub
Private Sub CommandButton9_Click()
Dim i As Byte 'déclare la variable i (incrément)
Dim x As Byte 'déclare la variable o (Onglet)
Dim z As Byte 'déclare la variable z
For i = 6 To 36
If Range("D" & i) = "" And _
Range("D" & i - 1) <> "" _
Or Application.WorksheetFunction.Sum(Range("G" & i - 1 & ":Zz" & i - 1)) = 0 _
And Application.WorksheetFunction.Sum(Range("G" & i & ":Zz" & i)) > 0 Then
For x = 2 To Sheets.Count
For z = 4 To 34
On Error Resume Next
Sheets(x).Cells(x, 1).Value = Me.Controls("ListBox" & z).Value
If Err <> 0 Then Err = 0
On Error GoTo 0
Next z
Next x
Next i
End Sub
Private Sub CommandButton9_Click()
Dim x As Byte 'déclare la variable o (Onglet)
Dim z As Byte 'déclare la variable z
For x = 2 To Sheets.Count
For z = 4 To 34
On Error Resume Next
Sheets(x).Cells(x, 1).Value = Me.Controls("ListBox" & z).Value
If Err <> 0 Then Err = 0
On Error GoTo 0
Next z
Next x
End Sub
Private Sub CommandButton9_Click()
Dim x As Byte
For x = 10 To Sheets.Count
With Sheets(x)
.Range("A1").Value = ListBox10.Value
.Range("A12").Value = ListBox27.Value
.Range("A13").Value = ListBox28.Value
.Range("A14").Value = ListBox29.Value
.Range("A15").Value = ListBox30.Value
.Range("A16").Value = ListBox31.Value
.Range("A17").Value = ListBox32.Value
.Range("A18").Value = ListBox33.Value
.Range("A19").Value = ListBox34.Value
.Range("A3").Value = ListBox11.Value
.Range("A4").Value = ListBox12.Value
.Range("A5").Value = ListBox13.Value
.Range("A6").Value = ListBox14.Value
.Range("A7").Value = ListBox15.Value
.Range("A8").Value = ListBox16.Value
.Range("A21").Value = ListBox17.Value
.Range("A22").Value = ListBox18.Value
.Range("A23").Value = ListBox19.Value
.Range("A24").Value = ListBox20.Value
.Range("A25").Value = ListBox21.Value
.Range("A26").Value = ListBox22.Value
.Range("A27").Value = ListBox23.Value
.Range("A28").Value = ListBox24.Value
.Range("A29").Value = ListBox25.Value
.Range("A30").Value = ListBox26.Value
End With
Next x
End Sub
With Sheets(Feuil2)
If .Range("A3") = "" Then
.Range("A1").Value = ListBox10.Value
.Range("A11").Value = ListBox27.Value
.Range("A12").Value = ListBox28.Value
.Range("A13").Value = ListBox29.Value
.Range("A14").Value = ListBox30.Value
.Range("A15").Value = ListBox31.Value
.Range("A16").Value = ListBox32.Value
.Range("A17").Value = ListBox33.Value
.Range("A18").Value = ListBox34.Value
.Range("A3").Value = ListBox11.Value
.Range("A4").Value = ListBox12.Value
.Range("A5").Value = ListBox13.Value
.Range("A6").Value = ListBox14.Value
.Range("A7").Value = ListBox15.Value
.Range("A8").Value = ListBox16.Value
.Range("A21").Value = ListBox17.Value
.Range("A22").Value = ListBox18.Value
.Range("A23").Value = ListBox19.Value
.Range("A24").Value = ListBox20.Value
.Range("A25").Value = ListBox21.Value
.Range("A26").Value = ListBox22.Value
.Range("A27").Value = ListBox23.Value
.Range("A28").Value = ListBox24.Value
.Range("A29").Value = ListBox25.Value
.Range("A30").Value = ListBox26.Value
.Range("B11").Value = TextBox102.Value
.Range("B12").Value = TextBox103.Value
.Range("B13").Value = TextBox104.Value
.Range("B14").Value = TextBox105.Value
.Range("B15").Value = TextBox106.Value
.Range("B16").Value = TextBox107.Value
.Range("B17").Value = TextBox108.Value
.Range("B18").Value = TextBox109.Value
.Range("B3").Value = TextBox86.Value
.Range("B4").Value = TextBox87.Value
.Range("B5").Value = TextBox88.Value
.Range("B6").Value = TextBox89.Value
.Range("B7").Value = TextBox90.Value
.Range("B8").Value = TextBox91.Value
.Range("B21").Value = TextBox92.Value
.Range("B22").Value = TextBox93.Value
.Range("B23").Value = TextBox94.Value
.Range("B24").Value = TextBox95.Value
.Range("B25").Value = TextBox96.Value
.Range("B26").Value = TextBox97.Value
.Range("B27").Value = TextBox98.Value
.Range("B28").Value = TextBox99.Value
.Range("B29").Value = TextBox100.Value
.Range("B30").Value = TextBox101.Value
.Range("C11").Value = TextBox130.Value
.Range("C12").Value = TextBox131.Value
.Range("C13").Value = TextBox132.Value
.Range("C14").Value = TextBox133.Value
.Range("C15").Value = TextBox134.Value
.Range("C16").Value = TextBox135.Value
.Range("C17").Value = TextBox136.Value
.Range("C18").Value = TextBox137.Value
.Range("C3").Value = TextBox115.Value
.Range("C4").Value = TextBox116.Value
.Range("C5").Value = TextBox117.Value
.Range("C6").Value = TextBox118.Value
.Range("C7").Value = TextBox119.Value
.Range("C8").Value = TextBox120.Value
.Range("C21").Value = TextBox121.Value
.Range("C22").Value = TextBox122.Value
.Range("C23").Value = TextBox123.Value
.Range("C24").Value = TextBox124.Value
.Range("C25").Value = TextBox125.Value
.Range("B26").Value = TextBox126.Value
.Range("C27").Value = TextBox127.Value
.Range("C28").Value = TextBox128.Value
.Range("C29").Value = TextBox129.Value
.Range("C30").Value = TextBox1114.Value
.Range("E35").Value = TextBox111.Value
Dim D As Byte, compteur As Byte
For D = 3 To 9
If .Range("A" & D) <> "" Then
.Range("D" & D) = TextBox113.Value
End If
Next D
For D = 11 To 19
If .Range("A" & D) <> "" Then
.Range("D" & D) = TextBox113.Value
End If
Next D
For D = 21 To 32
If .Range("A" & D) <> "" Then
.Range("D" & D) = TextBox113.Value
End If
Next D
End With
End If
End Sub
Private Sub CommandButton9_Click()
Dim x As Byte
If Sheets("Programme des travaux").Range("A6") <> "" And Sheets("Programme des travaux").Range("A7") = "" Then
For x = 10 To 40 'ou for x = 2 to 32 'boucle
With Sheets(x) 'ou With Sheets("Feuil" & x)
'j'ai pris A1 pour l'exemple mais il faut que tu choissises une cellule qui sera obligatoirement remplie par l'utilisateur...
If .Range("A1").Value <> "" Then 'condition : si A1 n'est pas vide
.Range("A1").Value = ListBox10.Value
.Range("A12").Value = ListBox27.Value
.Range("A13").Value = ListBox28.Value
.Range("A14").Value = ListBox29.Value
.Range("A15").Value = ListBox30.Value
.Range("A16").Value = ListBox31.Value
.Range("A17").Value = ListBox32.Value
.Range("A18").Value = ListBox33.Value
.Range("A19").Value = ListBox34.Value
.Range("A3").Value = ListBox11.Value
.Range("A4").Value = ListBox12.Value
.Range("A5").Value = ListBox13.Value
.Range("A6").Value = ListBox14.Value
.Range("A7").Value = ListBox15.Value
.Range("A8").Value = ListBox16.Value
.Range("A21").Value = ListBox17.Value
.Range("A22").Value = ListBox18.Value
.Range("A23").Value = ListBox19.Value
.Range("A24").Value = ListBox20.Value
.Range("A25").Value = ListBox21.Value
.Range("A26").Value = ListBox22.Value
.Range("A27").Value = ListBox23.Value
.Range("A28").Value = ListBox24.Value
.Range("A29").Value = ListBox25.Value
.Range("A30").Value = ListBox26.Value
Exit Sub 'sort de la procédure
End If 'fin de la confition
End With
Next x
End Sub
Private Sub CommandButton9_Click()
Dim x As Byte, compteur As Byte
compteur = 1
compteur = compteur + Sheets("Programme des travaux").Range("A170").Value
Sheets("Programme des travaux").Range("A170").Value = (TextBox142.Value + 1)
x = compteur + 8
With Sheets(x)
.Range("A1").Value = ListBox10.Value
.Range("A11").Value = ListBox27.Value
.Range("A12").Value = ListBox28.Value
.Range("A13").Value = ListBox29.Value
.Range("A14").Value = ListBox30.Value
.Range("A15").Value = ListBox31.Value
.Range("A16").Value = ListBox32.Value
.Range("A17").Value = ListBox33.Value
.Range("A18").Value = ListBox34.Value
.Range("A3").Value = ListBox11.Value
.Range("A4").Value = ListBox12.Value
.Range("A5").Value = ListBox13.Value
.Range("A6").Value = ListBox14.Value
.Range("A7").Value = ListBox15.Value
.Range("A8").Value = ListBox16.Value
.Range("A21").Value = ListBox17.Value
.Range("A22").Value = ListBox18.Value
.Range("A23").Value = ListBox19.Value
.Range("A24").Value = ListBox20.Value
.Range("A25").Value = ListBox21.Value
.Range("A26").Value = ListBox22.Value
.Range("A27").Value = ListBox23.Value
.Range("A28").Value = ListBox24.Value
.Range("A29").Value = ListBox25.Value
.Range("A30").Value = ListBox26.Value
.Range("B11").Value = TextBox102.Value
.Range("B12").Value = TextBox103.Value
.Range("B13").Value = TextBox104.Value
.Range("B14").Value = TextBox105.Value
.Range("B15").Value = TextBox106.Value
.Range("B16").Value = TextBox107.Value
.Range("B17").Value = TextBox108.Value
.Range("B18").Value = TextBox109.Value
.Range("B3").Value = TextBox86.Value
.Range("B4").Value = TextBox87.Value
.Range("B5").Value = TextBox88.Value
.Range("B6").Value = TextBox89.Value
.Range("B7").Value = TextBox90.Value
.Range("B8").Value = TextBox91.Value
.Range("B21").Value = TextBox92.Value
.Range("B22").Value = TextBox93.Value
.Range("B23").Value = TextBox94.Value
.Range("B24").Value = TextBox95.Value
.Range("B25").Value = TextBox96.Value
.Range("B26").Value = TextBox97.Value
.Range("B27").Value = TextBox98.Value
.Range("B28").Value = TextBox99.Value
.Range("B29").Value = TextBox100.Value
.Range("B30").Value = TextBox101.Value
.Range("C11").Value = TextBox130.Value
.Range("C12").Value = TextBox131.Value
.Range("C13").Value = TextBox132.Value
.Range("C14").Value = TextBox133.Value
.Range("C15").Value = TextBox134.Value
.Range("C16").Value = TextBox135.Value
.Range("C17").Value = TextBox136.Value
.Range("C18").Value = TextBox137.Value
.Range("C3").Value = TextBox115.Value
.Range("C4").Value = TextBox116.Value
.Range("C5").Value = TextBox117.Value
.Range("C6").Value = TextBox118.Value
.Range("C7").Value = TextBox119.Value
.Range("C8").Value = TextBox120.Value
.Range("C21").Value = TextBox121.Value
.Range("C22").Value = TextBox122.Value
.Range("C23").Value = TextBox123.Value
.Range("C24").Value = TextBox124.Value
.Range("C25").Value = TextBox125.Value
.Range("B26").Value = TextBox126.Value
.Range("C27").Value = TextBox127.Value
.Range("C28").Value = TextBox128.Value
.Range("C29").Value = TextBox129.Value
.Range("C30").Value = TextBox114.Value
Dim D As Byte
For D = 3 To 9
If .Range("A" & D) <> "" Then
.Range("D" & D) = TextBox113.Value
End If
Next D
For D = 11 To 19
If .Range("A" & D) <> "" Then
.Range("D" & D) = TextBox113.Value
End If
Next D
For D = 21 To 32
If .Range("A" & D) <> "" Then
.Range("D" & D) = TextBox113.Value
End If
Next D
End With
End Sub