Condition if

[thomas4530]

Bonjour,

Pourriez-vous me dire ce que je dois écrire en VBA pour obtenir l'action suivante:

--> 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

Un grand merci,

Thomas

 

[Staple1600]

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

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

 

[thomas4530]

Re : Condition if

Bonjour,

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

Tu peux m'aider ?

Thomas

 

[Staple1600]

Re : Condition if

Re

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

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)

 

[thomas4530]

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

 

[laetitia90]

Re : Condition if

bonjour thomas4530,Jean Marie

un 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

 

[thomas4530]

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

 

[thomas4530]

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

 

[laetitia90]

Re : Condition if

re,

ClearContents

a la place

Clear

 

[thomas4530]

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

 

[thomas4530]

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 !

 

[Staple1600]

Re : Condition if

Bonjour leti

Juste pour préciser

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

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

 

[thomas4530]

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

 

[Staple1600]

Re : Condition if

Re

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

Leti: tu confirmes mon propos?

 

[thomas4530]

Re : Condition if

Et qui signifie dernière ligne ?

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