Ajouter des chaînes de type string à un objet

Roland_M

XLDnaute Barbatruc

• 5 Novembre 2015

• #2

Re : Ajouter des chaînes de type string à un objet

bonsoir,

franchement tu n'auras aucune réponse à une question aussi vague !?

tu dis:
J'aimerai savoir s'il est possible de créer et d'y ajouter des chaînes de texte pour les faire restituer par la suite ?

Ajouter du texte où ?
Pour restituer où ?

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 5 Novembre 2015

• #3

Re : Ajouter des chaînes de type string à un objet

Salut Roland_M,


Mon programme rassemble des cellules contenant du texte et les injectent dans un fichier *.txt ligne par ligne.


A Ce titre le programme boucle sur feuille classique mais afin de générer les lignes dans ordre précis, je souhaite les stocker dans objet.

Je les restituerai par la suite par une boucle type for each objet in Malist

Max

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Novembre 2015

• #4

Re : Ajouter des chaînes de type string à un objet

Bonjour.

Ma fonction GroupOrg pourrait vous les ranger en collections imbriquées tout à fait explorables par des For Each SsGr2 In SsGr1.Contenu

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 6 Novembre 2015

• #5

Re : Ajouter des chaînes de type string à un objet

Salut à tous,

Dranreb merci pour votre réponse.

où est ce que je peux trouver votre fonction Grouporg ?

Merci par avance

 

Vote positif 0 Vote négatif

Iznogood1

XLDnaute Impliqué

• 6 Novembre 2015

• #6

Re : Ajouter des chaînes de type string à un objet

Bonjour,

oui tu peux le faire !
Au choix utilise des tableaux, des collections, des dictionnaires ou des classes personnalisées.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Novembre 2015

• #7

Re : Ajouter des chaînes de type string à un objet

Bonjour.

où est ce que je peux trouver votre fonction GroupOrg ?

Cliquez pour agrandir...

Dans un de mes classeurs nommé de la forme GrpOrgDemandeur.xls joint lors d'une discussion trouvée en cherchant GroupOrg.
Ou bien ici, dans votre future classeur joint, retourné équipé.

 

Dernière édition: 6 Novembre 2015

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 7 Novembre 2015

• #8

Re : Ajouter des chaînes de type string à un objet

Salut à tous,

Merci pour toutes vos réponses !

Je vais finalement me rabattre sur les tableaux, mais j'ai cru comprendre qu'il n' était pas possible d'utiliser de boucle du type
for...... each avec les tableaux.


Le problème étant que je ne suis pas en mesure déterminer la taille du tableau, du coup en prenant large je me retrouve avec des enregistrements vides.

Je suis donc obligé de passer par un test pour savoir s'il y a des emplacements vides et les filter !


Ci-dessous un exemple :


mon code :

Sub montableau()
Dim tableau(15) As String

For i = 1 To 10

tableau(i) = i & " mon test"



Next


For i = 1 To 15





' ici est mon test pour filtrer les emplacements vides

If tableau(i) <> "" Then
MsgBox (tableau(i))

Else: MsgBox ("Attention emplacemnts vides")

End If

Next

End Sub

Cliquez pour agrandir...

Je trouve pas cette méthode très propres avez vous des idées d'amélioration ?

Merci

 

Dernière édition: 7 Novembre 2015

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Novembre 2015

• #9

Re : Ajouter des chaînes de type string à un objet

bonsoir,

regarde l'aide sur les tableaux avec Redim Preserve !

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 7 Novembre 2015

• #10

Re : Ajouter des chaînes de type string à un objet

Merci Roland_M, je viens de tester et ça fonctionne !

Pour ceux que ça peut intéresser voici un exemple :

Sub montableau()
Dim tableau() As String
ReDim tableau(15) As String

Dim B As Integer
B = 0
For i = 1 To 10

tableau(i) = i & " mon test"


B = B + 1
Next



ReDim Preserve tableau(B)


For i = 1 To UBound(tableau)


MsgBox (tableau(i))


Next

End Sub

Cliquez pour agrandir...

 

Dernière édition: 7 Novembre 2015

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Novembre 2015

• #11

Re : Ajouter des chaînes de type string à un objet

Bonsoir,

ce n'est pas tout à fait comme ça qu'il faut faire !

Code:

Sub MonTableau()
Dim Tableau() As String, B As Integer

For B = 1 To 20
 ReDim Preserve Tableau(B)
 Tableau(B) = B & " mon test"
Next

For B = 1 To UBound(Tableau)
 MsgBox (Tableau(B))
Next
End Sub

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 7 Novembre 2015

• #12

Re : Ajouter des chaînes de type string à un objet

Roland_M, merci bcp pour cette correction,

 

Vote positif 0 Vote négatif