[Résolu]Tableau d'inventaire

[Mr-Actme]

Salut tout le monde

Avant toute chose merci du coup de main.

J'ai réussi à écrire une macro pour le choix aléatoire de la zone de controle mais comme je débute encore sur VBA je bloque

Je cherche à faire en sorte d'avoir une macro (activable via un bouton) qui copierait la date du jour (dans la colonne N), ainsi que le le nom du contrôleur (dans la colonne O) à qui cette zone était affectée (colonne E et F)

Exemple :

Alain doit contrôler la zone A070 (correspondant au n° 7).
Il effectue le controle le 27/11/2016.
Je clique sur le bouton de macro (affectée à Alain, pour la copie du prénom) : La macro effectue une recherche de correspondance entre la case F3 et les cases de la colonne M.
Une fois la correspondance trouvée (F3 et M21), ca copie la date du jour (O8) dans la case N21 et ca copie le prénom Alain dans la colonne O21


Merci beaucoup

 

[jp14]

Bonsoir

Une procédure qui devrait répondre à la question

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Zone As String
Dim Cellule1 As Range
Dim MonTab As Variant, Compt1 As Long

If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Target = "" Then Exit Sub
With Sheets(ActiveSheet.Name)

For Each Cellule1 In .Range("E3:E16")
If Cellule1 = Target.Value Then
Zone = Cellule1.Offset(0, 1)
Exit For
End If
Next Cellule1
For Each Cellule1 In .Range("m15:m288")
If Cellule1 = Zone Then
Cellule1.Offset(0, 1) = .Range("O8")
Cellule1.Offset(0, 2) = Target.Value
Exit Sub
End If
Next Cellule1
End With


End Sub

A coller dans la feuille "Tableau aléatoire"

Un double clic sur le nom en colonne 1 lance la procédure

A tester

Bonne soirée

 

[Mr-Actme]

Ouah

Je ne sais pas quoi dire à par merci.
C'est bien plus que ce que je pensais.
J'espère pouvoir un jour aider quelqu'un de la même facon.

Bon du coup de retourne potasser mes bouquins pour progresser.

Merci encore !!!!!!