Discussion :

[nsqualli]

Bonjour tout le monde,

j'aimerai creer une macro, qui va faire un traitement sur une feuille excel et a la fin, elle dois creer une feuille excel dans le meme classeur et y mettre le resultat du traiment.

est ce que vous pouvez me dire comment je peux creer une feuille excel dans le meme classeur avec une macro?

Merci

[ouisansdoute]

Bonjour,

La commande pour créer une nouvelle feuille dans un classeur est

Code :

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

Sheets.Add

[nsqualli]

Bonjour,

La commande pour créer une nouvelle feuille dans un classeur est

Code :

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

Sheets.Add

d'accord mais si je veux que cette feuille aie un nom?

[ouisansdoute]

le code suivant fonctionne :

Code :

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

1
2
    Sheets.Add
    ActiveSheet.Name = "résultat"

Tu peux, pour connaître les syntaxes, lancer l'enregistreur de macro, faire tes manip puis aller voir le code créé.

[nsqualli]

le code suivant fonctionne :

Code :

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

1
2
    Sheets.Add
    ActiveSheet.Name = "résultat"

Tu peux, pour connaître les syntaxes, lancer l'enregistreur de macro, faire tes manip puis aller voir le code créé.

je suis
d'accord merci c'est une bonne idée

[nsqualli]

bon là j'ai une macro "testCreation()" qui fait appel à la macro "remplirFeuille()"

le probleme c que, quand je fais appel a la macro remplirFeuille() avec le code :

Code :

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

call remplirFeuille()

dés que je passe a la ligne suivante, les parentheses ne sont plus là :

Code :

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

call remplirFeuille

SVP, c'est dû à quoi?

[nsqualli]

bonjour,

pour le probleme de tout a l'heure, c'est ça marche tres bien.

j'ai pu creer une deuxieme feuille, là je veux je prend la valeur de la cellule de la premiere feuille et la mettre dans une cellule de la deuxieme feuille.
est ce que vous pouvez me diire comment je peux faire ça.
voila le code que j'ai fais jusqu'a maintenant, et le traitement de l'extraction et l'insertion doit se mettre a la place de la ligne rouge.

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
20
21
22
23
24
25
26
27
Sub testCreation()

Const DistAG2AJ As Long = 3
Const DistAG2B As Long = -31

Dim cellule As Range




Sheets.Add
ActiveSheet.Name = "Liste des Demandes"

Call ecrire

For Each cellule In Range("AG1:AG" & Range("AG65000").End(xlUp).Row)

    If cellule.Value < cellule.Offset(0, DistAG2AJ) Then
    
        'cellule.Offset(0, DistAG2B).Font.Color = vbGreen
        
        
    End If
    
Next

End Sub

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub ecrire()
'
' ecrire Macro
' Macro enregistrée le 14/11/2008 par elhoumy
'
 
'
    Range("A1").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "Réf"
 
    Range("B1").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "Numéro"
 
    Range("C1").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "Version Réelle"
 
    Range("D1").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "Type"
 
    Range("E1").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "Devis de Développement"
 
    Range("F1").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "RAF dev + tu"
 
    Range("A2").Select
    Columns("F:F").ColumnWidth = 17.86
End Sub

Merci