[XL-2007] Macro pour recherchev

[Fred4345]

Je recherche une macro qui me permettrait de rafraichir toutes les fonctions recherchev dans les feuilles d'un classeur. A l'ouverture du classeur les recherchev devront être inhibés et actualisés au déclenchement de la macro. Est ce possible? Si oui comment svp?

[Jean-Pierre49]

Bonjour

une piste peu être

Pour bloquer les calculs

Code :

    Application.Calculation = xlManual

Pour actualiser les calculs comme F9

Code :

    Application.Calculation = xlAutomatic

tu dis

[Fred4345]

Désolé mais j'ai déjà essayé cette méthode. Cela ne marche pas pour mon application.

[lenovo49]

Tu peux activer tes macros de mise à jour par feuille en placant le code
directement dans celle-ci:

Code :

1
2
3
Private Sub Worksheet_Activate()
'lancement des formules et de la mise à jour
End Sub

A chaque fois que tu ouvres ton onglet ta macro s'active.

[Fred4345]

Bonjour lenovo49. Ce n'est pas les macros que je souhaite activer. Je recherche une macro qui activerait et désactiverait mes fonctions recherchev. Il y a en a tellement dans mes feuilles qu'excel plante.

[lenovo49]

Il faut nous en dire plus....
Si tu as plusieurs feuilles et tu ne veux pas tout refaire tu peux voir à ajouter
un bouton dans chaque page et déclancher chaque résultat à ta convenance.

Si tu n'a pas la place de mettre se bouton il te reste l'option de créer
un onglet complément dans ton bandeau et d'y afficher les optons de mise à jour.

Sinon si c'est pour tout le classeur :

Code :

APPLICATION.ENABLEEVENTS=FALSE

Et avec cela plus de macro....

[Fred4345]

j'ai la place de mettre un bouton dans mes feuilles. Mais ce n'est pas les macro que je veux désactivé. C'est le recalcule des fonctions recherchev dans les feuilles. Je veux pouvoir activer la mise à jour des formules recherchev quand je le souhaite.

[lenovo49]

Combien tu as de feuilles avec de la rechercheV?
Au début j'ai utilisé cette fonction mais par la suite j'ai laissé tomber
et j'ai mis des macros en places pour chaques feuilles.

C'est plus efficasses et surtout plus stable.

[Fred4345]

J'ai 7 feuilles. J'aimerai bien savoir faire une macro pour les remplacer, car je te confirme c'est un peu le problème. Il y en a de trop dans les feuilles et après excel bug. Tu as un "truc" à me proposer pour les remplacer?

Voici le lien ou tu trouveras le fichier. Enfin j'espère!
cette fois ça doit fonctionner.

http://dl.free.fr/iuuk8YKjt

[lenovo49]

Bon ok, magnifique cette usine à gaz....

Voici du code à adapter dans ton projet:

Code :

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
26
27
28
29
Sub exemple()
 
Dim valeur_cherchée
Dim nvlle_destination1
Dim nvlle_destination2
Dim nvlle_destination3
 
 
    For Each c In Sheets("feuil1").Range("A1:A1000") ' la feuille ou tu cherches tes données
    If valeur_cherchée = c.Value Then ' la valeur que tu cherches
    nvlle_destination1 = c.Offset(0, 0).Value ' tu choisis la valeur de colonne 1
    nvlle_destination2 = c.Offset(0, 1).Value ' tu choisis la valeur de colonne 2
    nvlle_destination3 = c.Offset(0, 2).Value ' tu choisis la valeur de colonne 3
    '........................................................
    'exemple si tu es sur la feuille2 et que tu es sur la cellule A1
    'cet exemple va chercher une valeur dans la feuille1 sur plage("A1:A1000")
    'trouve la valeur et renvoi sur la feuille 2 dans la cellule de ton choix
    'par rapport à ta position de départ!!
    ActiveCell.Offset(0, 0).Value = nvlle_destination1 ' tu reportes la valeur de la colonne1
    ActiveCell.Offset(0, 1).Value = nvlle_destination2 ' tu reportes la valeur de la colonne2
    ActiveCell.Offset(0, 2).Value = nvlle_destination3 ' tu reportes la valeur de la colonne3
    '........................................................
 
    GoTo suite 'tu peux sortir de la boucle quand tu veux
    End If
    Next
suite:
 
End Sub

Ca remplace tes formules trop lourdes à embarquer sur un seul classeur.
Tu peux adapter ce code dans l'onglet demande pour la référence WH912
il va te reconduire toutes les lignes que tu vas avoir choisi en ajoutant
de "nvlle_destination".

[Fred4345]

Oui je sais, je suis très fort pour monter des usines à gaz!
je lance la macro et ensuite je lui donne les données comment stp? Il me faut un userform?

