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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas