Discussion :

[taoufik72]

Bon jour le forum

Mon amie responsable d’un parc des machines il veut faire un statique à chaque machin

En brève : dans son classeur excelle il a son feuille de base et les autres son nom par des chiffres

Voici ce quelle veux faire a partirez de son feuille de base si la ligne B contienne le code de la machine il veux colles les cellules A: de feuille de basse a la cellule A: de la feuille nom code
B: de feuille de basse a la cellule D: de la feuille nom code
C: de feuille de basse a la cellule E: de la feuille nom code
D: de feuille de basse a la cellule F: de la feuille nom code E: de feuille de basse a la cellule G:de la feuille nom code F: de feuille de basse a la cellule H: de la feuille nom code G: de feuille de basse a la cellule I: de la feuille nom code H: de feuille de basse a la cellule J: de la feuille nom code

Est un suitte pour tous les machines

[Daniel.C]

Bonjour,

Est-ce que tu peux donner le même classeur avec le résultat voulu STP ?

[taoufik72]

merci pour ta colaboration ..... j'a fait le modefication voila !!!!!!!!

[Daniel.C]

Il manque la colonne "Code" sur la feuille "20002" alors qu'elle est présente sur les autres feuilles. Est-ce qu'il faut la rajouter ?

[taoufik72]

bon jour : bon remarque j'ai oublier !!!! donc il faut ajoutter


merci....

[Daniel.C]

Si la macro te convient, je mettrais des explications.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Copie()
    Dim c As Range, Ws As Worksheet, Ligne As Integer
    With Sheets("feuile de base")
        For Each c In .Range(.[C5], .Cells(.Rows.Count, 3).End(xlUp))
            Set Ws = Sheets(CStr(c.Value))
            Ligne = Ws.[A8:A26].Find("").Row
            Ws.Cells(Ligne, 1).Value = c.Offset(, -2).Value
            Ws.Cells(Ligne, 2).Resize(, 8).Value = .Range(c, c.Offset(, 7)).Value
        Next c
    End With
End Sub

Bonne soirée.