Faire un copier coller dans différentes feuilles
Bonjour,
Je suis extremement mauvais en VBA
Mon probleme est tres simple!
J'ai dans une feuille "1" pour différents légumes des valeurs de poids,prix et pays rangés par colonne (colonne 1 = poids, colonne2=prix .....)
Je souhaite dans la feuille "1***", crée un tableau pour chaque légumes qui rassemblent les données poids, prix et pays. On a donc un tableau pour le poireau avec les colonne 1 = poids, colonne2=prix, un tableau pour les tomates .....
De plus, j'aimerai que cela se fasse sur toutes les feuilles de mon classeur
J'ai donc pondu ce programme qui ne marche pas...
Sub Trier_valeurs()
For feuille = 1 To 6
Sheets(feuille).Select
Sheets(feuille).Activate
j = ActiveSheet.UsedRange.Rows.Count
For Each SAP In Range("A5:A" & j)
If SAP = 1 Then
Range(Cells(4 + SAP, 1), Cells(4 + SAP, 4)).Select
Selection.Copy
feuille = feuille + 4 'ce truc bizarre veut dire que la feuille1 se trouve à 4 onglet de la feuille 1***
Worksheets(feuille).Activate
k = ActiveSheet.UsedRange.Rows.Count
Range(Cells(k + 4, 1), Cells(k + 4, 4)).Select
ActiveSheet.Paste
feuille = feuille - 4
Sheets(feuille).Activate
End If
Next
Next
End Sub
Si quelqu'un pouvait m aider... ca serait tip top
Bonjour
fifou a écrit :Si quelqu'un pouvait m aider... ca serait tip top
Oui il y a toi
Un fichier dans lequel tu notes ce que tu as et ce que tu veux