Suite de nombre à transformer en vecteur

**LtRipley** · 03/05/2013, 17h25

Bonjour,

Débutante en macro excel, je vous faire part de mon souci :

Je récupère un fichier excel avec dans certaines cellules une liste de nombres séparés par un retour chariot :
2
4
12
6

Je dois utiliser cette liste de nombre comme si c'était un vecteur pour pouvoir le multiplier par une autre liste de nombre dans le même format (retour chariot).

Je pensais créer une macro qui remplace les retours chariot par ", " (2, 4, 12, 6), mais je ne sais pas comment indiquer dans la macro que c'est un vecteur et non un texte.

Ci dessous mon essai de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
 
Cells.Replace What:="" & Chr(10) & "", Replacement:=", ", LookAt:=xlPart, SearchOrder:=xlByRows
 
VecteurA = Array(Range("H8").Value)
 
End Sub

Voilà.

J'espère avoir été un tout petit peu claire, je débute en macro donc il est fort probable que ça paraisse simple ou que je me fourvoie dans une mauvaise direction. N'hésitez pas à me poser plus de questions si nécessaire et merci pour vos réponses!

cordialement,

Marie

**Docmarti** · 03/05/2013, 17h58

Pour remplacer tous les chr(10) par ", "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
VecteurA = Range("H8").Text
b = InStr(VecteurA, Chr(10))
While b > 0
 VecteurA = Mid(VecteurA, 1, b - 1) & ", " & Mid(VecteurA, b + 1)
 b = InStr(VecteurA, Chr(10))
Wend

**SfJ5Rpw8** · 03/05/2013, 18h04

Envoyé par Docmarti

Pour remplacer tous les chr(10) par ", "
...

un simple Replace

**LtRipley** · 03/05/2013, 18h21

En fait j'arrive à transformer le contenu de ma cellule en "2, 4, 12, 6";

mais si je multiplie une cellule comme celle ci par une autre de même format (par exemple (1,2,1,3), j'ai un message d'erreur alors que je voudrais avoir comme résultat 40 (1*2+2*4+1*12+3*6).

En tout cas merci pour vos réponses, je continue à me creuser la tête de mon côté aussi.