Macro excel avec globbing

Macro excel avec globbing - VB/VBA/VBS - Programmation

Marsh Posté le 17-04-2012 à 10:40:58    

salut !  
 
Après quelques recherches sur le sujet, je ne trouve pas de réponse, donc je viens vous demander votre aide.
 
Je souhaiterais faire une maccro qui supprime toute la ligne si la cellule C commence par S :
ce qui donnerait :  
 

Code :
  1. For i = 1000 To 1 Step -1
  2.     If Range("C" & i).Value = "S *" Then Rows(i).Delete
  3. Next i


 
sachant que ici la cellule ciblée prend pour valeur une référence à chiffres & lettres.  
 
Mais mon code ne fonctionne pas  :pt1cable:  
 
Donc : Y'a t'il un caractère de globbing en VBA ? et si oui, comment l'utilise-t'on ?
 
merci :)

Reply

Marsh Posté le 17-04-2012 à 10:40:58   

Reply

Marsh Posté le 17-04-2012 à 11:21:38    

Utiliser Left(chaine, longueur de la partie gauche) :

For i = 1000 To 1 Step -1
    If Left(Range("C" & i).Value, 2) = "S " Then Rows(i).Delete
Next i

Reply

Marsh Posté le 17-04-2012 à 11:47:34    

Bon bah j'ai trouvé tout seul :D
 
Pour le suivant qui cherchera :
 
Il faut utiliser le substring.
ce qui donne :
 

Code :
  1. Sub supprimer_références_S()
  3. For i = 1000 To 1 Step -1
  4.     cellule = Range("A" & i)
  5.     If Left(cellule, 1) = "S" Then Rows(i).Delete
  6. Next
  8. End Sub


 
http://www.commentcamarche.net/for [...] ht-et-left
 
http://access.developpez.com/faq/? [...] ExtrChaine

Reply

Marsh Posté le 17-04-2012 à 11:49:27    

@olivthill : J'avais pas vu ta réponse. :(
Néanmoins ça ne marche pas comme ça (j'ai essayé).
ou alors je m'y suis mal pris :$
 
Il faut définir une variable hors de left()
 
Merci beaucoup en tout cas
 
 
EDIT : ah si en fait ta solution marche aussi, en plus d'être plus propre. merci :D


Message édité par blitzkrieg263 le 17-04-2012 à 11:53:20
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed