Problème pour utiliser la fonction split

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème pour utiliser la fonction split

savius

Bonjour à tous,
Je ne m'y connait pas trop en VBA mais j'essaye de faire un macro tout simple pour rendre service à un ami
Dans une tableau de 106 lignes et pouvant avoir jusqu'à 10000 colonnes toutes les cellules sont sous la forme nom_de_l'argument=valeur et je voudrais retiré la partie avant le "=" ("=" compris )
Voila le programme que j'ai tapé:

Code :

Dim TabRes As Variant, i As Integer, j As Integer
i = 1
j = 2
Do While j <> 10000
Do While i <> 107
TabRes = Split(Cells(i, j), "=" )
Cells(i, j) = TabRes(1)
i = i + 1
Loop
j = j + 1
Loop

Il marche pour la première colonne (enfin la deuxieme, la premiere contenant le titre de chaque ligne) et plante avec le message "l'indice n'appartient pas à la selection" sur la ligne 10 et ne touche pas aux autres colonnes.
Comment peut on gérer les erreurs en VBA? Existe-t-il un équivalent au système try=>catch du cpp?
Merci d'avance, Joyeuse Fêtes.

Publicité

satirik

gestion d'erreur : on error goto label

sinon pour faire ca proprement, un if Len(TabRes) = 0 then Exit do... length pe me souvient pas exactement et tu devrais déclarer ton TabRes comme tableau de chaine de char ...

dim TabRes() as string

Message édité par satirik le 22-12-2008 à 22:23:04

savius

Merci pour ta réponse,
j'ai remplacé la ligne 10 par:
If Len(TabRes) = 0 Then Cells(i, j) = ""
Else: Cells(i, j) = TabRes(1)
End If
et il me repond "else sans if" j'avoue avoir du mal à comprendre comment fonctionne ce compilateur

pyrof

Bonjour,

la structure du if then else est la suivante

If ... Then
action 1
else
action2
end if

dans ton cas il faut ecrire :
If Len(TabRes) = 0 Then
Cells(i, j) = ""
Else: Cells(i, j) = TabRes(1)
End If

pyrof

Voila le vba réduit

for j=2 to 10000
for i=1 to 107
Cells(i, j) =Split(Cells(i, j), "=" )(1)
next i
next j

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème pour utiliser la fonction split

Sujets relatifs
Impossible d'enlever une border + adapter bg en fonction de la réso	Problème htaccess
Probléme argv	problème avec index.php de easyphp
Problème de sessions et de php.ini	pi.exe a cessé de fonctionner - quel est le problème ?
programmation de GnomeCallerID gtk et c (gros probleme !)	problème avec "this" sur un formulaire
fonction srand()	Problème avec VBA
Plus de sujets relatifs à : Problème pour utiliser la fonction split

Page générée en 0.037 secondes