Bonjour a tous,
Mon projet est enfin fini et je voulais mettre un bouton pour lancer une macro
pour simplifier un copier/coller.
J'ai des données sur differentes cellules ( differentes lignes et colonnes) dans l'onglet "calcul tps" que je renvoi à la dernière ligne ( sur une même ligne cette fois ) dans mon onglet "cas"
Ma macro fonctionne quand je la lance à partir de : Outil -->macro--> "sélection de la macro" --> exécuter
Je l'ai intégrée dans un bouton "Command click" et elle bug sur les éléments suivants : Range("A" & NextLig).Select
est-ce dû à une mauvaise déclaration ou à une mauvaise utilsation du bouton?
-->Erreur d'exécution 1004 à cause du "RANGE"
Les données sources et le fameux bouton sont présents sur "calcul tps"
Si quelqu'un aurait la gentillesse de m'expliquer mon erreur en sachant que je suis assez néophyte en macro.
Je peux bien entendu poster mon fichier mais il y a un gros boulot d'épuration.
Cordialement
Vjoug
***********************
Private Sub CommandButton1_Click()
Dim DerLig, NextLig, lig2 As Long
'
' copierversliste Macro
' Macro enregistrée le 08/05/2009 par Vjoug
'
'
DerLig = Sheets("cas").Range("A" & Rows.Count).End(xlUp).Row
NextLig = DerLig + 1
Sheets("Calcul tps").Select
Range("A2:J2").Select
Selection.Copy
Sheets("cas").Select
Range("A" & NextLig).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Calcul tps").Select
Range("A5:L5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cas").Select
Range("K" & NextLig).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Calcul tps").Select
Range("A8:J8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cas").Select
Range("W" & NextLig).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Mon projet est enfin fini et je voulais mettre un bouton pour lancer une macro
pour simplifier un copier/coller.
J'ai des données sur differentes cellules ( differentes lignes et colonnes) dans l'onglet "calcul tps" que je renvoi à la dernière ligne ( sur une même ligne cette fois ) dans mon onglet "cas"
Ma macro fonctionne quand je la lance à partir de : Outil -->macro--> "sélection de la macro" --> exécuter
Je l'ai intégrée dans un bouton "Command click" et elle bug sur les éléments suivants : Range("A" & NextLig).Select
est-ce dû à une mauvaise déclaration ou à une mauvaise utilsation du bouton?
-->Erreur d'exécution 1004 à cause du "RANGE"
Les données sources et le fameux bouton sont présents sur "calcul tps"
Si quelqu'un aurait la gentillesse de m'expliquer mon erreur en sachant que je suis assez néophyte en macro.
Je peux bien entendu poster mon fichier mais il y a un gros boulot d'épuration.
Cordialement
Vjoug
***********************
Private Sub CommandButton1_Click()
Dim DerLig, NextLig, lig2 As Long
'
' copierversliste Macro
' Macro enregistrée le 08/05/2009 par Vjoug
'
'
DerLig = Sheets("cas").Range("A" & Rows.Count).End(xlUp).Row
NextLig = DerLig + 1
Sheets("Calcul tps").Select
Range("A2:J2").Select
Selection.Copy
Sheets("cas").Select
Range("A" & NextLig).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Calcul tps").Select
Range("A5:L5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cas").Select
Range("K" & NextLig).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Calcul tps").Select
Range("A8:J8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("cas").Select
Range("W" & NextLig).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub