XL 2016 Impossible de définir la propriété Value

[halecs93]

Bonjour à toutes et à tous,

Tout fonctionnait auparavant...et là, dès l'ouverture, un bug lié au userform2. (impossible de définir la propriété Value. Le type ne correspond pas)

Est-ce dû au fait que j'ai ajouté des colonnes ?

Merci pour votre aide.

 

[sylvanu]

Bonjour Halecs,

Est-ce dû au fait que j'ai ajouté des colonnes ?

Probablement.
Dans la feuille Récapitulatif en colonne AB vous avez des #REF.
En effet la formule CAR(COLONNE()+64) ne marche que jusqu'à la colonne Z car ensuite le résultat est "[" puis "\" donc ne correspond plus à une nom de colonne qui devrait être AA puis AB.
Vous pouvez remplcer :

CAR(COLONNE()+64)
par
SI(COLONNE()<=26; CAR(COLONNE()+64);"A"&CAR(COLONNE()-26+64))

qui marchera jusqu'à la colonne AZ.
On peut aller au delà mais ça complexifie la formule inutilement, sauf si vous rajoutez encore 26 colonnes. 🙂
Donc la formule en AB22 deviendrait :

=INDIRECT($A22 &"!" &SI(COLONNE()<=26; CAR(COLONNE()+64);"A"&CAR(COLONNE()-26+64)) &"40")

A tester pour voir.

Addon : Si vous voulez rajouter beaucoup plus de colonnes, au delà de AZ alors la formule de calcul nom de colonne devient :

SI(COLONNE()<=26; CAR(COLONNE()+64);(CAR(ENT((-1+COLONNE())/26)+64))&CAR(COLONNE()-26*(ENT((-1+COLONNE())/26))+64))

 

[mapomme]

bonjour @halecs93🙂,

L'erreur se produit dans la procédure UserForm_Initialize() du UserForm2 à la ligne suivante :

TextBox_cheque_dej.Value = ThisWorkbook.Sheets("RECAPITULATIF").Range("cheque_dej").Value​

• ThisWorkbook.Sheets("RECAPITULATIF").Range("cheque_dej").Value référence une cellule avec la valeur d'erreur #REF!
• cheque_dej désigne la cellule AB35 de la feuille RECAPITULATIF

 

[halecs93]

Bonjour Halecs,

Probablement.
Dans la feuille Récapitulatif en colonne AB vous avez des #REF.
En effet la formule CAR(COLONNE()+64) ne marche que jusqu'à la colonne Z car ensuite le résultat est "[" puis "\" donc ne correspond plus à une nom de colonne qui devrait être AA puis AB.
Vous pouvez remplcer :

CAR(COLONNE()+64)
par
SI(COLONNE()<26; CAR(COLONNE()+64);"A"&CAR(COLONNE()-26+64))

qui marchera jusqu'à la colonne AZ.
On peut aller au delà mais ça complexifie la formule inutilement, sauf si vous rajoutez encore 26 colonnes. 🙂
Donc la formule en AB22 deviendrait :

=INDIRECT($A22 &"!" &SI(COLONNE()<26; CAR(COLONNE()+64);"A"&CAR(COLONNE()-26+64)) &"40")

A tester pour voir.

Bonjour et merci. Je regarde cela ce soir.

 

[halecs93]

bonjour @halecs93🙂,

L'erreur se produit dans la procédure UserForm_Initialize() du UserForm2 à la ligne suivante :

TextBox_cheque_dej.Value = ThisWorkbook.Sheets("RECAPITULATIF").Range("cheque_dej").Value​

• ThisWorkbook.Sheets("RECAPITULATIF").Range("cheque_dej").Value référence une cellule avec la valeur d'erreur #REF!
• cheque_dej désigne la cellule AB35 de la feuille RECAPITULATIF

Bonjour et merci. Je regarde cela ce soir.

 

[job75]

Bonjour halecs93 et les autres,

Dans UserForm_Initialize de UserForm2 j'ai juste remplacé :

    'TextBox_cheque_dej.Value = ThisWorkbook.Sheets("RECAPITULATIF").Range("cheque_dej").Value

par :

    TextBox_cheque_dej = ThisWorkbook.Sheets("RECAPITULATIF").Range("cheque_dej").Text

A+

 

[sylvanu]

Bonjour Job,
Mais là, vous masquez le problème, ça ne le résout pas.
L'erreur est dans la feuille Récapitulatif colonne AB.
Cette formule est fausse CAR(COLONNE()+64) &"40" car en rajoutant des colonnes on cible la colonne "\40" au lieu de la colonne "AB40".

 

[job75]

L'erreur est dans la feuille Récapitulatif colonne AB.

Bien sûr puisqu'il y a des valeurs d'erreur #REF! et je pense que halecs93 est tout à fait capable de s'en rendre compte.

Pour les éviter on peut remplacer la formule en RECAPITULATIF!AB22 par :

=INDIRECT(A22&"!"&ADRESSE(40;COLONNE()))

à tirer vers le bas.

 

[sylvanu]

Re,
Je voulais simplement dire que le code VBA est correct, il est inutile de le modifier.
C'est l'erreur de formule qu'il faut corriger.

 

[halecs93]

Bonjour,

J'ai marqué le post de sylvanu come "solution". Ca semble en effet, fonctionner à merveille.

Merci beaucoup.

 

[sylvanu]

Re,

Tout fonctionnait auparavant...et là, dès l'ouverture, un bug lié au userform2.

Comme le VBA et Excel sont liés, il faut se méfier des fausses erreurs du VBA, l'origine n'est pas toujours là où on pense. Le VBA signale seulement qu'il ne peut exécuter une ligne, pas nécessairement que cette ligne est erronée.