Base de donnees
re,
Oui tu peux rajouter autant de lignes que tu veux dans ta feuille Panier, la macro s'adaptera. La seule chose à laquelle tu dois veiller est de bien utiliser les listes déroulantes en colonnes A, C et O (pour entrer toujours les mêmes valeurs).
C'est pour cette raison qu'il faut les étirer vers le bas pour préparer le tableau (là tu es prête jusqu'à la ligne 300).
Si tu as plus facile, mets une bordure à cette ligne comme repère; ensuite tu peux insérer une ligne dans le tableau existant. Dans ce cas, tu n'auras jamais besoin d'étirer tes listes.
N'oublie pas le "résolu" si ta demande est terminée
Amicalement
Dan
je suis desolee ms je n arrive pas a mettre resolu
j ai bcp cherche et meme regarde dans differents msg
ms moi (comme d autre) je n ai pas d onglet en bas a gauche permettant de choisir "resolu" il y a du vide chez moi
et je ne sais pas non plus comment changer de titre pour inserer resolu?
vous pouvez le faire vous si vous voulez
merci pour tout
amicalement
morgane
c bon
ca vient d apparaitre
je comprends rien ms bon
votre site est genial au fait
Salut dan
J ai un petit souci
J ai ajoute deux colonnes dans mon panier, en colonne F et donc en colonne Q (tout est donc decalé c est pour ca que j arrive a Q)
J ai modifie les macros mais il dit qu il y a un pb (Q n est pas define apparamment)
Je vois pas
J ai modifie que la deuxieme macro
Peux tu me dire ou es mon erreur
Option Explicit
Public choix As String
Public stpevent As Boolean
Sub Transfert()
'Macro par Morgane
Dim i As Integer, lig As Integer, ligne As Integer
stpevent = True
With Sheets("Fiche de recherche")
.Range("A3", Range("I65536")).ClearContents
lig = Sheets("Panier").Range("A65536").End(xlUp).Row
For i = 4 To lig
ligne = .Range("A65536").End(xlUp).Row + 1
If Sheets("Panier").Cells(i, 1) = choix Then
.Cells(ligne, 1) = choix
.Cells(ligne, 2) = Sheets("Panier").Cells(i, 2)
.Cells(ligne, 3) = Sheets("Panier").Cells(i, 3)
.Cells(ligne, 4) = Sheets("Panier").Cells(i, 4)
.Cells(ligne, 5) = Sheets("Panier").Cells(i, 5)
.Cells(ligne, 6) = Sheets("Panier").Cells(i, 7)
.Cells(ligne, 7) = Sheets("Panier").Cells(i, 11)
.Cells(ligne, 8) = Sheets("Panier").Cells(i, 15)
.Cells(ligne, 9) = Sheets("Panier").Cells(i, 16)
ElseIf choix = "Tous" Then
.Cells(ligne, 1) = Sheets("Panier").Cells(i, 1)
.Cells(ligne, 2) = Sheets("Panier").Cells(i, 2)
.Cells(ligne, 3) = Sheets("Panier").Cells(i, 3)
.Cells(ligne, 4) = Sheets("Panier").Cells(i, 4)
.Cells(ligne, 5) = Sheets("Panier").Cells(i, 5)
.Cells(ligne, 6) = Sheets("Panier").Cells(i, 7)
.Cells(ligne, 7) = Sheets("Panier").Cells(i, 11)
.Cells(ligne, 8) = Sheets("Panier").Cells(i, 15)
.Cells(ligne, 9) = Sheets("Panier").Cells(i, 16)
End If
Next i
End With
stpevent = False
End Sub
Sub Fiche()
'Macro par Morgane
Dim ligne As Integer
Dim FT As Integer, j As Integer
With Sheets("Fiche de recherche")
If IsEmpty(ActiveCell) Then MsgBox "La cellule ou la ligne est vide ! Veuillez choisir une autre cellule": Exit Sub
ligne = ActiveCell.Row '.Range("A65536").End(xlUp).Row
If ligne <= 2 Then
MsgBox "Il n'y a pas de données à mettre dans le fiche technique!!": Exit Sub
Else:
FT = .Cells(ligne, 8)
j = Application.WorksheetFunction.Match(FT, Worksheets("Panier").Range("N:N"), Q) Probleme !!!
Sheets("Fiche Technique").Range("D12") = .Cells(ligne, 2) 'Composant
Sheets("Fiche Technique").Range("H12") = .Cells(ligne, 8) 'N° fiche
Sheets("Fiche Technique").Range("D14") = .Cells(ligne, 1) 'Materiau
Sheets("Fiche Technique").Range("H14") = CDate(.Cells(ligne, 7)) 'Date
Sheets("Fiche Technique").Range("D17") = .Cells(ligne, 3) 'categorie
Sheets("Fiche Technique").Range("E18") = .Cells(ligne, 4) 'Description
Sheets("Fiche Technique").Range("B23") = .Cells(ligne, 5) 'technique - process
Sheets("Fiche Technique").Range("B28") = .Cells(ligne, 6) 'remarques - avtgs/inc
Sheets("Fiche Technique").Range("D33") = .Cells(ligne, 7) 'fournisseur
Sheets("Fiche Technique").Range("D36") = Sheets("Panier").Cells(j, 8) 'Contact
Sheets("Fiche Technique").Range("D34") = Sheets("Panier").Cells(j, 9) 'Type industrie
Sheets("Fiche Technique").Range("D35") = Sheets("Panier").Cells(j, 10) 'adresse
Sheets("Fiche Technique").Range("D42") = .Cells(ligne, 9) 'Contact Bulgari
Sheets("Fiche Technique").Range("D38") = Sheets("Panier").Cells(j, 12) 'délai
Sheets("Fiche Technique").Range("D40") = Sheets("Panier").Cells(j, 13)
Sheets("Fiche Technique").Range("F43") = Sheets("Panier").Cells(j, 13) 'prix
Sheets("Fiche Technique").Range("C45") = Sheets("Panier").Cells(j, 17) 'produit existant
End If
End With
Sheets("Fiche Technique").Activate
End Sub
Bonjour
morgane0408 a écrit :'Macro par Morgane
Juste une remarque : trouves-tu cela normal ?
Amicalement
Nad
nan desolee je sais que c est pas normal
mais mon superieur voulait que je nmette mon nom pour le big boss sache de quelle employee ca vient mais ils savent que qqn m a aide ou plutot tout fait quasiment
je leur ai meme recommande le site !!!!
et vu la grosse boite dans la laquelle je suis ca va vous faire du monde
dsl encore
tu as trouve l erreur stp?
Amicalement
Morgane
morgane0408 a écrit :mais mon superieur voulait que je nmette mon nom pour le big boss sache de quelle employee ca vient
Il me semble plus logique que tu mettes ton nom en tant qu'auteur du fichier (Fichier-Propriétés) et que tu laisses celui de Dan comme auteur de la macro. Au pire, aucun nom dans la macro
morgane0408 a écrit :tu as trouve l erreur stp?
Moi, c'est Nad - Dan lira ta demande et s'en occupera sans doute.
Amicalement
Nad
ok je ferai ca
merci
Bonjour,
Merci Nad !
Morgane,
mon superieur voulait que je nmette mon nom
Dans la macro, ll me semble que la mention "Macro par DAN pour Morgane le 15/07/08 - XL pratique" me paraît assez informative pour ton boss je crois....
Pour ta macro il faut remplacer:
j = Application.WorksheetFunction.Match(FT, Worksheets("Panier").Range("N:N"), 0)par
j = Application.WorksheetFunction.Match(FT, Worksheets("Panier").Range("O:O"), 0)La colonne O est celle du numéro de la fiche technique.
Dan
merci et désolée si je t'ai vexée
tu sais dans le fichier feuille de recherche on a mis une liste deroulante en A3 pour pouvoir choisir par ce qui proposé dans la feuille référence
mais si au lieu de la mettre en A3, je voudrais la mettre en dehors de cette colonne pour que ce soit plus clair (ex: en C1 ou D1 ...) mais que le fonctionnement et l'apparation des données restent les memes, que faut il modifier?
de plus, j 'ai personnalisé la feuille de recherche en mettant "afficher tout" pour tout refaire apparaitre ...
mais si je change d'ordi, cela n'apaprait plus ... c'est propre a mon ordi ...
faut que je fasse une macro associe a un bouton pour tout faire apparaitre?
re,
Non je ne suis pas vexé du tout.
mais si au lieu de la mettre en A3, je voudrais la mettre en dehors de cette colonne pour que ce soit plus clair (ex: en C1 ou D1 ...)
Lol ! je t'en avais parlé avant si tu relis le fil.
C'est possible mais il faut modifier le code. Là je dois voir ce qu'il faut faire.
faut que je fasse une macro associe a un bouton pour tout faire apparaitre?
On peut mettre un bouton, à coté du bouton Fiche alors. Ce sera plus simple pour tout le monde.
Dan
Edit : le mieux est que tu me renvoies ton fichier.
le fichier devient trop lourd meme si j enleve tout ce qui est "inutile" et que je le zipe
si tu as une autre solution ...
re,
Je t'ai mis un message en MP.
Dan