Discussion :

[mr_hodor]

Bonjour le forum !

Je traite actuellement un fichier qui tient à jour les differentes reunions au sein d'une association. Je dois extraire differentes données, et les placer dans une nouvelle feuille de calcul. J'ai donc, grace a une macro, commencé a programmer l'ouverture d'une nouvelle feuille et à remplir certaines cases. 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
Sheets.Add
ActiveSheet.Name = "données reunion"
 
 ActiveCell.FormulaR1C1 = "reunion numero"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "nombre de participants"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "durée"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "total nombre reunion"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "total participants"
    Range("K1").Select
   ActiveCell.FormulaR1C1 = "total durée"
    Range("K2").Select
 
    Sheets("Feuil1").Select

Neanmoins, seule la cellule A1 de la feuille "donnees reunions" se remplit, les autres cases ne changent pas et le programme me renvoie une "erreur 1004"

Quelqu un sait t il où se trouve l'erreur ?

[Mr Poulpe]

Bonjour,

Essaie ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub reu()
Dim Wks As Worksheet
Set Wks = Sheets.Add
Wks.Name = "données reunion"
With Wks
    .Range("C1") = "reunion numero"
    .Range("E1") = "nombre de participants"
    .Range("G1") = "durée"
    .Range("I1") = "total nombre reunion"
    .Range("K1") = "total participants"
    .Range("K2") = "total durée"
End With
End Sub

Poulpe

[Invité]

ma solution était sensiblement la même donc obsolète!

Bonjour,

Essaie ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub reu()
Dim Wks As Worksheet
Set Wks = Sheets.Add
Wks.Name = "données reunion"
With Wks
    .Range("C1") = "reunion numero"
    .Range("E1") = "nombre de participants"
    .Range("G1") = "durée"
    .Range("I1") = "total nombre reunion"
    .Range("K1") = "total participants"
    .Range("K2") = "total durée"
End With
End Sub

Poulpe

[mr_hodor]

Ca fonctionne parfaitement ! Un grand merci a vous deux :-)

[Invité]

Ca fonctionne parfaitement ! Un grand merci a vous deux :-)

à Mr Poulpe