Public Sub [B][COLOR="Red"]Valider_Déplacement_Click()[/COLOR][/B]
Dim Sh As Shape
Dim i As Byte, Ligne As Integer
With Feuil5
For Each Sh In .Shapes
If Left(Sh.Name, 5) = "Lance" Then
Ligne = Entete + Val(Replace(Sh.Name, "Lance", ""))
Feuil1.Range("t" & Ligne) = (Int(Sh.Top * 1000000)) + Sh.Left
If Feuil1.Range("u" & Ligne).Value <> Feuil1.Range("t" & Ligne).Value Then
[B] [COLOR="red"]Affiche Sh, Shapes("fenetre"), CoinHaut, CoinGhe
Affiche Sh, ComboBox1, CoinHaut + 28, CoinGhe + 35
Affiche Sh, ComboBox2, CoinHaut + 65, CoinGhe + 30
Affiche Sh, ComboBox3, CoinHaut + 110, CoinGhe + 40
Affiche Sh, ComboBox4, CoinHaut + 150, CoinGhe + 10
Affiche Sh, ValiderSaisie, CoinHaut + 180, CoinGhe + 35
Affiche Sh, FermerSaisie, CoinHaut + 3, CoinGhe + 105
Affiche Sh, AnnulerLance, CoinHaut + 180, CoinGhe + 70[/COLOR][/B] ComboBox4.Value = [Ext_Tempo]
End If
End If
Next Sh
End With
End Sub
Private Sub [B][COLOR="red"]ValiderSaisie_Click()[/COLOR][/B]
Dim NumeroLance As Byte, i As Byte
For i = 1 + Entete To NbLances + Entete
If Feuil1.Range("t" & i).Value <> Feuil1.Range("u" & i).Value Then NumeroLance = i
Next i
Feuil1.Range("K" & NumeroLance) = ComboBox1.Value
Feuil1.Range("l" & NumeroLance) = ComboBox2.Value
Feuil1.Range("M" & NumeroLance) = ComboBox3.Value
Feuil1.Range("N" & NumeroLance) = ComboBox4.Value
[B][COLOR="red"]FenêtrePOPUP (False)[/COLOR][/B]
For i = 1 + Entete To NbLances + Entete
Feuil1.Range("u" & i).Value = Feuil1.Range("t" & i).Value
Next i
End Sub
Sub Affiche(Sh As Shape, tatiak As Object, T As Long, L As Long)
With tatiak
.Visible = True
.Top = Sh.Top + T
.Left = Sh.Left + L
End With
End Sub
Sub FenêtrePOPUP(ON_OFF As Boolean)
Shapes("fenetre").Visible = ON_OFF
ComboBox1.Visible = ON_OFF
ComboBox2.Visible = ON_OFF
ComboBox3.Visible = ON_OFF
ComboBox4.Visible = ON_OFF
ValiderSaisie.Visible = ON_OFF
FermerSaisie.Visible = ON_OFF
AnnulerLance.Visible = ON_OFF
End Sub