Chaîne de caractère : extraction et copie

[EpsilonOne]

Bonjour,

je débute en VBA et j'ai fait la macro suivante :

Sub Maj_Statut()

Dim Cellule As Range
Dim CellRecep As Long
Dim Car As Long
Dim Statut As String
Dim y As Long


Sheets("DBrut").Activate
y = 2
'x = CStr(Range("A" & y))
For Each Cellule In Range("A2:A20")
    For Car = InStr(Range("A" & y), "F") To InStr(Range("A" & y), "é")
        If Mid(Cellule.Value, Car, 1) <> "" Then
            Statut = Statut & Mid(Cellule.Value, Car, 1)
        Else
            Sheets("Incidents").Range("A" & y).Offset(Cellrecept, 0).Value = Statut
            Statut = ""
            Cellrecept = Cellrecept + 1
        End If
    Next Car
    Sheets("Incidents").Range("A" & y).Offset(Cellrecept, 0).Value = Statut
    Statut = ""
    Cellrecept = Cellrecept + 1
Next Cellule
End Sub

Ça marche pas trop mal, sauf que la fonction InStr ne me renvoie pas la bonne valeur et je ne vois pas pourquoi elle renvoie une valeur erronée ?

Si l'un d'entre vous à une idée ?

Cordialement

 

[bqtr]

Re : Chaîne de caractère : extraction et copie

Bonjour EpsilonOne et bienvenue

Peux tu préciser ce que tu cherches à faire ?
Tu souhaites récupérer le mot "Fermé". Si c'est le cas, quand ce mot n'existe pas que faut-il faire.

A+

 

[kjin]

Re : Chaîne de caractère : extraction et copie

Bonsoir, bonsoir bqtr
Comme le fichier n'a rien à avoir avec la macro, sans vraiment savoir où il faut mettre le résultat, avec le fichier fourni, compte tenu de ce que j'ai compris

Sub Maj_Statut()
With Sheets(1)
For Each Cel In .Range("A1:A19")
If Cel Like "*Fermé*" = True Then
Sheets(2).Range("A" & Cel.Row) = "Fermé"
End If
Next
End With
End Sub

A+
kjin

 

[EpsilonOne]

Re : Chaîne de caractère : extraction et copie

Bonjour,

merci pour vos réponses.

en effet, je cherche à récupérer "Fermé" ou "En attente" ou "En cours", et à les copier dans une autre feuille en respectant le numéro de la cellule. Si aucun des mots n'est trouvés, la macro devra afficher une cellule vide.

Cordialement

 

[kjin]

Re : Chaîne de caractère : extraction et copie

Bonjour,
As tu au moins testé le code fourni
Le code modifié pour récupérer en plus "Nouveau" et "En cours"

Sub Maj_Statut()
With Sheets("Dbrut")
For Each cel In .Range("A1:A19")
If cel Like "*Fermé*" = True Then Sheets("Incidents").Range("A" & cel.Row) = "Fermé"
If cel Like "*Nouveau*" = True Then Sheets("Incidents").Range("A" & cel.Row) = "Nouveau"
If cel Like "*En" & " " & "cours*" = True Then Sheets("Incidents").Range("A" & cel.Row) = "En cours"
Next
End With
End Sub

A+
kjin

 

[EpsilonOne]

Re : Chaîne de caractère : extraction et copie

Bonjour,
As tu au moins testé le code fourni
Le code modifié pour récupérer en plus "Nouveau" et "En cours"

A+
kjin

Oui, je viens de le faire, il marche niquel... et je vais tester celui-ci.
Merci bien !

 

[EpsilonOne]

Re : Chaîne de caractère : extraction et copie

kjin,

merci pour le code, ça marche pas mal.
et désolé pour le manque de clarté... je ferais mieux la prochaine fois

 

[Staple1600]

Re : Chaîne de caractère : extraction et copie

Bonjour à tous

Une autre façon en utilisant Switch
(mais cette solution ne fonctionne que
si les valeurs son rigoureusement égales
à Fermé , Nouveau, En cours, En attente

Sub Maj_Statut_avecSwitch()
'noms des feuilles changées
'pour faire le test
With Sheets(1)
For Each cel In .Range("A1:A19")
Sheets(2).Range("A" & cel.Row) = _
Switch(cel = "Fermé", "Fermé", _
cel = "Nouveau", "Nouveau", _
cel = "En cours", "En cours", _
cel = "En attente", "En attente")
Next
End With
End Sub

 

[EpsilonOne]

Re : Chaîne de caractère : extraction et copie

Bonjour à tous

Une autre façon en utilisant Switch
(mais cette solution ne fonctionne que
si les valeurs son rigoureusement égales
à Fermé , Nouveau, En cours, En attente

Sub Maj_Statut_avecSwitch()
'noms des feuilles changées
'pour faire le test
Sub Maj_Statut()
With Sheets(1)
For Each cel In .Range("A1:A19")
Sheets(2).Range("A" & cel.Row) = _
Switch(cel = "Fermé", "Fermé", _
cel = "Nouveau", "Nouveau", _
cel = "En cours", "En cours", _
cel = "En attente", "En attente")
Next
End With
End Sub

merci pour le code, je regarde ça...

 

[Staple1600]

Re : Chaîne de caractère : extraction et copie

Re

EpsilonOne

Il y a un petit souci dans mon copié/coller

J'ai modifié la macro de mon précédent message.


J'espère que tu auras modifié de toi-même avant de tester.

Désolé.

 

[EpsilonOne]

Re : Chaîne de caractère : extraction et copie

Re

EpsilonOne

Il y a un petit souci dans mon copié/coller

J'ai modifié la macro de mon précédent message.


J'espère que tu auras modifié de toi-même avant de tester.

Désolé.

oui, j'avais vu...
Merci !