Aide formule avec rechercheV choix multiple

Le 05/12/2011 à 09:39

Bonjour,

Il y a quelques mois "MAD" "Dubois" et "Amadéus" m'ont créé une feuille permettant d'extraire des données hors d'un tableau reprenant une liste de matériel utilisé dans notre laboratoire hospitalier d'analyse sanguine.

Depuis , ce tableau a évolué et la nouvelle mise en page bloque la fonction de tri .....

J'ai placé le doc en pièce jointe.

Voudriez-vous bien me dire si c'est réparable et comment y arriver ?

un tout grand merci à vous

LM Xhurdebise

57compendium-mis-a-jour-15-11-2011.zip (36.55 Ko)

Le 05/12/2011 à 10:06

Bonjour,

modifie cette ligne de code

x = Application.Match(Target, .Range("b:b"), 0)

devient

x = Application.Match(Target, .Range("a:a"), 0)

code complet

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x%
If Not Intersect([E16], Target) Is Nothing Then
    Rows(2).ClearContents
    With Sheets("tests")
        On Error Resume Next
        x = Application.Match(Target, .Range("a:a"), 0)
        On Error GoTo 0
        If x > 0 Then
            .Range(.Cells(x, "a"), .Cells(x, "k")).Copy Destination:=Range("a2")
        End If
    End With
End If
End Sub

Bonne journée

Claude

Le 14/12/2011 à 16:30

Bonsoir,

Un tout grand merci pour la correction apportée

Si cela n'est pas abuser, serait-il possible de n'autoriser l'accès qu'à la seule zone de saisie de la page 2 ,de telle sorte que personne sauf la personne autorisée ne pourra changer le contenu de ce fichier (pour une mise à jour par exemple).

Merci et bonne soirée

Le 14/12/2011 à 19:24

Bonsoir,

Tu peux masquer la feuille "tests"

et protéger le classeur avec mot de passe

Claude

Le 15/12/2011 à 08:50

Bonjour,

J'ai pu masquer la première feuille, ce qui la rend inaccessible et donc protège son contenu.

Dans la seconde feuille ,visible celle-ci,J'ai des difficultés à limiter l'accès à la seule cellule de recherche du produit : dès que j'ai verrouillé la feuille je ne sais pas comment rendre accessible la cellule de saisie....

Merci de votre aide

Le 15/12/2011 à 11:18

Bonjour à tous,

----- Feuille "Saisie" -----

J'ai masqué la colonne A (double emploi avec E16),

ce qui permet d'élargir les colonne F et i

1) sélectionner toutes les cellules

2) clique droit, Format de cellule/Protection

cocher Verrouillée

3) sélectionner "E16" et décocher Verrouillée

4) protéger la feuille, ici mot de passe = "dudu"

5) dans la macro, déverrouiller au début et re-verrouiller à la fin

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x%
    If Not Intersect([E16], Target) Is Nothing Then

        ActiveSheet.Unprotect Password:="dudu" 'à régler

        Rows(2).ClearContents
        With Sheets("tests")
            On Error Resume Next
            x = Application.Match(Target, .Range("a:a"), 0)
            On Error GoTo 0
            If x > 0 Then
                .Range(.Cells(x, "a"), .Cells(x, "k")).Copy Destination:=Range("a2")
            End If
        End With

        ActiveSheet.Protect Password:="dudu"
    End If
End Sub

----- Feuille "Tests" -----

1) masquer la feuille

2) protéger le classeur, ici mot de passe = "dudu"

Amicalement

Claude

28xhurdebise-protection.zip (103.21 Ko)

Le 15/12/2011 à 11:35

Merci, je vais adapter le doc dans ce sens

Je donnerai des nouvelles

Cordibelge ......

Le 20/04/2012 à 15:35

Bonjour Monsieur Dubois,