c'est ca les sources??
merci du coups de main
ca c'est pour mon frmtable:
Option Explicit
Private Sub CommandButton1_Click()
FrmTable.Hide
FrmPerso.Show
End Sub
Private Sub CommandButton2_Click()
FrmTable.Hide
End Sub
Private Sub Image26_Click()
End Sub
Private Sub imgJoueur1Fr_Click()
End Sub
Private Sub imgJoueur2F_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim intI As Integer
tableau
intJoueur = 1
Select Case choixA
Case 1
Me.imgJoueur1F.Visible = True
Me.imgJoueur1B.Visible = False
Me.imgJoueur1Fr.Visible = False
Me.imgJoueur1R.Visible = False
Me.TextBox2.Value = "FLIPPER"
Me.LabelJoueur1.Caption = "FLIPPER"
For intI = 5 To 13
Me.Controls("image" & intI).Picture = Me.imgJoueur1F.Picture
Next
Case 4
Me.imgJoueur1F.Visible = False
Me.imgJoueur1B.Visible = False
Me.imgJoueur1Fr.Visible = False
Me.imgJoueur1R.Visible = True
Me.TextBox2.Value = "RAMBO"
Me.LabelJoueur1.Caption = "RAMBO"
For intI = 5 To 13
Me.Controls("image" & intI).Picture = Me.imgJoueur1R.Picture
Next
Case 2
Me.imgJoueur1F.Visible = False
Me.imgJoueur1B.Visible = False
Me.imgJoueur1Fr.Visible = True
Me.imgJoueur1R.Visible = False
Me.TextBox2.Value = "FRANKY"
Me.LabelJoueur1.Caption = "FRANKY"
For intI = 5 To 13
Me.Controls("image" & intI).Picture = Me.imgJoueur1Fr.Picture
Next
Case 3
Me.imgJoueur1F.Visible = False
Me.imgJoueur1B.Visible = True
Me.imgJoueur1Fr.Visible = False
Me.imgJoueur1R.Visible = False
Me.TextBox2.Value = "BIQUETTE"
Me.LabelJoueur1.Caption = "BIQUETTE"
For intI = 5 To 13
Me.Controls("image" & intI).Picture = Me.imgJoueur1B.Picture
Next
End Select
Select Case choixB
Case 1
Me.imgJoueur2F.Visible = True
Me.imgJoueur2B.Visible = False
Me.imgJoueur2Fr.Visible = False
Me.imgJoueur2R.Visible = False
Me.TextBox3.Value = "FLIPPER"
Me.LabelJoueur2.Caption = "FLIPPER"
For intI = 14 To 22
Me.Controls("image" & intI).Picture = Me.imgJoueur2F.Picture
Next
Case 4
Me.imgJoueur2F.Visible = False
Me.imgJoueur2B.Visible = False
Me.imgJoueur2Fr.Visible = False
Me.imgJoueur2R.Visible = True
Me.TextBox3.Value = "RAMBO"
Me.LabelJoueur2.Caption = "RAMBO"
For intI = 14 To 22
Me.Controls("image" & intI).Picture = Me.imgJoueur2R.Picture
Next
Case 2
Me.imgJoueur2F.Visible = False
Me.imgJoueur2B.Visible = False
Me.imgJoueur2Fr.Visible = True
Me.imgJoueur2R.Visible = False
Me.TextBox3.Value = "FRANKY"
Me.LabelJoueur2.Caption = "FRANKY"
For intI = 14 To 22
Me.Controls("image" & intI).Picture = Me.imgJoueur2Fr.Picture
Next
Case 3
Me.imgJoueur2F.Visible = False
Me.imgJoueur2B.Visible = True
Me.imgJoueur2Fr.Visible = False
Me.imgJoueur2R.Visible = False
Me.TextBox3.Value = "BIQUETTE"
Me.LabelJoueur2.Caption = "BIQUETTE"
For intI = 14 To 22
Me.Controls("image" & intI).Picture = Me.imgJoueur2B.Picture
Next
End Select
End Sub
Private Sub Image10_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 10, (x), (y), Button
End Sub
Private Sub Image10_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 10
End Sub
Private Sub Image11_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 11, (x), (y), Button
End Sub
Private Sub Image11_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 11
End Sub
Private Sub Image12_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 12, (x), (y), Button
End Sub
Private Sub Image12_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 12
End Sub
Private Sub Image13_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 13, (x), (y), Button
End Sub
Private Sub Image13_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 13
End Sub
Private Sub Image14_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 14, (x), (y), Button
End Sub
Private Sub Image14_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 14
End Sub
Private Sub Image15_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 15, (x), (y), Button
End Sub
Private Sub Image15_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 15
End Sub
Private Sub Image16_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 16, (x), (y), Button
End Sub
Private Sub Image16_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 16
End Sub
Private Sub Image17_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 17, (x), (y), Button
End Sub
Private Sub Image17_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 17
End Sub
Private Sub Image18_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 18, (x), (y), Button
End Sub
Private Sub Image18_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 18
End Sub
Private Sub Image19_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 19, (x), (y), Button
End Sub
Private Sub Image19_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 19
End Sub
Private Sub Image20_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 20, (x), (y), Button
End Sub
Private Sub Image20_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 20
End Sub
Private Sub Image21_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 21, (x), (y), Button
End Sub
Private Sub Image21_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 21
End Sub
Private Sub Image22_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 22, (x), (y), Button
End Sub
Private Sub Image22_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 22
End Sub
Private Sub Image5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 5, (x), (y), Button
End Sub
Private Sub Image5_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 5
End Sub
Private Sub Image6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 6, (x), (y), Button
End Sub
Private Sub Image6_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 6
End Sub
Private Sub Image7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 7, (x), (y), Button
End Sub
Private Sub Image7_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 7
End Sub
Private Sub Image8_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 8, (x), (y), Button
End Sub
Private Sub Image8_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 8
End Sub
Private Sub Image9_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseMove 9, (x), (y), Button
End Sub
Private Sub Image9_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
MouseUp 9
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub TextBox1_()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub tableau()
arrcoorTableau(1).coorX = 0
arrcoorTableau(1).coorY = 0
arrcoorTableau(2).coorX = 198
arrcoorTableau(2).coorY = 0
arrcoorTableau(3).coorX = 402
arrcoorTableau(3).coorY = 0
arrcoorTableau(4).coorX = 60
arrcoorTableau(4).coorY = 60
arrcoorTableau(5).coorX = 198
arrcoorTableau(5).coorY = 60
arrcoorTableau(6).coorX = 336
arrcoorTableau(6).coorY = 60
arrcoorTableau(7).coorX = 126
arrcoorTableau(7).coorY = 132
arrcoorTableau(8).coorX = 198
arrcoorTableau(8).coorY = 132
arrcoorTableau(9).coorX = 270
arrcoorTableau(9).coorY = 132
arrcoorTableau(10).coorX = 0
arrcoorTableau(10).coorY = 198
arrcoorTableau(11).coorX = 60
arrcoorTableau(11).coorY = 198
arrcoorTableau(12).coorX = 126
arrcoorTableau(12).coorY = 198
arrcoorTableau(13).coorX = 270
arrcoorTableau(13).coorY = 198
arrcoorTableau(14).coorX = 336
arrcoorTableau(14).coorY = 198
arrcoorTableau(15).coorX = 402
arrcoorTableau(15).coorY = 198
arrcoorTableau(16).coorX = 126
arrcoorTableau(16).coorY = 270
arrcoorTableau(17).coorX = 198
arrcoorTableau(17).coorY = 270
arrcoorTableau(18).coorX = 270
arrcoorTableau(18).coorY = 270
arrcoorTableau(19).coorX = 60
arrcoorTableau(19).coorY = 336
arrcoorTableau(20).coorX = 198
arrcoorTableau(20).coorY = 336
arrcoorTableau(21).coorX = 336
arrcoorTableau(21).coorY = 336
arrcoorTableau(22).coorX = 0
arrcoorTableau(22).coorY = 408
arrcoorTableau(23).coorX = 198
arrcoorTableau(23).coorY = 408
arrcoorTableau(24).coorX = 402
arrcoorTableau(24).coorY = 408
End Sub
Sub MouseMove(NbImage As Byte, x As Integer, y As Integer, b As Integer)
Dim centreX As Single
Dim centreY As Single
If (intJoueur = 1 And NbImage >= 5 And NbImage <= 13) Or _
(intJoueur = 2 And NbImage >= 14 And NbImage <= 22) Then
If b = 1 Then
centreX = Me.Controls("Image" & NbImage).Width / 2
centreY = Me.Controls("Image" & NbImage).Height / 2
Me.Controls("Image" & NbImage).Left = Me.Controls("Image" & NbImage).Left + (x - centreX)
Me.Controls("Image" & NbImage).Top = Me.Controls("Image" & NbImage).Top + (y - centreY)
End If
Else
' mauvais pion
End If
End Sub
Sub MouseUp(NbImage As Byte)
Dim intMin As Integer
Dim intMinDist As Long
Dim intI As Integer
If (intJoueur = 1 And NbImage >= 5 And NbImage <= 13) Or _
(intJoueur = 2 And NbImage >= 14 And NbImage <= 22) Then
intMin = 0
intMinDist = 9999999#
For intI = 1 To 24
If intMinDist > Sqr((arrcoorTableau(intI).coorX - Me.Controls("Image" & NbImage).Left) ^ 2 + (arrcoorTableau(intI).coorY - Me.Controls("Image" & NbImage).Top) ^ 2) Then
intMin = intI
intMinDist = Sqr((arrcoorTableau(intI).coorX - Me.Controls("Image" & NbImage).Left) ^ 2 + (arrcoorTableau(intI).coorY - Me.Controls("Image" & NbImage).Top) ^ 2)
End If
Next
Me.Controls("Image" & NbImage).Left = arrcoorTableau(intMin).coorX
Me.Controls("Image" & NbImage).Top = arrcoorTableau(intMin).coorY
MsgBox Moulin(intMin)
If intJoueur = 1 Then
intJoueur = 2
Else
intJoueur = 1
End If
Else
End If
End Sub
Function VerifieCase(bytCase As Byte) As Byte
Dim i As Integer
VerifieCase = cvide
For i = 5 To 13
If Me.Controls("Image" & i).Left = arrcoorTableau(bytCase).coorX And _
Me.Controls("image" & i).Top = arrcoorTableau(bytCase).coorY Then
VerifieCase = cJoueur1
End If
Next
For i = 14 To 22
If Me.Controls("Image" & i).Left = arrcoorTableau(bytCase).coorX And _
Me.Controls("image" & i).Top = arrcoorTableau(bytCase).coorY Then
VerifieCase = cJoueur2
End If
Next
End Function
Function Moulin(bytBut) As Byte
Dim i As Integer
Moulin = cvide
For i = 5 To 20
If ThisWorkbook.Sheets("Sheet3").Cells(i, 10) = bytBut Or _
ThisWorkbook.Sheets("Sheet3").Cells(i, 11) = bytBut Or _
ThisWorkbook.Sheets("Sheet3").Cells(i, 12) = bytBut Then
If VerifieCase(ThisWorkbook.Sheets("Sheet3").Cells(i, 10)) = cJoueur1 And _
VerifieCase(ThisWorkbook.Sheets("Sheet3").Cells(i, 11)) = cJoueur1 And _
VerifieCase(ThisWorkbook.Sheets("Sheet3").Cells(i, 12)) = cJoueur1 Then
Moulin = cJoueur1
End If
End If
Next
For i = 5 To 20
If ThisWorkbook.Sheets("Sheet3").Cells(i, 10) = bytBut Or _
ThisWorkbook.Sheets("Sheet3").Cells(i, 11) = bytBut Or _
ThisWorkbook.Sheets("Sheet3").Cells(i, 12) = bytBut Then
If VerifieCase(ThisWorkbook.Sheets("Sheet3").Cells(i, 10)) = cJoueur2 And _
VerifieCase(ThisWorkbook.Sheets("Sheet3").Cells(i, 11)) = cJoueur2 And _
VerifieCase(ThisWorkbook.Sheets("Sheet3").Cells(i, 12)) = cJoueur2 Then
Moulin = cJoueur2
End If
End If
Next
End Function
Function possibilite(case_depart As Integer) As String
Select Case case_depart
Case 1: possibilite = "2;10"
Case 2: possibilite = "1;3;5"
Case 3: possibilite = "2;15"
Case 4: possibilite = "5;11"
Case 5: possibilite = "2;4;6;8"
Case 6: possibilite = "5;14"
Case 7: possibilite = "8;12"
Case 8: possibilite = "5;7;9"
Case 9: possibilite = "8;13"
Case 10: possibilite = "1;22"
Case 11: possibilite = "4;10;12;19"
Case 12: possibilite = "7;11;16"
Case 13: possibilite = "9;14;18"
Case 14: possibilite = "6;13;15;21"
Case 15: possibilite = "3;14;24"
Case 16: possibilite = "12;17"
Case 17: possibilite = "16;18;20"
Case 18: possibilite = "13;17"
Case 19: possibilite = "11;20"
Case 20: possibilite = "17;19;21;23"
Case 21: possibilite = "14;20"
Case 22: possibilite = "10;23"
Case 23: possibilite = "20;22;24"
Case 24: possibilite = "15;23"
End Select
End Function
dans mes modules j'ai mis ca:
module1:
Option Explicit
Public choixA As Byte
Public choixB As Byte
Public nbrclick As Byte
Public intJoueur As Byte
Public Const cvide = 0
Public Const cJoueur1 = 1
Public Const cJoueur2 = 2
Type tcaseMoulin
coorX As Integer
coorY As Integer
End Type
Public arrcoorTableau(1 To 24) As tcaseMoulin
dans mon module2:
Sub Teste()
'
' Teste Macro
' Macro recorded 06.06.2006 by nussfabi
'
'
Sheets("Sheet2").Select
ActiveSheet.Shapes("flipper").Select
Selection.Copy
Sheets("Sheet3").Select
Range("C15").Select
ActiveSheet.Paste
End Sub