[RESOLU] Macro avec la fonction If et 2 conditions

Pierrot93

XLDnaute Barbatruc

• 20 Août 2013

• #2

Re : Macro avec la fonction If et 2 conditions

Bonjour,

mets peut être un tout petit fichier avec le modèle de donnée à traiter et le résultat attendu, plus facile pour t'aider....

bonne soirée
@+

 

Vote positif 0 Vote négatif

C

chacal33

XLDnaute Junior

• 21 Août 2013

• #3

Re : Macro avec la fonction If et 2 conditions

Fichier rajouté.
Si quelqu'un peut jeter un oeil svp...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Août 2013

• #4

Re : Macro avec la fonction If et 2 conditions

BONJOUR,

En l'état toutes les lignes vons être supprimées, la colonne B contenant systèmatiquement le mot "Mur".... quoique, pas sûr que ce soit la ligne entière que tu veuilles supprimer... d'autre part, pas top toutes ces lignes vides pour gérer aisement un automatisme.... préférable de construire une vraie base de donnée lorsque l'on veut automatiser....

 

Vote positif 0 Vote négatif

C

chacal33

XLDnaute Junior

• 21 Août 2013

• #5

Re : Macro avec la fonction If et 2 conditions

Bonjour Pierrot,

C'est effectivement la ligne entière que je souhaite supprimer.
En fait, en fonction classique, ça donnerait (en reprenant le fichier Essai.xls)
SI(ET(TROUVE("Mur ";B8);TROUVE("Mur ";B10);B9="");"Supprimer la ligne 9"; "Essayer ligne suivante")

J'espère que j'arrive à être clair dans mes explications...

Je sais qu'il faudrait des données plus propres. Mais mon objectif là est de nettoyer les données pour les utiliser dans une bdd propre justement.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Août 2013

• #6

Re : Macro avec la fonction If et 2 conditions

Re,

regarde ceci, pas sur que ce soit le résultat attendu.....

Code:

Option Explicit
Sub test()
Dim i As Long
For i = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step -1
    If Cells(i + 1, 2) Like "*Mur*" And Cells(i - 1, 2) Like "*Mur*" Then Rows(i).Delete
Next i
End Sub

 

Vote positif 0 Vote négatif

C

chacal33

XLDnaute Junior

• 21 Août 2013

• #7

Re : Macro avec la fonction If et 2 conditions

Re,

Super Pierrot, merci!
J'ai juste rajouté une autre condition, et ça fonctionne nickel!

Question subsidiaire, à quoi sert le code "Option Explicit"?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Août 2013

• #8

Re : [RESOLU] Macro avec la fonction If et 2 conditions

Re,

Question subsidiaire, à quoi sert le code "Option Explicit"?

Cliquez pour agrandir...

Oblige à la déclaration de toutes les variables, cela évite bien souvent des erreurs....

 

Vote positif 0 Vote négatif