Discussion :

[FreshTrading]

Bonjour

J'ai un souci avec mon code, je souhaite créer un tableau selon la première et dernière cellule donnée par l'utilisateur. Dans ce tableau rentrer des valeurs (aléatoire mais la j'ai juste mis 4 pour tenter de trouver comment cela fonctionne). et ensuite que ces valeurs soit élevé au carré, mais que le résultat soit collé dans un autre sheet nommé "Cpaste".
Le souci c'est que cela fonctionne sauf que sur mon Sheet1 les valeurs ne sont pas 4 mais 16, j'aimerai pouvoir garder les valeur initiales sur mon sheet1. J'espère que c'est assez clair.
Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ess2()
Dim Fcell As String
Dim Scell As String
Fcell = InputBox("Select a first cell")
Scell = InputBox("Select a second cell")
Range(Fcell, Scell).Formula = 4
 
Range(Fcell, Scell).Select
selection.Value = ActiveCell.Value ^ 2
selection.Copy
Range(Fcell, Scell).Select
 
Sheets.Add After:=ActiveSheet
Sheets(2).Name = "Cpaste"
ActiveSheet.Paste
 
End Sub

Merci beaucoup

[Theze]

Bonjour,

testes ceci j'ai supprimé InputBox, rajoutes si tu veux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub ess2()
 
    Dim FeP As Worksheet
    Dim Fcell As String
    Dim Scell As String
 
    Fcell = "A1"
    Scell = "E10"
 
    Worksheets("Feuil1").Range(Fcell, Scell).Value = 4
 
    Set FeP = Sheets.Add(, Worksheets("Feuil1"))
    Sheets(2).Name = "Cpaste"
    Worksheets("Feuil1").Range(Fcell, Scell).Copy FeP.Range(Fcell)
 
    FeP.Range(Fcell, Scell).Value = FeP.Range(Fcell).Value ^ 2
 
End Sub