Macro pour recherchev

**Fred4345** · 18/10/2011, 14h36

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** · 18/10/2011, 14h54

Bonjour

une piste peu être

Pour bloquer les calculs

Code :

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

    Application.Calculation = xlManual

Pour actualiser les calculs comme F9

Code :

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

    Application.Calculation = xlAutomatic

tu dis

**Fred4345** · 18/10/2011, 17h11

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

**lenovo49** · 18/10/2011, 18h31

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

Code :

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

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** · 18/10/2011, 18h42

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** · 18/10/2011, 18h53

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 :

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

APPLICATION.ENABLEEVENTS=FALSE

Et avec cela plus de macro....

**Fred4345** · 18/10/2011, 19h07

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** · 18/10/2011, 19h16

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** · 18/10/2011, 19h35

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** · 18/10/2011, 20h46

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

Voici du code à adapter dans ton projet:

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
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** · 18/10/2011, 20h52

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** · 18/10/2011, 21h08

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 :

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

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

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

**Fred4345** · 18/10/2011, 21h11

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** · 18/10/2011, 21h40

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 :

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
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** · 18/10/2011, 21h49

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** · 18/10/2011, 22h01

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** · 18/10/2011, 22h02

Code :

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

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** · 18/10/2011, 22h06

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** · 18/10/2011, 22h25

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

**Fred4345** · 18/10/2011, 22h39

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.

Macro pour recherchev

Macros et VBA Excel

Discussions similaires

Partager

Partager