Ecrire dans une cellule

[Lucy]

Bonjour,

J'ai un problème pour écrire dans une cellule. Rien de bien complexe normallement, mais dans une fonction sa marche, et dans l'autre, sa marche pas ...

La fonction qui marche :

Function Analyse(Athena As Server, DosUti As Workbook, i As Integer) As Integer
'Fonnction qui analyse un server. Elle prend en paramètre le server et retour un entier

      
    i = i + 1
    
      
''On Teste le noyau du server
    If Athena.Noyau = "Oracle" Then
        'On est dans un server Oracle
        Analyse = 1
    ElseIf Athena.Noyau = "SQL Server" Then
        'On est dans un server SQL Server
        Analyse = 2
        
    Else 'Il y a une erreur dans les exctract
        DosUti.Sheets("Liste d'erreurs").Cells(i, 1).Activate 
    ActiveCell.FormulaR1C1 = "Le noyau (" & Athena.Noyau & ") du serveur " & Athena.Nom & " n'est pas reconnu"
'ces deux dernière ligne marche parfaitement
        i = i + 1

et celle qui marche pas :

Public Function Remplissage(Nb As Integer, Occurence() As Server, Objet As Workbook) As Integer
Dim i As Integer, Inte As Integer

For i = 0 To (Nb - 1)
        Select Case Analyse(Occurence(i), Objet, Inte)
            Case 1 
                Objet.Sheets("toto").Cells(4, 3).Activate
                ActiveCell.FormulaR1C1 = Occurence(i).Nom
    
            Case 2 
                Objet.Sheets("titi").Cells(5, 3).FormulaR1C1 = Occurence(i).Nom

Merci de m'aider, et si il vous manque des infos, n'hésité pas à me les demander (j'espère n'avoir rien oublié ^^")

 

[pierrejean]

Re : Ecrire dans une cellule

bonjour Lucy

Pas vraiment tout compris mais
une fonction est censée renvoyer une valeur et non ecrire dans une cellule
donc au choix:
1) modifier la fonction en sub et ecrire
call remplissage
2) finir la function avec
remplissage=...........
et ecrire range("..")=remplissage(param1,param2,...)

 

[Lucy]

Re : Ecrire dans une cellule

Merci pierrejean,

Les deux solutions que tu me propose ne fonctionne pas.
Le problème ne vient (aparemment) pas de la fonction en elle même mais seulement de la ligne

                Objet.Sheets("toto").Cells(4, 3).Activate
                ActiveCell.FormulaR1C1 = Occurence(i).Nom

A vrai dire, au départ, ce n'était pas un fonction et je l'écrivait directement dans un "Private Sub Workbook_Open()" (par la suite, j'ai appris que modifier un classeur autre que "ThisWorkbook" devait se faire de préférence dans un module, ce pourquoi j'ai fait une fonction)
D'ailleurs, les deux fonctions se trouve dans le même module.

 

[pierrejean]

Re : Ecrire dans une cellule

Re

Occurence(i).Nom me parait curieux !!!
ne serait-ce pas Occurence(i).Name ? (Si bien sur Occurence(i) correspond a un objet)

 

[Lucy]

Re : Ecrire dans une cellule

Re

Occurence est d'un type que j'ai créé moi même, donc Occurence(i).Nom est tout à fait normale 😉

Merci de ton aide pierrejean, mais j'ai finalement trouver la solution toute seule, et ce n'est pourtant pas bien compliqué : il me suffisait d'activer la feuille avent d'activer la cellule :

Objet.Sheet(toto).Activate
Objet.ActiveSheet.Cells(4, 3).Activate
ActiveCell.FormulaR1C1 = Occurence(i).Nom

Le fait qu'au premier coup ça marchait c'est que "Liste d'erreurs" était la dernière feuille créé, donc automatiquement activé.

Encore merci de t'avoir donné du mal pour m'aider ^^