Discussion :

[cedcyr]

sur mon pc le code suivant tourne bien !

Code :

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

1
2
3
   x = .Range("A65536").End(xlUp).Row
         Xcel = Format(Right(.Cells(x, 1), 4) + 1, "00000")
         numero = u & Xcel

il sagit d'un module pour ceer un numero de doc mais des que je copie mon classeur sur un autre pc qui pourtant a bien excel 2007 a jours comme moi ce code plante avec le message " erreur d compilation , projet ou bibliotehque introuvable"

l'argument qui plante c'est right que mettre a la place pour ameloiré la compatibilité

merci d'avance

[Philippe Tulliez]

Bonjour,
Ton erreur est provoquée par +1

Code :

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

Xcel = Format(Right(.Cells(x, 1), 4) + 1, "00000")

Right(.Cells(x, 1), 4) renvoie une chaîne à laquelle tu ajoutes la valeur numérique 1. A la rigueur ajoute la chaîne de caractères "1"
La syntaxe est donc

Code :

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

xcel = Format(Right(.Cells(x, 1), 4), "00000")

ou

Code :

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

xcel = Format(Right(.Cells(x, 1) + "1", 4), "00000")

La concaténation de la chaîne peut se faire à l'aide du signe + ou &.

Petite remarque par rapport à ton instruction

Code :

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

x = .Range("A65536").End(xlUp).Row

Il est préférable d'utiliser l'instruction ci-dessous qui permet d'utiliser ce code pour toutes les versions d'excel.
.Rows.count renvoyant le nombre de lignes pour la feuille.

Code :

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

x = .Range("A" & .Rows.count).End(xlUp).Row

[cedcyr]

re

je prend note pour la facon d'écrire , pour mon problème de compatibilité j'ai trouvé le pourquoi , une bibliothèque dans reference n'était pas cochet et une autre était marqué comme manquante, une mise a jours des référence on réglé le problème sur le pc ou cela ne fonctionnait pas c'est ous le problème des mise a jours auto ou pas

merci beaucoup

aller je continue de fair évoluer mon aplication

[Philippe Tulliez]

Bonjour,

Je n'avais pas lu jusqu'au bout le message d'erreur pour la bibliothèque manquante.
Ayant fait mon test avec une valeur alphanumérique il y avait bien une erreur de type lors du passage dans cette procédure.

Code :

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

xcel = Format(Right(.Cells(x, 1), 4) + 1, "00000")

Message qui n'apparaît pas si Right(.Cells(x, 1), 4) est une valeur numérique.