Discussion :

[ArnaudYes]

Bonjour,

J'ai un soucis avec ma méthode Find. En effet, j'ai des cellules qui se ressemblent.

Par exemple, j'ai : "Heure d'arrivée" ; "Heure de sortie" ; "Code sortie" ...

valeur correspond à la variable recherchée dans la plage de donnée (qui est sur une colonne)
trouvee correspond à une précédente variable recherchée dans une autre feuille.

Aperçu du 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
22
23
24
25
 
 
        Set valeur = .Find(What:="Heure d'arrivée", LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
            If valeur Is Nothing Then
            GoTo a2
        Else:
            valeur = trouvee.Offset(0, -2)
        End If
a2:
 
        Set valeur = .Find(What:="Heure de sortie", LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
            If valeur Is Nothing Then
            GoTo a3
        Else:
            valeur = trouvee.Offset(0, -2)
        End If
a3:
 
        Set valeur = .Find(What:="Code sortie", LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2)
            If valeur Is Nothing Then
            GoTo a4
        Else:
            valeur = trouvee.Offset(0, -1)
        End If
a4:

Il va me renseigner dans la cellule Heure d'entrée, l'heure de sortie.
De même pour Code sortie qui remplacera Heure de sortie.


Je voudrais simplement qu'il prenne tout le contexte pour qu'il n'y est pas cette erreur.

Je vous en remercie par avance. Cordialement,
Arnaud

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Set Valeur = .Find(What:="Heure d'arrivée", LookIn:=xlValues, LookAt:=xlWhole)
    If Not Valeur Is Nothing Then
        Valeur.Offset(, 2) = Trouvee.Offset(, -2)
    Else
        Set Valeur = .Find(What:="Heure de sortie", LookIn:=xlValues, LookAt:=xlWhole)
        If Not Valeur Is Nothing Then
            Valeur.Offset(, 2) = Trouvee.Offset(, -2)
        Else
            Set Valeur = .Find(What:="Code sortie", LookIn:=xlValues, LookAt:=xlWhole)
            If Not Valeur Is Nothing Then
                Valeur.Offset(, 2) = Trouvee.Offset(, -1)
            End If
        End If
    End If

[ArnaudYes]

Merci mais cela ne marche pas.

Il ne rempli que le premier champs. j'ai essayé d'enlever les Else mais le problème reste le même.

D'où peut venir le problème ?

[mercatog]

Le code que j'ai proposé ne va surement pas donner le résultat consenti puisque l'explication de la problématique était sommaire et personnellement je n'ai pas deviné la disposition de ton fichier.

Donc, je devais préciser que l'extrait était simplement pour éviter les goto qui assombrissent ton code

[ArnaudYes]

D'accord, Merci, c'est vrai que le code est moins lourd.

Et veuillez m’excuser, je vais détailler :

J’ai dans une première feuille un tableau dans lequel je cherche une valeur dans une colonne.
C’est un code unique et il n’y a pas de doublons.
Cette valeur correspond à trouvee

Puis j’ai dans une seconde feuille des termes dans la première colonne. Ces termes peuvent être modifiés dans le sens où ils peuvent être présents ou non.
Ce que je veux faire, c’est : s’il y a présence du terme,
alors prendre la valeur correspondante située dans la première feuille et la décaler de deux colonnes par rapport au terme.
Si le terme n'est pas présent, alors ne rien faire.

[mercatog]

Qu’entends tu par "termes" de la seconde feuille.

Explicitement, un fichier exemple est nécessaire quand l'explication reste sommaire pour quelqu'un qui n'a pas le fichier sous les yeux.