Limiter la copie de données sur 1 feuille

ascal44

XLDnaute Occasionnel
Bonjour au forum,
J'ai un soucis : lorsque que je saisie des données dans la feuille 1 via un Userform , elles se copient aussi en feuille 2 ,3,4 et 5 !!!
Voici le code de saisie :
Code:
Private Sub CommandButton1_Click()

Dim DerLigne As Integer
DerLigne = Sheets("1").Range("A65536").End(xlUp).Row + 1


With Sheets("1")
.Activate
.Range("A1").Select
    With .Range("G" & DerLigne)
        With .Font
               .Name = MyCellFont
               .Bold = MyCellBold
               .Italic = MyCellItalic
               
        End With
    .Value = MyCellValue
    End With
    

.Range("A" & DerLigne) = TextBox3.Value
.Range("B" & DerLigne) = TextBox2.Value
.Range("C" & DerLigne) = TextBox1.Value
.Range("G" & DerLigne) = Format(TextBox4, "000")
.Range("H" & DerLigne) = Format(TextBox9, "00 00")
.Range("I" & DerLigne) = Format(Me.TextBox38, "## ##")
.Range("J" & DerLigne) = TextBox12
.Range("K" & DerLigne) = TextBox13
.Range("L" & DerLigne) = TextBox8

  TextBox4.Value = ""
  TextBox8.Value = ""
  TextBox38.Value = ""
  TextBox9.Value = ""
  TextBox12.Value = ""
  TextBox13.Value = ""
 
  
  TextBox12.SetFocus
  TextBox13.SetFocus
  TextBox8.SetFocus
  TextBox38.SetFocus
  TextBox4.SetFocus
  End With
   End Sub
J'ai remarqué que si je supprime le code de "Thisworkbook" je n'ai plus le problème. Voici une partie de ce code :
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' cellules = entre feuilles 2 , 3 ,4 & 5

Application.EnableEvents = False 'Evite de tourner en boucle


If Target.Address = "$C$6" Then
Sheets("2").Range("C6") = Target.Value
  Sheets("3").Range("C6") = Target.Value
  Sheets("4").Range("C6") = Target.Value
  Sheets("5").Range("C6") = Target.Value
End If
If Target.Address = "$C$7" Then
Sheets("2").Range("C7") = Target.Value
  Sheets("3").Range("C7") = Target.Value
  Sheets("3U").Range("C7") = Target.Value
  Sheets("5").Range("C7") = Target.Value
End If
If Target.Address = "$C$8" Then
Sheets("2").Range("C8") = Target.Value
  Sheets("3").Range("C8") = Target.Value
  Sheets("4").Range("C8") = Target.Value
  Sheets("5").Range("C8") = Target.Value
End If
If Target.Address = "$C$9" Then
Sheets("2").Range("C9") = Target.Value
  Sheets("3").Range("C9") = Target.Value
  Sheets("4").Range("C9") = Target.Value
  Sheets("5").Range("C9") = Target.Value
End If

Application.EnableEvents = True
End Sub

Merci pour votre par ce que là je sèche
 

Discussions similaires


Haut Bas