[lenovo49]

La "valeur_cherchée" c'est par exemple ta réf WH912 de ton onglet document et donc tu te places dans ta cellule C4:

Code :

valeur_cherchée= range("document!C4").value '(exemple)

Voilà tu viens de valider ta constante!!
Pas besoin userform c'est tout simple.
A+

[Fred4345]

Et ensuite je recopie ce code pour toutes les autres lignes alors?
Est ce que ça fonctionne pour tous les recherchev de ma feuille "basecomposant"?

[lenovo49]

Dans un module, tu places ce code
Tu le lances et le résultat te donne la valeur de d4 e5 et f6 de la feuille demande. à toi de voir pour la suite...

J'ai testé etc'est nickel!

Code :

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
26
27
28
29
30
31
32
33
Sub exemple()
 
Dim valeur_cherchée
Dim nvlle_destination1
Dim nvlle_destination2
Dim nvlle_destination3
 
Sheets("DEMANDE").Select
 
Range("C4").Select
valeur_cherchée = Range("C4").Value
 
    For Each c In Sheets("base").Range("A1:A1000") ' la feuille ou tu cherches tes données
    If valeur_cherchée = c.Value Then ' la valeur que tu cherches
    nvlle_destination1 = c.Offset(0, 1).Value ' tu choisis la valeur de colonne 1
    nvlle_destination2 = c.Offset(0, 2).Value ' tu choisis la valeur de colonne 2
    nvlle_destination3 = c.Offset(0, 3).Value ' tu choisis la valeur de colonne 3
    '........................................................
    'exemple si tu es sur la feuille2 et que tu es sur la cellule A1
    'cet exemple va chercher une valeur dans la feuille1 sur plage("A1:A1000")
    'trouve la valeur et renvoi sur la feuille 2 dans la cellule de ton choix
    'par rapport à ta position de départ!!
    ActiveCell.Offset(0, 1).Value = nvlle_destination1 ' tu reportes la valeur de la colonne1
    ActiveCell.Offset(0, 2).Value = nvlle_destination2 ' tu reportes la valeur de la colonne2
    ActiveCell.Offset(0, 3).Value = nvlle_destination3 ' tu reportes la valeur de la colonne3
    '........................................................
 
    GoTo suite 'tu peux sortir de la boucle quand tu veux
    End If
    Next
suite:
 
End Sub

[Fred4345]

Je viens d'essayer. Effectivement cela fonctionne. Par contre en C4 je n'ai pas toujours le même produit. J'ai mis VH912, mais ça peut être RX101. Et la il faut aller chercher les composants qui correspondent. Ce n'est pas le cas, sauf si j'ai fait une erreur. Car c'est très fort à comprendre pour mon niveau de connaissance en VBA.

[mercatog]

Bonsoir Fred4345, lenovo49
Si je me permet d'intervenir dans votre discussion pour donner mon avis ou une piste supplémentaire.

• Éviter d'utiliser les Select, Activate
• Déclarer convenablement toutes les variables et éviter les accents dans le nom des variables
• Pour chercher une valeur dans une plage de cellules, utiliser plutôt la méthode Find au lieu des boucles, c'est plus performant.
• Pour formaliser le code, éviter les cassures dans les boucles tel que Goto machin (il existe un Exit For)

A vous.

[lenovo49]

Code :

valeur_cherchée = Range("C4").Value

C4=WH912

Donc copier ce module par le nombre de fois qu'il y a de tableau et remplacer à chaque fois
la valeur C4 par la nouvelle cellule de tes autres references...

sub tab1= tableau 1
sub tab2= tableau 2
etc....

J'ai dit module excuse moi je voulais parler du code que je t'ai envoyé
à copier le nombre de fois nécessaire dans le même module!!

C'est la fatigue......

[Fred4345]

J'avoue que là je nage, je dirais même je coule!
Sérieusement je suis trop novice pour tous comprendre pour le moment.

[mercatog]

Toujours commence par analyser ton problème et explique clairement ce que tu veux faire par rapport à la disposition de ton fichier.

[Fred4345]

J'ai un peu compris comment fonctionne ton code. En faite il fonctionne bien puisque j'ai réussi à remplir ma première ligne. En faite il faut que le code produit soit en majuscule. Comme je le mettais en minuscule ça ne marchait pas!
Je t'avais prévenu je suis un énorme novice. D'ailleurs pour comprendre ton code je m'aide de vba pour excel 2007 de l'édition pour les nuls.
Je vais essayer de faire le produit 2.
Par contre dans la ligne 6, j'utilise avec la fonction "recherchev" la fonction "si".
Comment-fais tu pour la coder STP?
Il faut vraiment que je retire le maximum de recherchev dans ce fichier.