remplir cellule d'une autre feuille

[ju295]

Bonjour à tous,

Je coince dans un code, que voici :

sdr33:
If Mid(Sheets("Import Brut").Cells(1, 1).Value, 8, 1) = 3 Then
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Données analisée"

Sheets("Données analisée").Activate

Sheets("Données analisée").Cells(1, 1).Value = "Nom étude"
Sheets("Données analisée").Cells(1, 2).Value = "Station"
Sheets("Données analisée").Cells(1, 3).Value = "Ht. station"
Sheets("Données analisée").Cells(1, 4).Value = "Points"
Sheets("Données analisée").Cells(1, 5).Value = "Ht. Canne"
Sheets("Données analisée").Cells(1, 6).Value = "Distance O."
Sheets("Données analisée").Cells(1, 7).Value = "Angle Hz"
Sheets("Données analisée").Cells(1, 8).Value = "Angle V"
Sheets("Données analisée").Cells(1, 9).Value = "CODE"
Sheets("Données analisée").Cells(1, 10).Value = "Xs"
Sheets("Données analisée").Cells(1, 11).Value = "Ys"
Sheets("Données analisée").Cells(1, 12).Value = "Zs"
Sheets("Données analisée").Cells(1, 13).Value = "Xp"
Sheets("Données analisée").Cells(1, 14).Value = "Yp"
Sheets("Données analisée").Cells(1, 15).Value = "Zp"

Ce code permet de créer une nouvelle feuille s'appelant "Données analisée" et attribuant un nom à chaque colonne.
J'aimerai que dans mon fichier vierge excel, la feuille soit déjà créer car j'aimerai y mettre en place tout un système de formule, qui pourront fonctionner quand les valeurs se transféreront dans la feuille "Données analisée"

En gros, j'aimerai quand même que les nom de colonne se remplisse automatiquement mais sans créer la feuille "Données analisée" qui serais déjà créer avant.

En espérant avoir été assez clair...

D'avance merci

 

[vbacrumble]

Re : remplir cellule d'une autre feuille

Bonjour



Désolé ce n'est pas du VBA, mais cela m'a sauté aux yeux.

Données analisée s'écrit plutôt Données analysées, non ?

Pour ce qui est de VBA

tu peux simplifier ainsi

Sheets("Données analysées").Range("A1:O1") = _
Array("Nom étude", "Station", "Ht. station", "Points", "Ht. Canne", "Distance O.", "Angle Hz", "Angle V", "CODE", "Xs", "Ys", "Zs", "Xp", "Yp", "Zp")

A+

 

[ju295]

Re : remplir cellule d'une autre feuille

oui j'ai remarqué ma faute en le postant et j'ai modifié,

pourtant je l'utilise dans VBA,

 

[vbacrumble]

Re : remplir cellule d'une autre feuille

Re



Tu as vu l'édition de mon précédent message ?

J'y ai ajouté du code VBA.

A+

 

[ju295]

Re : remplir cellule d'une autre feuille

oui merci vient de voir et tester et ça marche nicquel,

Merci beaucoup