Macro de recherche pour bouton de commande

Question

Bonjour, 
J'aimerais créer une macro dans un bouton de commande "Modifier".
La macro devrait rechercher une valeur située dans la colonne F2;F200 et la mettre dans la cellule A2. La colonne E2;E200 contient la liste de références. La cellule A1 contient la référence que je recherche. Le travail correspond plus ou moins à une RECHERCHEV (A1;E2:F200;2;FAUX)

J'aimerais aussi créer un 2ème bouton nommé "Enregistrer"qui ferait l'inverse. C'est à dire copier la valeur de la cellule A2 dans la colonne F suivant la référence située en A1

Merci pour votre aide

gbinforme · Answer

Bonjour,

Bienvenue sur le forum.

Le travail correspond plus ou moins à une RECHERCHEV 
Pourquoi recoder ce qui existe et fonctionne correctement ?

JCK01 · Answer

Bonjour gbinforme,
J'essai de simplifier mon programme, pour l'instant j'ai une feuille par coupe de bois. Je gère dans ces feuilles les prix de vente de bois, coûts des travaux etc. (150 feuilles c'est un peu lourd !)
J'essaie de tout rassembler sur une feuille de travail. En sélectionnant le nom de la coupe mon tableau me donne le n° de la coupe (entre 100 et 399)
Avec un bouton Modifier, j'aimerais recherché les valeurs stockés dans ma base et les remettre dans mon tableau.
Une fois les valeurs modifiées, j'aimerais avec un bouton Enregistrer remettre ces valeurs dans ma base.

via55 · Answer

Bonjour JCK01, hello gbinforme

Voilà les 2 macros à mettre dans un module (ALT+F  pour ouvrir l'éditeur VBA - Insertion - Module - copier et coller les macros
Sub rechercheref()
For n = 2 To 200
If Range("E" & n) = Range("A1") Then Range("A2") = Range("F" & n): Exit For
Next
End Sub

Sub enregistrerval()
For n = 2 To 200
If Range("E" & n) = Range("A1") Then Range("F" & n) = Range("A2"): Exit For
Next
End Sub
réer ensuite les 2 boutons et insérer dans leurs codes le nom de la macro correspondante

Cdlmnt
Via
 
"L'imagination est plus importante que le savoir."    A. Einstein

gbinforme · Answer

Bonjour, 

Tu peux un peu simplifier ta première macro
Private Sub CommandButton1_Click()
Dim lig As Integer
With Sheets("Travaux")
'Volume exploité
    For lig = 2 To 7
        .Range("B" & lig * 2 + 7).Value = WorksheetFunction.VLookup(.Range("H5").Value, Range("AG3:AQ203"), lig, False)
    Next lig
End With
End Sub
 et pour la seconde je te propose
Private Sub CommandButton2_Click()
Dim lig As Integer, cel As Range
With Sheets("Travaux")
    Set cel = .Range("AG3:AG203").Find(.Range("H5").Value)
    If Not cel Is Nothing Then
        For lig = 2 To 7
            cel.Offset(0, lig - 1) = .Range("B" & lig * 2 + 7).Value
        Next lig
    End If
End With
End Sub

Macro de recherche pour bouton de commande

4 réponses

Discussions similaires

Newsletters