Ajouter des chaînes de type string à un objet

[max.lander]

Bonjour à tous,

J'ai une question technique à vous poser, je suis en train de créer un petit programme
et pour simplifier mon code qui commence à devenir touffu,

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 ?
Sans passer par les feuilles de calcul ou même les tableaux


un code du type :

For each zone in Monobjet

Ajouter ma chaine de caractère

Next zone

Merci pour vos retours

 

[Roland_M]

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ù ?

 

[max.lander]

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

 

[Dranreb]

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

 

[max.lander]

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

 

[Iznogood1]

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.

 

[Dranreb]

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

Bonjour.

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

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é.

 

[max.lander]

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

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

Merci

 

[Roland_M]

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

bonsoir,

regarde l'aide sur les tableaux avec Redim Preserve !

 

[max.lander]

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

 

[Roland_M]

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

Bonsoir,

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

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

 

[max.lander]

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

Roland_M, merci bcp pour cette correction,