Discussion :

[Fiédia]

Il s'agit de délivrer la valeur d'un compteur de CODES BARRES et de l'incrémenter. Au début, sans l'instruction ON ERROR, la procédure s'arrêtait sans message d'erreur. Pour en avoir le coeur net, j'ai rajouté le filtrage des erreurs qui me donne l'Erreur 1004 sur la ligne suivant le ON ERROR. Je tourne en rond sur une question cent fois utilisée, sans pouvoir la résoudre.

Merci pour votre aide.

Option Explicit

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
Function DonnerCodeQR() As Double
 
   Dim CodeQRcourant As Double, CodeQRsuivant As Double
   Dim nomWB As String, nomWS As String
   Dim wB As Excel.Workbook, wS As Excel.Worksheet
 
   nomWB = ActiveWorkbook.Name
   nomWS = "TESTS"
 
   Set wB = Workbooks(nomWB)
   Set wS = wB.Worksheets(nomWS)
 
   With wS
      CodeQRcourant = .Range("CompteurCodesQR")
      CodeQRsuivant = CodeQRcourant + 1
 
      .Range("CompteurCodesQR").Select
 
      On Error GoTo Erreur_DonnerCodeQR
      .Range("CompteurCodesQR").Value = CodeQRsuivant
      On Error GoTo 0
 
   End With
 
   GoTo Fin_DonnerCodeQR
 
Erreur_DonnerCodeQR:
   MsgBox "Erreur : " & Err & " - " & Err.Description
 
Fin_DonnerCodeQR:
   Set wS = Nothing
   Set wB = Nothing
 
   DonnerCodeQR = CodeQRcourant
 
End Function

[mercatog]

Bonjour
Je ne sais pas comment tu veux lancer ton code et qu'est ce que tu veux en faire
Par procédure

Code :

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

1
2
3
4
5
6
Sub DonnerCodeQR()
 
With ThisWorkbook.Worksheets("TESTS")
    .Range("CompteurCodesQR").Value = Val(.Range("CompteurCodesQR")) + 1
End With
End Sub

Ou bien une fonction

Code :

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

1
2
3
4
Function DonnerCodeQR() As Double
 
DonnerCodeQR = Val(ThisWorkbook.Worksheets("TESTS").Range("CompteurCodesQR")) + 1
End Function

Tu as surutilisé les variables pour pas grand chose.

[Fiédia]

Merci pour ton aide.

Je veux lancer mon code par une Fonction qui me donne la valeur courante du compteur (cette partie fonctionne) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function DonnerCodeQR() As Double
   
   Dim CodeQRcourant As Double, CodeQRsuivant As Double
   ...
   With wS
      CodeQRcourant = .Range("CompteurCodesQR")
      CodeQRsuivant = CodeQRcourant + 1
      ...   
   End With
   ...
   DonnerCodeQR = CodeQRcourant
   
End Function

mais je veux aussi qu'elle incrémente de +1 la cellule "CompteurCodesQR". Or c'est cette partie qui provoque l'erreur 1004. à savoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
   With wS
      CodeQRcourant = .Range("CompteurCodesQR")
      CodeQRsuivant = CodeQRcourant + 1
   
      .Range("CompteurCodesQR").Select
      
      On Error GoTo Erreur_DonnerCodeQR
      .Range("CompteurCodesQR").Value = CodeQRsuivant
      On Error GoTo 0
   
   End With

La cellule B3 qui contient =DonnerCodeQR() reçoit bien la valeur courante du Compteur, mais c'est la cellule nommée CompteurCodesQR que je ne parviens pas à mettre à jour ???

Quid du message "1004 Erreur définie par l'application" sur la ligne 8 ?

[mercatog]

Si tu appelle ta fonction à partir d'une cellule, tu ne peux pas agir sur d'autres cellules.

[Fiédia]

Merci Mercatog pour ton aide.
Je vais donc devoir trouver une autre voie.

Cordialement