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 :
J'ai remarqué que si je supprime le code de "Thisworkbook" je n'ai plus le problème. Voici une partie de ce code :
Merci pour votre par ce que là je sèche
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