Discussion :

[xav37]

Bonjour,



En effet j"ai 2 trames de planning différentes et je voudrais pouvoir en remplir une et que l'autre se renseigne automatiquement.
Sur le fichier l'onglet Janvier 2014 représente la 1er trame que je saisie
l'onglet Janvier TR la deuxième trame ou a l'aide dune fonction cherche plus le planning se renseigne automatiquement ici tout va bien car cela fonctionne mon problème se situe pour les autres moi Février Tr etc.....
En effet je ne sais pas comment modifier la macro (Module 3) j'ai essayé d 'en ajouter une deuxième mais cela ne fonctionne pas car il me dit qu'il y a déjà la fonction chercheplus

Merci de votre aide

[SfJ5Rpw8]

bonjour,

un début de réponse : Fichiers joints dans les discussions


ensuite montre nous ton code CherchePlus ... si ta fonction est bien écrite tu dois pouvoir y passer en paramètre le mois à mettre à jour par exemple... , montre nous ton code entre balises [code] [/code]

[xav37]

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
 
Function chercheplus(a, d)
rr = d: rd = a
chercheplus = ""
With Sheets("Janvier 14")
    nom = .Range("b12:b50").Value
    co = WorksheetFunction.Match(rd, .Rows(10), 0)
    For c = 1 To UBound(nom)
        If .Cells(11 + c, co) = rr Then
            trv = trv & nom(c, 1) & " , "
        End If
    Next c
    If trv <> "" Then
        chercheplus = Left(trv, Len(trv) - 3)
    End If
End With
End Function

Voici ci dessus le code de la fonction chercheplus



Merci beaucoup

[SfJ5Rpw8]

Et donc tu peu passer le nom de ta feuille en paramètre de ta fonction ainsi tu pourras l'utiliser pour toutes tes feuilles

Code :

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

1
2
3
4
5
6
 
 
Function chercheplus(stNomFeuille as string ,a, d)
....
With Sheets(stNomFeuille )
...

[xav37]

J'ai bien essayé d'ajouter le nom de la feuille ( janvier 14 par exemple) problème cela ne fonctionne pas au niveau de janvier 14 as string il m'ajoute erreur de compilation attendu séparateur de liste ou )

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
 
 
Function chercheplus(Janvier 14 As String, a, d)
rr = d: rd = a
chercheplus = ""
With Sheets("Janvier 14")
    nom = .Range("b12:b50").Value
    co = WorksheetFunction.Match(rd, .Rows(10), 0)
    For c = 1 To UBound(nom)
        If .Cells(11 + c, co) = rr Then
            trv = trv & nom(c, 1) & " , "
        End If
    Next c
    If trv <> "" Then
        chercheplus = Left(trv, Len(trv) - 3)
    End If
End With
End Function

Merci à toi

[SfJ5Rpw8]

J'ai bien essayé d'ajouter le nom de la feuille ( janvier 14 par exemple) problème cela ne fonctionne pas au niveau de janvier 14 as string il m'ajoute erreur de compilation attendu séparateur de liste
i

et j'ai écris quelque part "Janvier 14 as string" ??

un peu de lecture : http://bidou.developpez.com/article/VBA/

regarde en particulier comment on définit une fonction et ces arguments ...

[clementmarcotte]

Bonjour

J'ai bien essayé d'ajouter le nom de la feuille ( janvier 14 par exemple) problème cela ne fonctionne pas au niveau de janvier 14 as string il m'ajoute erreur de compilation attendu séparateur de liste ou )

C'est parce dans la définition de ta Function, tu as besoin d'un paramètre string. Ton paramètre est un mot quelconque qui représente le nom de la feuille. On peut penser à quelque chose de similaire à une variable. Comme paramètre cela peut aussi bien être Hector, Charlemage, nomdefeuille etc

En fait, au final cela pourrait se rapprocher de cela:

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
 
Sub PasseUneFeuille()
     réponse1 = chercheplus("Janvier 14", a, d)
     réponse2 = chercheplus("Février 14", a, d)
End sub
 
Function chercheplus(NomDeFeuille As String, a, d)
     rr = d: rd = a
     chercheplus = ""
     With Sheets(NomDeFeuille)
         nom = .Range("b12:b50").Value
         co = WorksheetFunction.Match(rd, .Rows(10), 0)
         For c = 1 To UBound(nom)
             If .Cells(11 + c, co) = rr Then
                 trv = trv & nom(c, 1) & " , "
             End If
         Next c
         If trv <> "" Then
             chercheplus = Left(trv, Len(trv) - 3)
         End If
     End With
End Function

[Pierre Fauconnier]

Salut.

Pourquoi ne pas passer directement la feuille en paramètre, plutôt que son nom?

Et pourquoi ne pas modifier son nom en VBA et utiliser éventuellement directement l'objet?