Bonjour,
grâce à ce forum, j'arrive à adapter des morceaux de codes à mes besoins, mais je plante sur la copie grâce à tablo :
voici le code :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/09/2010 par PHILMAR
'
'
Dim reponse As String
reponse = InputBox("Mot de Passe :")
If reponse = "catalunya" Then
MsgBox "Archivage des données"
'code de la macro d'abord je copie les données
Dim Tablo(2), Derlign As Long
Tablo(0) = Sheets("Contrats CDD").Range("A3:C211").Value
Tablo(0) = Sheets("Contrats CDD").Range("E3:E211").Value
Derlign = Sheets("archive contrats").Range("A65536").End(xlUp).Row
Sheets("archive contrats").Range("A" & Derlign + 1 & "" & Derlign + 1) = Tablo
' puis j'efface
Sheets("Contrats CDD").Select
Range("A3211").Select
Selection.ClearContents
Range("G3:H211").Select
Selection.ClearContents
Range("M3:N211").Select
Selection.ClearContents
Range("Q3:Q211").Select
Selection.ClearContents
Range("S3:AW211").Select
Selection.ClearContents
Sheets("Accueil").Select
Else
MsgBox "mot de passe incorrect"
End If
End Sub
mais ça plante à la copie des données dans la feuille archive contrats..Je précise que la copie doit se faire à la première ligne vide
, qqun à une idée? merci
Bonne journée à toutes et à tous
Philippe
grâce à ce forum, j'arrive à adapter des morceaux de codes à mes besoins, mais je plante sur la copie grâce à tablo :
voici le code :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/09/2010 par PHILMAR
'
'
Dim reponse As String
reponse = InputBox("Mot de Passe :")
If reponse = "catalunya" Then
MsgBox "Archivage des données"
'code de la macro d'abord je copie les données
Dim Tablo(2), Derlign As Long
Tablo(0) = Sheets("Contrats CDD").Range("A3:C211").Value
Tablo(0) = Sheets("Contrats CDD").Range("E3:E211").Value
Derlign = Sheets("archive contrats").Range("A65536").End(xlUp).Row
Sheets("archive contrats").Range("A" & Derlign + 1 & "" & Derlign + 1) = Tablo
' puis j'efface
Sheets("Contrats CDD").Select
Range("A3211").Select
Selection.ClearContents
Range("G3:H211").Select
Selection.ClearContents
Range("M3:N211").Select
Selection.ClearContents
Range("Q3:Q211").Select
Selection.ClearContents
Range("S3:AW211").Select
Selection.ClearContents
Sheets("Accueil").Select
Else
MsgBox "mot de passe incorrect"
End If
End Sub
mais ça plante à la copie des données dans la feuille archive contrats..Je précise que la copie doit se faire à la première ligne vide
, qqun à une idée? merci
Bonne journée à toutes et à tous
Philippe