Traitement de chaîne de caractère

Question

Bonjour à tous,
Voila j'ai un petit problème avec ma macro, voici la partie du programme qui cloche :
       For Each aRecord In RecordsList.Rows 'pour chaque valeur contenue dans Recordlist je la mets dans aRecord
            
        '1 - traitement des noms dépositaire (unicité - groupement)
               
           GstLibName = Trim(aRecord.Cells(1, colGstLib))' Je que ma macro selectionne uniquement le premier mot de la chaine contenue dans aRecord au lieu de prendre toute la chaine sachant que les enregistrement dans aRecord ressemble à "BP2S RRSFTLT 0000747429Z" et je veux que le programme selectionne uniquement le premier mot "BP2S" j'ai tout essayé la méthode Left, Mid ....etc rien à faire à chaque fois j'ai un message d'incompatibilité

           
'GstLibName2 = Mid$(GstLibName, 0, "")
                                      
                If GstLibName <> "" Then
                GstLibRow = 0
                               
                On Error Resume Next
                GstLibRow = GstLibRows(GstLibName) ' test l'existance du dépositaire dans collection RefIntRows
               
                On Error GoTo 0 ' Continue si erreur
                
                'ajout du nom du dépositaire dans la liste temporaire et dans le fichier cible
                
                If GstLibRow = 0 Then
                      
                    currentRow = currentRow + 1
                    GstLibRow = currentRow
                    GstLibRows.Add GstLibRow, GstLibName
                    .Cells(GstLibRow, 1) = "'" & GstLibName
                End If
                End If
                If IsNumeric(aRecord.Cells(1, colEvaluation)) Then .Cells(GstLibRow, 2) = .Cells(GstLibRow, 2) + aRecord.Cells(1, colEvaluation)
                                        
        Next aRecord    
Voila en gro mon problème avec cette Macro si quelqu'un a la solution SVP Trés URGENT !!!!!!!!

cs_ShayW · Answer

Salut
Tu devrais décrire le problème et poster 
tout le macro pas une partie 
pas tout le monde a un compiler dans sa tete   en fin pas moi

cs_Jack · Answer

Salut
Oui, nous dire ... quel est ton problème, donner les éventuelles erreurs, dire les valeurs des paramètres au moment de l'erreur, décrire ce qui ne marche pas à ta guise.
Manque aussi les déclarations de tes variables : exemple : RecordsList, c'est quoi ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

La vache : ta description était perdue dans les commentaires :

Tu disais :
"Je que ma macro selectionne uniquement le premier mot de la chaine contenue dans aRecord au lieu de prendre toute la chaine sachant que les enregistrement dans aRecord ressemble à "BP2S RRSFTLT 0000747429Z" et je veux que le programme selectionne uniquement le premier mot "BP2S" j'ai tout essayé la méthode Left, Mid ....etc rien à faire à chaque fois j'ai un message d'incompatibilité"

"j'ai tout essayé" tu ne peux pas dire ça

Si ta chaine GstLibName contient du texte, ceci te fournira le premier mot, c'est à dire ce qu'il y a devant le premier espace rencontré :
    Dim mesMots() As String
    mesMots = Split(GstLibName, " ")
    MsgBox mesMots(0)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Traitement de chaîne de caractère

3 réponses

Votre réponse

Discussions similaires