Discussion :

[VBACaro]

Bonjour,

Je débute en VBA et je bloque pour créer ma macro

J'ai un fichier qui comporte 604 lignes et 13 colonnes

je cherche à faire une macro pour que :

si ligne 1 comporte en cellule 1-J ou en cellule 1-L le mot TOTO (je dis bien COMPORTE et non pas EGAL) que l'intégralité de la ligne soit copiée collée dans l'onglet TOTO
et reproduire cette requête sur les 604 lignes de mon onglet de départ.

Qui peut m'aider ?

Caro

[mathspountz]

Bonjour,

Il faut faire une boucle en partant de la fin de la liste jusqu'à la première ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub supprLigneToto()
Dim ws As Worksheet
Dim i As Long, iMax As Long
 
iMax = 604
' dans quelle feuille se place t'on
Set ws = ThisWorkbook.Sheets(1)
 
For i = iMax To 1 Step -1
    If InStr(ws.Cells(i, 10).value, "toto") > 0 Or InStr(ws.Cells(i, 10).value, "toto") > 0 Then
        ws.Rows(i).Delete
    End If
Next i
End Sub

J'imagine que tu peux trouver un meilleur moyen de déterminer iMax selon la disposition des données dans ta feuille.

[cerede2000]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If InStr(ws.Cells(i, 10).value, "toto") > 0 Or InStr(ws.Cells(i, 10).value, "toto") > 0 Then

Pourquoi deux fois le même test ?

Sinon un Like me semble plus adapté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ws.Cells(i, 10).value Like "*toto*" Then

[mathspountz]

Eratum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
' colonnes J et L
If InStr(ws.Cells(i, 10).value, "toto") > 0 Or InStr(ws.Cells(i, 12).value, "toto") > 0 Then

[RyuAutodidacte]

Bonjour,
Une autre solution et d'utiliser (comme tu débutes) l'enregistreur de macro afin de créer un filtre où tu mettras le paramètre "toto" dans les 2 colonnes voulus.
Tu n'auras plus qu'à copier le résultat du filtre dans ton onglet.
Un post a déjà été traité sur ce sujet :http://www.developpez.net/forums/d15...te-autofilter/

Erratum :
En fait, cette procédure créer des actions supplémentaires qui ne sont pas adéquat à ton problème
Comme cerede je suis pour utiliser Like
Dès que j'ai un peu plus de temps, je regarde cela de plus près