re
y a du code a deux endroits
dans la feuille principale, il y a une fonction qui vérifie où tu double clic et qui appel la boite de dialogue
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Target.Cells(1).Column > 5 And Target.Cells(1).Column < 18 And Target.Cells(1).Row > 1 And Target.Cells(1).Row < 83) Then
UserForm1.Show
End If
End Sub
dans la boite de dialogue (tu peux afficher son code avec un clic droit dessus dans l'application VB)
il y a 3 fonctions. l'initialisation qui, qand la boite de dialogue se charge rempli le menu déroulant avec les feuilles qui existent
le bouton deux qui ferme la fenetre
et le bouton 1 qui rajoute la valeur introduite dans la boite de dialogue dans les deux feuilles.
Private Sub CommandButton1_Click()
Worksheets(ComboBox1.Value).Cells(ActiveCell.Row, ActiveCell.Column).Value = Worksheets(ComboBox1.Value).Cells(ActiveCell.Row, ActiveCell.Column).Value + TextBox1.Value
ActiveCell.Value = ActiveCell.Value + TextBox1.Value
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
For i = 2 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
Label3.Caption = "Code: " & ActiveCell.Row
Label4.Caption = "Mois: " & ActiveCell.Column
End Sub