liste déroulante qui permet un renvoi auto

[spikehell]

Bonjour,
après bien des recherche je me permet de vous solliciter pour obtenir des

Voici mon soucis,

j'ai un tableau qui se lit de façon horizontale, dans ma ligne se trouve une cellule (D3) comportant une liste déroulante du type (conforme,non conforme, à vérifier....)

J'aimerai trouve une formuler qui lorsqaue l'utilisateur pointe sur la liste non conforme, copie la ligne en question et la tranfert dans une autre feuille intitulé "impréssion"

Ainsi quand l'utilisateur à fini de tous coché, toutes les non formité sont identifiés et copié automatique dans un tableau pret à être imprimé (d'ailleurs si vous avez une technique pour creer un bouton "impression" en bas du tableau je suis preneur egalement !! )

Merci d'avance aux personnes qui pourront m'aider !
Nouveau venu

edit:

En faite le fichier correspond à un outil d'audit que je suis en trian de créer,
il comprend plusieurs feuilles (plusieurs domaines traités) et j'aimerai que toutes les non conformités apparaissent sur un même tableau sur une feuille unique.

J'éspère avoir été un peu plus claire



Je pense que cela doit ressembler à une formule du type :

SI (d3=non conforme,"copie dans la feuille2 en A1","")

le probleme c'est que niveau syntaxe je coince.

 

[LPandre]

Re : liste déroulante qui permet un renvoi auto

je n'ai peut être pas la solution, mais sans fichier exemple, je n'ai surement pas la solution !

 

[spikehell]

Re : liste déroulante qui permet un renvoi auto

Désolé voici le fichier excel :

Petit Fichier - Fichier excel (test.xls)

 

[camarchepas]

Re : liste déroulante qui permet un renvoi auto

Bonjour,

J'ai supprimé la feuil1 qui pour le principe ne sert à rien , cela permet de faire passer le fichier par le forum.

Transfert (Peut être les colonnes transférées à revoir) + impression réalisée

en vba

 

[spikehell]

Re : liste déroulante qui permet un renvoi auto

ça fonctionne bien ! merci !

tu pourrais m'expliquer comment tu as fait car j'aimerai reproduire la démarche sur l'ensemble de mon document en ajoutant quelques modifs:
- Faire la meme action en cas de "non conformité" et lorsqu'il y a marqué "à verifier"
- renvoyer egalement la colonne G qui correspond au plan d'action dans le fichier imprimer, dans la case plan d'action

En copie le fichier avec la colonne "plan d'action" inscrite, j'avais oublié de la préçiser !

Petit Fichier - Test 2 modifier par ça marche pas (test2.xls)

merci encore !!!

 

[camarchepas]

Re : liste déroulante qui permet un renvoi auto

' toutes les lignes avec un ' sont des lignes commentaire

'Dans Feuil2 (Clic touche droite souris sur l'onglet de la feuil désirée ouvre le code :

'Ceci est une procédure évenementielle : elle se produit à chaque fois qu'il y a un changement de valeur dans la feuil
'Attention ce code est solidaire de la feuil à tester

'a mettre dans chaque module selon le besoin feuil2 (Feuil12 pourquoi pas si nécessaire)
Private Sub Worksheet_Change(ByVal Target As Range)

'Target est gérée automatiquement par excel et donne la cellule modifiée
'l'on teste la valeur de la cellule là
'non conforme , mais pour une autre action l'on pourrait mettre conforme par exemple
'si égalité alors recopie sinon l'on va jusqu'au end if
If Target.Value = "Non Conforme" Then
'On récupére le numéro de la première ligne vide de la colonne B

LigneCourante = Worksheets("Impression").Range("B65536").End(xlUp).Row + 1

'Recopie des cellules (l'offset permet de ce décaler en lignes et colonnes par rapport à la cellule de référence
Worksheets("Impression").Range("B" & LigneCourante) = Range(Target.Address).Value
Worksheets("Impression").Range("C" & LigneCourante) = Range(Target.Address).Offset(0, 1).Value
Worksheets("Impression").Range("D" & LigneCourante) = Range(Target.Address).Offset(0, 3).Value
End If
End Sub

'a mettre dans le module du classeur thisworkbook
macro appelée par appui sur le bouton imprimer
Dans thisworkbook
Sub Imprime()
Dim LigneCourante

'On récupére le numéro de la première ligne vide de la colonne B
LigneCourante = Worksheets("Impression").Range("B65536").End(xlUp).Row

'l'on test si il y a quelque chose à imprimer si ok imprime sinon fin
If LigneCourante > 2 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Plus le fichier modifié :

 

[spikehell]

Re : liste déroulante qui permet un renvoi auto

milles merci je vais essayer tout cela cet aprem

 

[spikehell]

Re : liste déroulante qui permet un renvoi auto

juste un truc j'ai un soucis avec la ligne :
If Target.Value = "Non Conforme" Then

j'aimerai qu'il fasse l'action egalement si on choisit a verifier tu peux m'aider ?

 

[tototiti2008]

Re : liste déroulante qui permet un renvoi auto

Bonjour à tous,

peut-être :

If Target.Value = "Non Conforme" or Target.Value ="A vérifier" Then

attention aux majuscules et aux accents

 

[camarchepas]

Re : liste déroulante qui permet un renvoi auto

Bonjour Tototiti,

Effectivement bien vu . BV

 

[spikehell]

Re : liste déroulante qui permet un renvoi auto

en effet, c'est parfaitement fonctionel.

je viens de faire la modification, par contre le soucis c'est que le plan d'action lui n'est pas copié dans la deuxieme page.


J'aurai une autre petit question, vous penser que c'est possible de faire apparaitre le titre du tableau (ligne 1), car j'aurai sur le doc finale plusieurs feuilles et ça serait plus facile de s'y retrouver, exemple

Dans la feuille "impression"

Titre 1 le debut:

Etat| Problematique| Plan d'action
bla blabla blablabla

ainsi de suite.....
J'ai réactualiser ma feuille de test pour vous faire comprendre.

 

[camarchepas]

Re : liste déroulante qui permet un renvoi auto

Re moi,

Voici donc avec le titre,

par contre le temps de scrutation deviens trop long , j'ai sorti la fonction et l'ai mis dans un module avec un drapeau de sécurité

 

[spikehell]

Re : liste déroulante qui permet un renvoi auto

ça marche très bien , par contre le renvoi du plan d'action ne fonctionne pas, je pense que c'est le dernier détail à regler et tout sera nikel, comme je te l'ai dis j'ai essayer de changer le code par moi même mais mes tentatives ont toutes etaient un echec

Si tu pouvais me donner un dernier coup de main, ça serait vraiment gentil de ta part !

 

[camarchepas]

Re : liste déroulante qui permet un renvoi auto

Ca fonctionne trés bien si tu renseignes le plan d'action dans la première feuille , lol

 

[spikehell]

Re : liste déroulante qui permet un renvoi auto

C'est etrange avec 2003 sur mon ordinateur cela ne fonctionne pas

je t'ai mis une capture d'ecran pour que tu visualise :

Lien supprimé