comparaison de chaine de caractèresRésolu

Question

Bonjour,

Je dois traiter un fichier excel avec une macro VB. Voici le fichier a traiter :

USER   PROFILE

Je dois identifier les lignes ayant des users commencant par P ou ayant un nom de profil contenant la chaine de caract&#232;re TOTO et les delet&#233;s (la ligne compl&#232;te). Voici ce que je fait mais cela ne fonctionne pas (essai uniquement sur les profile). Pour moi, les variable username et groupe ne se set pas avec du string et cela fais tous planter. Ce n'est qu'une th&#233;orie.

Sub traitement()


Dim i
i = 2
Dim username As String
Dim group As String
Dim rep As Boolean


While (Sheets(titi").Range("A" & i).value <> "")


username = Sheets("titi").Range("A" & i).value


group = Sheets(titi").Range("B" & i).value


If username.StartsWith("P") = True Then


Rows(i).Delete Shift:=xlUp


End If
        
i = i + 1
Wend
End Sub

SVP, j'ai beosin d'aide

merci d'avance eta +

BasicInstinct · Accepted Answer

mid(chaine, NumeroCaractereDepart,Longueur)

 BasicInstinct

BasicInstinct · Answer

Dim i as long
i = 2
Dim username As String
Dim group As String
Dim rep As Boolean


While Sheets("titi").Range("A" & i).value <> ""


username = Sheets("titi").Range("A" & i).value


group = Sheets("titi").Range("B" & i).value


If left(username,1)="P" then
   Rows(i).Delete
else
   i = i + 1
End If
        
Wend
End Sub

 BasicInstinct

yannjaunin · Answer

Ok merci bcp, ca marche. Mais comment faire de meme pour une chaine de caract&#232;re au millieu d'un autre?

a+ et bonne soir&#233;e

yannjaunin · Answer

Merci bcp ca marche

Comparaison de chaine de caractères

4 réponses

Discussions similaires