Thomas_Abitbol
XLDnaute Nouveau
Bonjour à tous,
Etant actuellement en projet de 2eme année de BTS, j'ai besoin d'utiliser le VBA afin de terminer mon projet.
Mon problème est le suivant : J'ai rédigé un code afin que ma cellule soit égale à la cellule d'en dessous +1 mais, je ne sais pas comment indiquer dans quelle page cette action doit se réaliser. Voici ce que j'ai fais :
Private Sub CommandButtonvaliderajoutmachine_Click()
Equipements = ActiveSheet.Name
Rows("1:1").Select '
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Range("A2").Select
End Sub
Je voulais utiliser Worksheets("Equipements").... mais je ne sais pas comment m'y prendre.
En espérant avoir été assez clair et explicite afin que vous m'aidez.
Bonne journée !
Etant actuellement en projet de 2eme année de BTS, j'ai besoin d'utiliser le VBA afin de terminer mon projet.
Mon problème est le suivant : J'ai rédigé un code afin que ma cellule soit égale à la cellule d'en dessous +1 mais, je ne sais pas comment indiquer dans quelle page cette action doit se réaliser. Voici ce que j'ai fais :
Private Sub CommandButtonvaliderajoutmachine_Click()
Equipements = ActiveSheet.Name
Rows("1:1").Select '
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[1]C+1"
Range("A2").Select
End Sub
Je voulais utiliser Worksheets("Equipements").... mais je ne sais pas comment m'y prendre.
En espérant avoir été assez clair et explicite afin que vous m'aidez.
Bonne journée !