Function dans un fichier xlam

Version imprimable

10/07/2025, 11h22
l.flipper

Function dans un fichier xlam

Bonjour,
J'ai un fichier xlam dans lequel j'ai écrit une fonction.

Lorsque j'appelle la fonction, rien ne se passe.
Par contre en mode débogage, j'obtiens le résultat escompté.

Ma fonction lit des données dans la feuille 1 (boucle sur les lignes jusqu'à la première ligne vide), c'est le feuille où j'appelle la fonction pour écrire dans la feuille 2

A quoi cela peut-il être dû ?

Merci pour votre aide

Lydie
10/07/2025, 13h57
Valtrase
Bonjour,
Sans plus d'informations cela va être difficile de vous aider.
Au minimum poster :
- Le code xlam
- le code VBA qui traite tout cela
Et question pourquoi passer par un xlam ? Vous ne parlez pas de script des fois ?

Bonjour,

J'ai mis dans un fichier xlam pour que la fonction puisse être utilisée de n'importe quel fichier excel.

Le code ressemble à ça.

Dans mon fichier, j'appelle la fonction avec la formule : = F()

Code:

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
35
36
37
38
39
40
41
42
 
Function F()
Dim INI As String
Dim l As Integer
 
 
If Cells(1, 15) = "" Then
  INI= InputBox("Veuillez saisir vos initiales")
  Cells(1, 15) = UCase(NNI)
Else
  Cells(1, 15) = UCase(Cells(1, 15))
End If
 
For a = 2 To 10000
  If Sheets(1).Cells(a, 1) = "" Then
    RedimColonne
    Exit Function
   End If
 
txt =  Right("0" & Day(Now()), 2) & "/" & Right("0" & Month(Now()), 2) & "/" & Year(Now())
txt = txt & Chr(10) & Chr(10)
txt = txt & Right("00000" & Sheets(1).Cells(a, 6), 10) & Chr(10) & Chr(10)
 
 
 
 Sheets(2).Cells(a, 1) = "XX"
 Sheets(2).Cells(a, 2) = "XX
 Sheets(2).Cells(a, 3) = Right("00000" & Sheets(1).Cells(a, 6), 10)
 Sheets(2).Cells(a, 4) = "XX
 Sheets(2).Cells(a, 5) = "XX
 Sheets(2).Cells(a, 6) = Right("0" & Day(Now()) + 7, 2) & "/" & Right("0" & Month(Now() + 7), 2) & "/" & Year(Now() + 7)
 Sheets(2).Cells(a, 7) = "A traiter"
 Sheets(2).Cells(a, 8) = "XX
 Sheets(2).Cells(a, 8) = "XX
 Sheets(2).Cells(a, 12) = txt 
 Sheets(2).Cells(a, 13) = "XX"
 
 
 Next a
 
 
End Function

10/07/2025, 15h43
Raccourcix

Bonjour
quelques remarques à la lecture du code
- ligne 9 : INI ou NNI ?
- lignes 27, 29, 30, 33, 34 il manque un "
- pourquoi la ligne 4 : sauf erreur je ne vois aucun l dans le code
Stéphane
10/07/2025, 15h47
Valtrase
Re,
Quelques conseils :
- Votre fonction f devrait avoir deux paramètres exemple :
  
  Code:
  
  Public Function F(Byval SheetSource as Excel.Worksheet, Byval SheetCible as Excel.Worksheet) as Long
- If Cells(1, 15) = "" Then fait référence à la feuille active faites des référence explicites
  
  Code:
  
  SheetSource.Cells(1, 15) = Ucase(NNI)
- Vous ne récupérez pas d'autres choses que les jour, mois et année donc utilisez plutôt Date au lieu de Now et pourquoi utiliser cette conversion :
  
  Code:
  
  Txt = Right("0" & Day(Now()), 2) & "/" & Right("0" & Month(Now()), 2) & "/" & Year(Now())
  
  Un Simple
  
  Code:
  
  txt = Date
  
  Suffit non ? ou bien
  
  Code:
  
  txt = Format$(Date,"general date")
- Au lieux de faire une boucle sur 1000 lignes une bonne pratique serait de transformer les données en tableau structuré et de le passer en paramètre à la fonction. puis de boucler sur chaque lignes du tableau.
10/07/2025, 16h03
l.flipper

Citation:

Envoyé par Raccourcix

Bonjour
quelques remarques à la lecture du code
- ligne 9 : INI ou NNI ?
- lignes 27, 29, 30, 33, 34 il manque un "
- pourquoi la ligne 4 : sauf erreur je ne vois aucun l dans le code
Stéphane

C'est une erreur en modifiant le code pour la publication
10/07/2025, 17h45
Qwazerty

Salut

Attention avec les formules perso, tu n'as pas les coudées franches... Il n'est pas possible de modifier d'autre cellule que la cellule qui contient la formule.
Le fait que ça fonctionne en débogage est dû au fait que justement la fonction n'est pas déclenchée par la cellule mais par toi (elle est traité comme une fonction quelconque, plus comme une formule perso).

Tu devrais développer un peu plus ce que tu cherches à faire pour qu'on puisse t'indiquer des voix.
En plus je vois une boucle 2 à 1000 qui peut être remplacée par Range(..).End par exemple (à voir ce que contient redimcolonne mais ça me semble une mauvaise idée que d'appeler 50 fois cette fonction s'il y a 50 lignes vides. Il vaudrait mieux calculer le nombre de lignes vides et ensuite appeler redimcolonne (qu'il faudra peut-être adapter un peu)

++
Qwaz