Discussion :

[l.flipper]

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

[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 ?

[l.flipper]

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 :

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
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

[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

[l.flipper]

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

[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

[Valtrase]

Re,
Quelques conseils :

• Votre fonction f devrait avoir deux paramètres exemple :

  Code :

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

  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 :

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

  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 :

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

  Txt = Right("0" & Day(Now()), 2) & "/" & Right("0" & Month(Now()), 2) & "/" & Year(Now())

  Un Simple

  Code :

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

  txt = Date

  Suffit non ? ou bien

  Code :

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

  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.