Vérifier existence occurence dans variable tableau

Bonjour,

Mon fichier excel est composé de cellules (jusque là, normal), par contre certaines contiennent plusieurs valeurs (1 par ligne).

Dans ma macro, j'extrait ces valeurs grâce à la fonction split qui écrit chaque chaine de caractère séparée de "Chr(10)" (saut de ligne) dans un tableau. J'ai 2 colonnes de ces cellules et j'effectue ensuite un calcul par rapport à chaque ligne de chaque cellule.

Mon problème est que parfois, je peux avoir 3 lignes dans ma cellule, mais que la deuxième ligne est vide! Derrière, ça me bloque tout.

J'ai donc pensé à tester l'existence d'une occurence de ma variable tableau en fonction de chaque indice.

Avez-vous une idée de comment faire cela?

Bonjour,

Tu peux tester l'indice dimensionnel de ton tableau.
Si l'indice est égal à 2 (cas de 3 éléments), tu réarranges ton tableau de façon à conserver les 2 éléments utiles.
Si l'indice est supérieur à 2 (cas de 4 éléments ou plus), tu affiche un message et tusors de la procédure
Exemple avec les valeurs en colonne A :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Dim Tablo Dim i As Long For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Tablo = Split(Range("A" & i), Chr(10)) If UBound(Tablo) > 1 Then Select Case UBound(Tablo) Case 2 Tablo(1) = Tablo(2) ReDim Preserve Tablo(UBound(Tablo) - 1) Case Else MsgBox "Le tableau contient plus de 3 éléments." Exit Sub End Select End If Next i End Sub

---

Cordialement.

Bonjour,

C'est effectivement quelque chose qui marche parfaitement!!!

Grand merci à toi