Bonjour à tous,
Dans le cadre d'un stage scientifique, j'ai à analyser des résultats numériques grâce à Excel.
J'ai une colonne à analyser. J'appelle la 1ere cellule depart et j'effectue diverses opérations sur d'autres cellules de mon fichier.
J'effectue 4 opérations :
- la 1ere fonctionne parfaitement
- la seconde et la 3e me donne l'erreur ?NOM (il semblerait que ma variable vg ne soit pas prise en compte comme un nombre)
- la 4e fonctionne
Puis je souhaite sélectionner ces 4 cellules de résultat et scroll down pour l'appliquer à toutes les cellules de ma colonne (soit 3696 lignes plus bas). Toutefois, je ne parviens pas à définir mes cellules extrêmes case1 et case2 correspondant respectivement au cellules en haut à gauche et en bas à droite.
Voici mon programme :
Sub Macro1()
'
' Macro1 Macro
'
'
Range("depart").Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=RC[-1]*574.1429"
ActiveCell.Offset(0, 1).Select
Dim vg As Double
vg = ActiveSheet.Range("G1").Value
ActiveCell.FormulaR1C1 = "=RC[-1]-vg"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=ABS(RC[-1])"
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 3696) = fin
ActiveCell.FormulaR1C1 = "=RC[-3]/vg"
'Range("case1:case2").Select
'Selection.AutoFill Destination:=Range("case1:fin"), Type:=xlFillDefault
'Range("case1:fin").Select
End Sub
Veuillez m'excuser si la solution est triviale mais je débute en VBA.
Merci d'avance
Dans le cadre d'un stage scientifique, j'ai à analyser des résultats numériques grâce à Excel.
J'ai une colonne à analyser. J'appelle la 1ere cellule depart et j'effectue diverses opérations sur d'autres cellules de mon fichier.
J'effectue 4 opérations :
- la 1ere fonctionne parfaitement
- la seconde et la 3e me donne l'erreur ?NOM (il semblerait que ma variable vg ne soit pas prise en compte comme un nombre)
- la 4e fonctionne
Puis je souhaite sélectionner ces 4 cellules de résultat et scroll down pour l'appliquer à toutes les cellules de ma colonne (soit 3696 lignes plus bas). Toutefois, je ne parviens pas à définir mes cellules extrêmes case1 et case2 correspondant respectivement au cellules en haut à gauche et en bas à droite.
Voici mon programme :
Sub Macro1()
'
' Macro1 Macro
'
'
Range("depart").Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=RC[-1]*574.1429"
ActiveCell.Offset(0, 1).Select
Dim vg As Double
vg = ActiveSheet.Range("G1").Value
ActiveCell.FormulaR1C1 = "=RC[-1]-vg"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=ABS(RC[-1])"
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 3696) = fin
ActiveCell.FormulaR1C1 = "=RC[-3]/vg"
'Range("case1:case2").Select
'Selection.AutoFill Destination:=Range("case1:fin"), Type:=xlFillDefault
'Range("case1:fin").Select
End Sub
Veuillez m'excuser si la solution est triviale mais je débute en VBA.
Merci d'avance