critere qui ne fonctionne pas

[fredo]

Bonjour les amis d'excelll

voila j'ai une ptite question, j'essaye dans un tableau, de supprimer toutes les ligne dont la case de la colonne G commence par 4 ou 0, voici le code que j'ai essayé:

If Range("B" & x) <> "" And Range("G" & x) = "0*" Or Range("G" & x) = "4*" Or Range("P" & x) = "CLO" Or Range("P" & x) = "TERM" Or Range("P" & x) = "CLNO" Or Range("P" & x) = "CLRE" Then Rows(x).Delete
Next

mais le coup du 0* ou 4* ne fonctionne pas dans le code..

donc ma question en fait c'est comme je fait pour dire les cases qui commencent par 4 ou 0


voila voila

merci d'avance

 

[jmps]

Bonjour fredo,

If Range("B" & x) <> "" And (Left(Range("G" & x), 1) = "0" Or Left(Range("G" & x), 1) = "4" Or Range("P" & x) = "CLO" Or Range("P" & x) = "TERM" Or Range("P" & x) = "CLNO" Or Range("P" & x) = "CLRE") Then Rows(x).Delete

J'ai ajouté des parenthèses au groupe de tes Or sinon VBA va se mélanger les pinceaux et te supprimer n'importe quoi. Quand tu mélanges des And et des Or, il faut faire attention aux parenthèses.
Autrement, comme tu vois la syntaxe pour "commence par" est Left(Chaine, Longueur)

J'espère que ça te convient.

Bon week-end

José