Discussion :

[LaPanic]

Bonjour tlm,
je voudrais un code pour ecrire par exemple "Test" dans la cellule "A1" dans toutes les feuilles de mon classeur Excel.

Merci pour votre aide

[Godzestla]

Code :

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

1
2
3
4
 
for i = 1 to sheets.count
 sheets(i).range("A1") = "test"
next

[GlamIS]

ou bien ça:

Code :

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

1
2
3
4
 
 For Each osheet In ThisWorkbook.Sheets
 
Next

[LaPanic]

Merci pour ton aide , voila le travaille sur SmartView Hyperion et la je voudrais un code pour selectionner les feuilles une a une et faire un upload pour chaque feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Declare Function HypSubmitData Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
 
Sub Affichage()
 
For i = 1 To Sheets.Count
 Sheets(i).Select
 sts = HypSubmitData(Empty)
Next
 
End Sub

mai ca coince au niveau du

Code :

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

1
2
For i = 1 To Sheets.Count
 Sheets(i).Select

[GlamIS]

Essaie ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Declare Function HypSubmitData Lib "HsAddin" (ByVal vtSheetName As Variant) As Long

Sub Affichage()

For Each osheet In ThisWorkbook.Sheets
 oSheet.Select
 sts = HypSubmitData(Empty)
Next oSheet

End Sub

[LaPanic]

Merci mais ca coince a ce niveau

Code :

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

oSheet.Select

[Godzestla]

D'après mon expérience de hyperion au niveau de Hyperion MS Excel, tu peux ouvrir un classeur excels, faire tourner certaines fonctions spécifiques à hyperion (exemple =HPVAL($B$2;N$14;$F20;N$13;$A$3;$A$4),

mais aussi faire tourner du code standard excel.

j'ai par exemple ceci qui tourne dans un module de mon code VBA

Code :

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

1
2
3
4
5
6
7
8
 
    'Clear Detailled
    For Sheet_number = Sheets.Count + 15 To 2 Step -1
        Sheet_id = Sheet_number
        Range_Id = "AA" + Sheet_id
        Range(Range_Id).Select
        Selection.Clear
    Next

[LaPanic]

merci Godzestla
peux tu me formuler le code car je suis novice en vba

Merci pour votre aide

[Godzestla]

Salut LaPanic,

peux tu me formuler le code car je suis novice en vba

Peux-tu préciser parce que je ne vois plus de quel code tu parles !

[LaPanic]

bonjour,
le code qui me permet d'afficher par la premiere feuille du classeur,executer la fonction

Code :

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

 sts = HypSubmitData(Empty)

et passer a la deuxieme ainsi de suite et ce quel que soit le nombre de feuilles .

Merci

[Godzestla]

Difficile à dire car je ne connais pas du tout la fonction que tu utilises :

sts = HypSubmitData(Empty)

peut-être quelquechose comme ceci, mais sans garantie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Declare Function HypSubmitData Lib "HsAddin" (ByVal vtSheetName As Variant) As Long
 
Sub Affichage()
Dim actual_sheet as variant
For i = 1 To Sheets.Count
 Actual_sheet = Sheets(i).name
 sts = HypSubmitData(Actual_sheet)
Next
 
End Sub