Discussion :

[Rossinant]

Bonjour à tous,

Je vous exposent mon problème, j'ai une feuille excel à l'intérieur duquel il y a une liste de tâches à faire(todo list). J'ai voulu crée une macro afin de trouver des tâches en particuliers(car les tâches peuvent changer de cellules) pour qu'elle me sélectionne les tâches en particuliers.

Cependant j'ai remarquer que si dans ma cellule j'écris ma tâche en faisant un retour à la ligne, mon algo ne retrouve plus la tâches et de ce fait je voulais savoir si il n'y avait pas un moyen de contourner cela ?

Voici mon code

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
16
17
18
19
20
 
Dim a As String
For i = 0 To 9
    a = tab_verif_tache(i)
    MsgBox a
        For j = 10 To 150
            If Range("B" & j).Value = a Then
            Range("B" & j).Select
            MsgBox ActiveCell.Address
 
            ElseIf Range("E" & j).Value = a Then
            Range("E" & j).Select
            MsgBox ActiveCell.Address
 
            ElseIf Range("I" & j).Value = a Then
            Range("I" & j).Select
            MsgBox ActiveCell.Address
            End If
        Next j
    Next i

[Menhir]

Au lieu de faire des test avec un "=", utilise une fonction InStr() pour savoir si la chaine cherchée est dans la cellule testée.

[Rossinant]

J'ai testé et il y a de l'amélioration.

Cependant mon petit algo ne trouve pas toutes les tâches

Voici le code

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
16
17
18
19
20
21
 
Dim a As String
For i = 0 To 9
    a = tab_verif_tache(i)
    MsgBox a
        For j = 10 To 150
 
            If InStr(1, Range("B" & j).Value, a, 1) Then
            Range("B" & j).Select
            MsgBox ActiveCell.Address
 
            ElseIf InStr(1, Range("E" & j).Value, a, 1) Then
            Range("E" & j).Select
            MsgBox ActiveCell.Address
 
            ElseIf InStr(1, Range("I" & j).Value, a, 1) Then
            Range("I" & j).Select
            MsgBox ActiveCell.Address
            End If
        Next j
    Next i

[Rossinant]

Problème réglée ta fonction fonctionne très bien pour mon cas.

J'ai juste eu besoin de modifier mes variables dans mon tableau "Dim tab_verif_tache(9)" qui contenait des String, les variables contenait le contenu entier de la cellule or j'ai juste laissé la première ligne et cela fonctionne sans aucun souci.

Un grand merci à toi et en te souhaitant un agréable week end.