ERREUR Split() exécution '13'Résolu/Fermé

Question

Bonjour à tous, 

J'ai un problème simple et qui semble récurrent : Erreur d'exécution 13. 

J'ai bien compris qu'il s'agissait sans doute d'une mauvaise déclaration ou utilisation de variable mais même en bidouillant ça ne marche pas toujours. (Cette ligne de code fonctionne une fois sur trois...). 

Dim rng As Stringrng = ThisWorkbook.Sheets("ST").UsedRange.AddressMsgBox (Split(rng, "$")(4))

- rng me retourne " $A$1:$P$3 " 
- Même en utilisant seulement Split(Sheets("ST").UsedRange.Address, "$") j'ai cette erreur
- Même avec Dim rng() As String ; Dim rng As Variant ; Dim rng() As Variant ...

Je ne sais plus comment résoudre ce soucis.

Merci de bien vouloir m'aider/guider

Stephfun

cs_Le Pivert · Answer

Bonjour,

essai ceci:

Dim rng As Long
rng = Split(ThisWorkbook.Sheets("Feuil1").UsedRange.Address, "$")(4)
MsgBox rng 
 
voir exemple ici:

https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/

Stephfun · Answer

Merci pour la réponse.

C'est compliqué de dire si cela fonctionne bien ou non puisque l'erreur apparaît une fois sur trois voire pas du tout pendant quelques jours parfois. J'ai quand même constaté un lien entre le fait que d'autres fenêtres Excel étaient ouvertes et l'erreur (bien que ce soit vrai, cela n'expliquerait pas l'erreur 13).

Dans ce cas je précise le Workbook mais je peux pas faire grand chose de plus. Je classe le sujet en Résolu bien qu'il n'y ait pas vraiment de solution (ni de problème d'ailleurs).

Encore merci.

Stephfun

ERREUR Split() exécution '13'

2 réponses

Newsletters