HdF59
XLDnaute Nouveau
Bonjour le forum et merci pour votre aide
Je possède une macro dans un fichier qui fonctionne très bien :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Application.ScreenUpdating = False
If Target.Address = "$E$14" And Range("E14") <> "" Then
For i = 3 To 65536
If Cells(i, 13) = "" Then
Cells(i, 13) = Date
Cells(i, 14) = Range("E6")
Cells(i - 1, 18) = Range("E7")
Cells(i, 16) = Range("E8")
Cells(i, 15) = Range("E9")
Cells(i - 1, 19) = Range("E10")
Cells(i, 17) = Range("E11")
Cells(i - 1, 20) = Range("E12")
Cells(i, 21) = Range("E14")
Exit For
End If
Next i
End If
Application.ScreenUpdating = True
End Sub
Par contre, je souhaiterai mettre celle-ci à la suite pour démarrer le fichier sur la cellule "E6" mais je n'y arrive pas
Private Sub Worksheet_Actived()
Range ("E6").select
End Sub
Pouvez-vous m'aider pour mon problème Merci Pascal
Je possède une macro dans un fichier qui fonctionne très bien :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Application.ScreenUpdating = False
If Target.Address = "$E$14" And Range("E14") <> "" Then
For i = 3 To 65536
If Cells(i, 13) = "" Then
Cells(i, 13) = Date
Cells(i, 14) = Range("E6")
Cells(i - 1, 18) = Range("E7")
Cells(i, 16) = Range("E8")
Cells(i, 15) = Range("E9")
Cells(i - 1, 19) = Range("E10")
Cells(i, 17) = Range("E11")
Cells(i - 1, 20) = Range("E12")
Cells(i, 21) = Range("E14")
Exit For
End If
Next i
End If
Application.ScreenUpdating = True
End Sub
Par contre, je souhaiterai mettre celle-ci à la suite pour démarrer le fichier sur la cellule "E6" mais je n'y arrive pas
Private Sub Worksheet_Actived()
Range ("E6").select
End Sub
Pouvez-vous m'aider pour mon problème Merci Pascal