Bonjour,
dans un tableau j'ai 52 images (par lignes) et quand je clic sur l'une d'elle sur la ligne du dessous j'écrit "2". j'ai enregistré une macro pour le faire mais je cherche une solution pour évité d'avoir 1 macro par image. (en tout dans mon tableau j'ai 520 images)
Merci
voila les macro pour 4 image :
Sub Outil4riens1_QuandClic()
'
Select Case MsgBox("Confirmer la saisie du préventif --> '" & [Outil4] & "' ?", vbYesNo, "Confirmation")
Case vbYes
Range("F42").Select
ActiveCell.FormulaR1C1 = "2"
Range("F43").Select
Case vbNo
End Select
End Sub
Sub Outil4riens2_QuandClic()
'
Select Case MsgBox("Confirmer la saisie du préventif --> '" & [Outil4] & "' ?", vbYesNo, "Confirmation")
Case vbYes
Range("G42").Select
ActiveCell.FormulaR1C1 = "2"
Range("G43").Select
Case vbNo
End Select
End Sub
Sub Outil4riens3_QuandClic()
'
Select Case MsgBox("Confirmer la saisie du préventif --> '" & [Outil4] & "' ?", vbYesNo, "Confirmation")
Case vbYes
Range("H42").Select
ActiveCell.FormulaR1C1 = "2"
Range("H43").Select
Case vbNo
End Select
End Sub
Sub Outil4riens4_QuandClic()
'
Select Case MsgBox("Confirmer la saisie du préventif --> '" & [Outil4] & "' ?", vbYesNo, "Confirmation")
Case vbYes
Range("I42").Select
ActiveCell.FormulaR1C1 = "2"
Range("I43").Select
Case vbNo
End Select
End Sub
dans un tableau j'ai 52 images (par lignes) et quand je clic sur l'une d'elle sur la ligne du dessous j'écrit "2". j'ai enregistré une macro pour le faire mais je cherche une solution pour évité d'avoir 1 macro par image. (en tout dans mon tableau j'ai 520 images)
Merci
voila les macro pour 4 image :
Sub Outil4riens1_QuandClic()
'
Select Case MsgBox("Confirmer la saisie du préventif --> '" & [Outil4] & "' ?", vbYesNo, "Confirmation")
Case vbYes
Range("F42").Select
ActiveCell.FormulaR1C1 = "2"
Range("F43").Select
Case vbNo
End Select
End Sub
Sub Outil4riens2_QuandClic()
'
Select Case MsgBox("Confirmer la saisie du préventif --> '" & [Outil4] & "' ?", vbYesNo, "Confirmation")
Case vbYes
Range("G42").Select
ActiveCell.FormulaR1C1 = "2"
Range("G43").Select
Case vbNo
End Select
End Sub
Sub Outil4riens3_QuandClic()
'
Select Case MsgBox("Confirmer la saisie du préventif --> '" & [Outil4] & "' ?", vbYesNo, "Confirmation")
Case vbYes
Range("H42").Select
ActiveCell.FormulaR1C1 = "2"
Range("H43").Select
Case vbNo
End Select
End Sub
Sub Outil4riens4_QuandClic()
'
Select Case MsgBox("Confirmer la saisie du préventif --> '" & [Outil4] & "' ?", vbYesNo, "Confirmation")
Case vbYes
Range("I42").Select
ActiveCell.FormulaR1C1 = "2"
Range("I43").Select
Case vbNo
End Select
End Sub