Discussion :

[bobsista]

Bonjour, afin d’améliorer mes outils de travail, je cherche a développer une macro, mais je bloque un peu.
Jai pour l’instant une alternative qui me permet de faire ce que je souhaite, mais cest peu industriel..

Jai un tableau sur excel qui reprend différentes infos. cest pour faire un suivi d'inventaire. A vrai dire, jai mis une liste deroulante au niveau d'une colonne, et je souhaiterai que lorsque je choisi ou met manuellement un N dans cette colonne, la macro me lance un userform, qui recupere les infos de cette ligne, et les envoi par mail.


Lorsque je choisi O dans la colonne, je voudrais que ce ne fasse rien, et si je met N que ca me lance un userform, que jai deja creer.

jai trouvé ce debut de code, mais ca ne fonctionne pas..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("M2:m5000")) Is Nothing Then
 
plage1 = Range("m2:m5000")
 
     If plage1 = N Then
     Call FORMULAIRE1
 
     End If
 
End Sub

Merci d'avance !!

[helas]

Bonjour,
Target est bien utile

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "N" Then
        Call FORMULAIRE1
    End If
End Sub

[RyuAutodidacte]

Bonjour,
Avec le peu d'informations et ne connaissant pas les données , je ne suis pas certain qu'un formulaire soit bien utile . A mon avis de simples formules avec IF et INDEX EQUIV aurait été suffisant afin de recuperer les données voulues.

[bobsista]

Merci pour l'aide!
le principe est que je ne suis pas la seule a me servir de ce fichier, il est partagé avec des collegues, donc faut que se soit ^presque "assisté"

le but de mon outils de suivi est que je dois faire un inventaire en atelier, si je retrouve les pieces je met O (oui) dans la colonne, sinon , je dois mettre N (non), ce qui appelle un formulaire avec des données qui change regulierement (reference, mail, et quantité). A partir de la, ca demande a un collegue de faire une recherche dans son magasin pour voir si lui retrouve les pieces perdues.
Ensuite meme principe si il retrouve les pieces il doit passer par un formulaire prérempli qui informe lpar mail que les pieces ont ete retrouvées.


jai repris le code ci dessus
mais il doit manquer quelque chose, comme quelle colonne est concernée je pense? ca ne me lance rien comme formulaire..
je souhaiterai que ca le fasse sur la colonne M entiere

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "N" Then
        Call FORMULAIRE1
    End If
End Sub

merci c cool

[unparia]

Code :

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

If Target.Value = "N" and target.column = 13 Then ...

[bobsista]

Rectification, jai vu comment faire sur ce point. un grand merci. cela dit je souhaiterai evoluer un peu le truc pour recuperer la ref (colonne D) dans la textbox1 et la quantité (colonne G) dans textbox 2 de cette meme ligne.

si je met un N sur la ligne 100, je voudrais quil reprenne dans le formulaire automatiquement la ref et la qt de la ligne 100



jai ce debut de code. je veux quil prenne l'info de la textbox 1 dans la meme ligne que la cellule selectionnée, mais 8 colonnes en arriere. colonne D.

Code :

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

1
2
3
4
Private Sub UserForm_initialize()
TextBox1 .Value = ActiveCell.Value = UserForm.TextBox1.Text
                              On Error GoTo fin
                              ActiveCell.Offset(0, 8).Select

[helas]

Call FORMULAIRE1 peut transmettre la ligne par Call FORMULAIRE1(Target.row)
Je suppose que FORMULAIRE1 est une fonction

Code :

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

1
2
3
4
5
6
 
Sub Formulaire1(ligne as long)
  Userform1.Show
  TextBox1=Cells(ligne,13)
   TextBox2=Cells(ligne,8)
End Sub