Remplir un objet tableau avec le contenu d'une colonne
Bonjour,
Je souhaiterai aujourd'hui remplir un objet de type tableau avec le contenu des cellules d'une colonne.
Chaque cellule peut contenir 0 ou X chaines de caractère que je souhaite mettre dans mon tableau;
Je pense donc m'orienter avec un tableau a plusieurs dimensions.
Pour une cellule donnée j'arrive a split la cellule pour avoir N colonne.
tableau=split(cellule,"+") + étant le caractère qui sépare
Est il possible d'avoir une formule du type
tableau=split(selection,"+") avec sélection étant une colonne entière.
Je me l'imagine de la manière suivante :
CC+C+JJ
C
HO+HU
donnerai un tableau du type
CC C JJ
C
HO HU
Je me rends compte que ce n'est pas très clair;
En fait je souhaite avoir un objet tableau avec lequel je peux test des variables.
Ce tableau aura autant de ligne que ma source mais autant de colonne que chaque cellule a d'arguments.
Bonjour,
Pourquoi pas de rechercher "+" et remplacer par " " tout simplement. Si ce n'est pas satisfaisant, joins-nous un fichier avec tes données anonymes.
Voici le bout de code que j'ai essayé mais cela ne marche pas :
For Each cel In Range(Cells(4, 2), Cells(4, 189))
compte = cel.Value
tableauin = Split(compte, "+")
Next cel
Mais le problème avec ce code c'est que le programme descend bien les lignes de la selection une a une mais je pense que mon tableau lui ne s'incrémente pas d'une ligne a chaque fois;
J'avance un peu mais j'ai encore du mal;
Je souhaite en faite parcourir une colonne ligne après ligne.
Cette ligne est soit vide soit rempli avec plusieurs chaine de caractère du type ccc+ggg
Je souhaite que mon tableau s'incrémente ligne après ligne de ces arguments;
Voici mon code actuel : Le problème c'est que le tableau ne descend pas d'une ligne et efface la valeur qu'il avait au redémarrage de la boucle.
Sub cherche_affec()
Dim tableauin() As String
i = 100
Dim j As Integer
ReDim tableauin(i)
Sheets("poste").Select
'Set myrange = Range(Cells(4, 2), Cells(4, 189))
For j = 0 To UBound(tableauin)
For Nolig = 2 To 189
poste = Cells(Nolig, 4)
tableauin(j) = Split(poste, "+")
Next
Next j
End Sub
Voila j'ai trouvé, ci qqun peut me donner son avis
Sub cherche_affec()
Dim tableauin() As String
ReDim tableauin(189, 100) 'peut etre optimisé
Sheets("poste").Select
For nolig = 2 To 189
poste = Split(Cells(nolig, 4), "+")
For col = 0 To UBound(poste)
tableauin(nolig - 2, col) = poste(col)
Next
Next
End Sub