Modifier une ligne d'un code VBA

Bonsoir yazidioubi,

aujourd'hui, j'ai dû m'absenter longtemps ; et c'est seulement maintenant
que je peux te répondre ; c'est pour ça que ma réponse a tardé.  ;)

ton fichier en retour : https://www.cjoint.com/c/MHvu3DoChm0

rhodo

essayer de taper le numero 00799999000030003458 dans le combobox de la fonction "entete" et pas de l'avoir mis dans une cellule excel pour pouvoir me comprendre.

Merci 'rhodo'

Bonjour yazidioubi,

tu as écrit : « dans le combobox de la fonction "Entete" »

attention : on peut mettre un combobox sur un UserForm (= un formulaire) ;
mais une fonction n'a pas de combobox !  ;)

tout ce qui est à droite du nom de la fonction (et qui est entre parenthèses)
s'appelle « l'en-tête de la fonction ».

ceci quelque soit le nom de la fonction, donc même si la fonction est
nommée autrement que Entete.

juste pour info : quand il s'agit d'une sub au lieu d'une fonction,
on parle « d'en-tête de la sub » ; et une sub non plus n'a pas
de combobox !  :D

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

voici une bonne nouvelle : j'ai compris où est ton problème.  :)

si tu mets ceci : =Entete(00799999000030003000;H:H;4;2023)
ça devient :  =Entete(799999000030003000;H:H;4;2023)

(VBA a enlevé les 2 zéros du début du nombre car ce sont des
zéros non significatifs)

ça retourne : *0079999930000000000000000000000200000000000010042023              0
nombre de caractères : 68 (du 1er caractère « * » au « 0 » final).

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

la solution est vraiment très simple !  :)

mets ceci : =Entete("00799999000030003458";H:H;4;2023)
le 1er paramètre doit être entre guillemets.  ;)

ça retourne : *0079999900003000345800000200000000000010042023              0
nombre de caractères : 62 (du 1er caractère « * » au « 0 » final).

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

je pense que cette fois, ça sera ok pour ce sujet.  ;)

rhodo

Merci beaucoup rhodo, merci infiniment

Bonsoir yazidioubi,

nouvelle version du fichier : https://www.cjoint.com/c/MHBvzRzk7O0

j'ai optimisé la fonction Entete() ; avant : 2ème paramètre : H:H, qui allait dans la variable Montants ;
maint'nant : t'as plus besoin de transmettre H:H, car j'ai supprimé le 2ème paramètre Montants.  :)

tu pourras voir que la fonction retourne bien ce qu'il faut, que ce soit à partir des nombres saisis
en colonne i "Ta saisie" OU à partir des nombres que tu mets directement dans l'en-tête de la
fonction (en tant que 1er paramètre, qui va dans la variable Compte).

formule en J2 (étendue vers le bas jusqu'en J11) : =Entete(I2;4;2023)

rappel : si tu mets en J2 : =Entete(I2) : ça mettra dans le texte retourné le mois et l'année en cours,
donc actuellement : 08 pour le mois d'août, et 2023 pour l'année.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

dans le code VBA, c'est pas nécessaire de mettre le mot-clé « Public » à gauche du mot-clé
« Function » : c'est implicite ; c'est pourquoi je l'ai enlevé.  ;)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA de Module2 (16 lignes) :

Option Explicit

Function Entete(Compte$, Optional mois$, Optional année$) As String
  On Error GoTo ErrMA
  Dim DS As Date, M As Byte, A%, c$, d&, cler$, chn$
  c = "00799999" & Format(Right$(Compte, 8), String$(12, "0"))
  d = Cells(Rows.Count, "G").End(xlUp).Row - 1
  cler = CStr(Format(WorksheetFunction.Sum([H2].Resize(d)) * 100, String$(13, "0")))
  DS = Now(): If mois = "" Then M = Month(DS) Else M = Val(mois)
  If année = "" Then A = Year(DS) Else A = Val(année)
  chn = Format(d, String$(7, "0")) & Format(M, "00") & Format(A, "0000")
  Entete = "*" & c & cler & chn & Space$(14) & "0"
  Exit Function
ErrMA: Entete = "Vérifiez ces 2 paramètres : mois, année."
End Function

rhodo