Bonjour a tous.

Voila fort longtemps que je n'étais passé parmis vous.

Me revoila donc, avec des questions assez simple, mais qui me cause beaucoup de problème.

Alors, je suis actuellement en train de mettre un place un système de cotation de fournisseur à partir d'une base de donnée ici du process "GTI"

Bon en simple, je génère une page de donnée que je transpose sur excel. La encore, sa va pour moi.

Par contre, je bloque sur quelque opération des plus simple.
(Et oui, sa fait plus d'un an que je n'ai pas utilisé vba)

Donc, j'ai mis en place le code du forunisseur que je veux visualiser
ensuite et la sa bloque, je veu savoir comment conserver le nom de ma page de donnée, ou du moins, que le programme le prenne en compte (Le nom changeant a chaque nouvelle page généré.

Après, copier les données sur une page de visualisation.

(Je sait, c'est facile, mais je ni arrive plus. Je sais faire de balayage, faire des userform, et autres... mais sa.....)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Cotation_Programme()
 
'Saisie du code GTI fournisseur
    i = InputBox("Indiquez le code GTI fournisseur", "Code GTI", "")
 
'Indiquer le nom de la page de donnée
    x = InputBox("Indiquez le nom de la page de donnée", "Nom Page", "")
 
'Copie les lignes correpondante sur la feuille de visualisation
    derlo = Cells(65536, 3).End(xlUp).Row
 
    Sheets.Add
 
For p = 1 To derlo
    If Cells(p, 5).Value = i Then
            Rows("p:p").Select
            Selection.Copy
 
End Sub
Le programme que je vien de mettre ne fonctionne pas!!, je tiens à le préciser

Donc, j'aimerais savoir comment:
_mettre le nom de la page de donnée à l'intérieur de mon programme
_que la feuille de visualisation que je crée prenne le nom du code fournisseur (information " i ")
_copie les lignes complètes correspondant a mon fournisseurs sur cette meme page

Faire le tri dans les données, sa je sais faire, du moins encore faire.


Merci