tactic6
XLDnaute Impliqué
Bonsoir le forum
est il possible de faire fonctionner sur le meme feuille 2 modules double clic
le premier pour remplir les lignes avec un userforme quand le 1° cellule A1 est vide avec ce code propose par Fanfan38:
et le deuxième quand la cellule A1 comporte un code le doule clic serait alors:
Merci pour votre aide et bonne soirée
est il possible de faire fonctionner sur le meme feuille 2 modules double clic
le premier pour remplir les lignes avec un userforme quand le 1° cellule A1 est vide avec ce code propose par Fanfan38:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
lig = ActiveCell.Row
UserForm3.TextBox1.Value = Cells(lig, 1).Value
UserForm3.TextBox2.Value = Cells(lig, 2).Value
UserForm3.TextBox3.Value = Cells(lig, 3).Value
UserForm3.TextBox4.Value = Cells(lig, 4).Value
UserForm3.TextBox5.Value = Cells(lig, 5).Value
UserForm3.TextBox6.Value = Cells(lig, 6).Value
UserForm3.TextBox7.Value = Cells(lig, 7).Value
UserForm3.Show
End Sub
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long
Cancel = True
If Target.Column = 1 Then 'double click dans la 1er colonne
With Sheets("SAISIE")
.Cells(12, 3) = Target
Range("C12").Select
End With
End If
MsgBox "Code Client transferé !"
End Sub