Message embigu

[guy72]

Bonjour,
J'ai fait un copier-coller de la plage B1 à B15 en D1 à D15.
J'ai recopié aussi le Module1 en Module 2, le code de la feuille.
J'ai changé toutes les adresses de cellules.
Mais après plusieurs heures d'essais, ça ne fonctionne pas, et pourtant ce
sont des codes faciles, mais je ne trouve pas ce qui coince.
Quelqu'un peut-il m'aider ?

Joint fichier :

Merci de votre aide.
Cordialement
Guy

 

[CHALET53]

Re : Message embigu

bonjour,

essaie avec les modif dans la procédure évènementielle (sans être sûr):

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$B$5" Then GoTo labelsuite
Select Case Clic
Case 1: [B7] = Target
Case 2: [B9] = Target
Case 3: [B11] = Target
End Select
'End Sub
'Private Sub Worksheet_Change(ByVal Target As Range)
labelsuite:
If Target.Address <> "$D$5" Then Exit Sub
Select Case Clic2
Case 4: [D7] = Target
Case 5: [D9] = Target
Case 6: [D11] = Target
End Select
End Sub

 

[guy72]

Re : Message embigu

Bonjour,
C'est parfait.
Merci de ton aide.
Guy