Compatibilité de formule

sur mon pc le code suivant tourne bien !

Code:

---

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

Bonjour,
Ton erreur est provoquée par +1

Code:

---

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:

---

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

---

ou

Code:

---

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:

---

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:

---

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

---

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

Bonjour,

Je n'avais pas lu jusqu'au bout le message d'erreur :oops: 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:

---

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.