Condition if

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #2

Re : Condition if

Bonjour à tous


c'est du VBA, non ?

Sans VBA, cela donne:
If Range("E4") <> "AAA" Then Range("C4:F4").Clear
If Range("E5") <> "AAA" Then Range("C5:F5").Clear
If Range("E6") <> "AAA" Then Range("C6:F6").Clear
...
If Range("E2090") <> "AAA" Then Range("C2090:F2090").Clear

Cliquez pour agrandir...

PS: Tu pourrais utiliser un filtre automatique pour te simplifier la vie, non ?
Le critère serait: <> de "AAA"

 

Vote positif 0 Vote négatif

T

thomas4530

XLDnaute Junior

• 26 Décembre 2013

• #3

Re : Condition if

Bonjour,

Malheureusement, non... je dois conserver toutes les colonnes et lignes à l'écran.

Tu peux m'aider ?

Thomas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #4

Re : Condition if

Re

Donc pour illustrer mon histoire de filtre automatique (avec du VBA)

Code:

Sub test()
Dim MaPlageFiltree As Range, pf As Range, dl&
dl = Cells(Rows.Count, "E").End(xlUp).Row
Set MaPlageFiltree = Range("E3:E" & dl)
MaPlageFiltree.AutoFilter Field:=1, Criteria1:="<>AAA", Operator:=xlAnd
Set pf = Range("_FilterDataBase")
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.ClearContents
ActiceSheet.ShowAllData
End Sub

J'ai fait un test qui pour moi est OK. (voir ci-dessous)

 

Dernière édition: 26 Décembre 2013

Vote positif 0 Vote négatif

T

thomas4530

XLDnaute Junior

• 26 Décembre 2013

• #5

Re : Condition if

Re,

Cela ne marche pas: erreur d'exécution 424 - objet requis.

Il n'y a vraiment pas moyen moyen de réaliser cela ?

--> pour chaque cellule de la colonne E, si la valeur n'est pas "AAA" efface le contenu des colonnes C:F.

Sans VBA, cela donne:
If Range("E4") <> "AAA" Then Range("C4:F4").Clear
If Range("E5") <> "AAA" Then Range("C5:F5").Clear
If Range("E6") <> "AAA" Then Range("C6:F6").Clear
...
If Range("E2090") <> "AAA" Then Range("C2090:F2090").Clear

Déjà un tout grand merci pour ton aide... et ta patience

Thomas

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 26 Décembre 2013

• #6

Re : Condition if

bonjour thomas4530,Jean Marie

un code

Code:

Sub es()
 Dim i As Long
 For i = 4 To Cells(Rows.Count, 5).End(3).Row
 If Cells(i, 5) <> "AAA" Then Cells(i, 3).Resize(, 4).Clear
 Next
End Sub

 

Vote positif 0 Vote négatif

T

thomas4530

XLDnaute Junior

• 26 Décembre 2013

• #7

Re : Condition if

Hello,

Je préfère cela... mais ça ne marche pas non plus.

Erreur d'exécution 1004.

Où est l'erreur ?

Sub copie()
Sheets("Données").Range("A1:CH2090").copy Sheets("BBB").Range("A1:CH2090")
End Sub

Sub test()
Dim i As Long
For i = 4 To Cells(Rows.Count, 5).End(3).Row
If Cells(i, 5) <> "AAA" Then Cells(i, 3).Resize(, 4).Clear
Next
End Sub

Merciiiiiii

 

Vote positif 0 Vote négatif

T

thomas4530

XLDnaute Junior

• 26 Décembre 2013

• #8

Re : Condition if

Encore moi,

Désolé Laeti cela fonctionne en fait, juste une cellule fusionné qui faisait tout foirer...

Faut juste que je trouve comment juste effacer la valeur sans effacer la mise en page.

Un tout grand merci,

Thomas

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 26 Décembre 2013

• #9

Re : Condition if

re,

ClearContents

a la place

Clear

 

Vote positif 0 Vote négatif

T

thomas4530

XLDnaute Junior

• 26 Décembre 2013

• #10

Re : Condition if

Je l'avais trouvé... je progresse (humhum).

Tu ne peux pas m'expliquer ton code que je puisse l'adapter pour d'autres colonnes ?

Un tout tout grand merci,

Thomas

 

Vote positif 0 Vote négatif

T

thomas4530

XLDnaute Junior

• 26 Décembre 2013

• #11

Re : Condition if

Laetitia,

J'ai essayé d'adapter pour les colonnes suivantes (même logique)... mais cela ne fonctionne pas ?

Où est le problème ?

Sub lundi2()
Dim i As Long
For i = 4 To Cells(Rows.Count, 9).End(7).Row
If Cells(i, 9) <> "AAA" Then Cells(i, 7).Resize(, 4).ClearContents
Next
End Sub

Pfffffff je n'y arriverai jamais !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #12

Re : Condition if

Bonjour leti

Juste pour préciser

Cela ne marche pas: erreur d'exécution 424 - objet requis.

Cliquez pour agrandir...

Cela fonctionne (voir copie d'écran de mon précédent message)
Tu n'as pu/su faire que le code que je t'ai soumis fonctionne chez toi.
Ce qui n'est pas tout à fait la même chose

 

Vote positif 0 Vote négatif

T

thomas4530

XLDnaute Junior

• 26 Décembre 2013

• #13

Re : Condition if

Bonjour Staple1600,

Autant pour moi.

Dans le code de Laetitia, ce que je ne comprends pas c'est le end(3)...

Thomas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Décembre 2013

• #14

Re : Condition if

Re

C'est juste un raccourci d'écriture
qui si je n'abuse correspond à xlUp.

Leti: tu confirmes mon propos?

 

Vote positif 0 Vote négatif

T

thomas4530

XLDnaute Junior

• 26 Décembre 2013

• #15

Re : Condition if

Et qui signifie dernière ligne ?

Puis-je préciser un numéro de ligne ? Si oui, comment ?

 

Vote positif 0 Vote négatif