[VBA]Copie de données à partir du système de donnée GTI

[baptbapt]

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.....)

'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 des données voulu sur page de visualisation

 

[baptbapt]

Re : [VBA]Copie de données à partir du système de donnée GTI

J'ai un peu avancé dans mon programme,

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
    Dim derlo As Long
    derlo = Cells(65536, 3).End(xlUp).Row
    
Sheets.Add
ActiveSheet.Name = i
    
For p = 1 To derlo
Sheets(x).Activate
    If Cells(p, 5).Value = i Then
        Rows(p).EntireRow.Copy
        Sheets(i).Select
        ActiveSheet.Paste
    End If
    p = p + 1
Next p
    
End Sub

Le problème, il ne copie qu'une ligne sur ma page de visualisation

Ou du moins, il copie toujours sur la meme ligne.

Comment faire,


Merci