copier des cellules

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

Bonjour,

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

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

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 ?

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


merci....

Si la macro te convient, je mettrais des explications.

Code:

---

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.

Je ne sais rien au macro ???

Il sera bien de me faire une pièces a joins ? avec explication

Merci…….

Bonsoir taoufik72,

Une "macro" est une ou plusieurs instructions que tu donnes afin d'automatiser une tache faite par Excel. Cette macro Excel est écrite dans un langage appelé VBA, un langage informatique de programmation.

Tu mets en forme ce langage dans un éditeur. Pour plus de renseignements, tu peux consulter "Débuter avec les macros"

Bonne soirée

Bertrand

Pour compléter, voici une méthode rapide pour mettre en place une macro :

1.appuie sur Alt+F11. La fenêtre VBE s'ouvre.
2.Repère dans la partie gauche le projet qui porte le nom de ton classeur. Clique dessus.
3. clique sur "Insertion" et "Module". Dans la partie droite, colle la macro.

Pour l 'exécuter, clique sur le menu "Outils", puis sur "Macro", "Macros". La fenêtre des macros s'ouvre. Clique sur le nom de ta macro et sur le bouton "Exécuter".

Je te mets en pièce jointe le classeur.

Bonjour

Désolé de ma réponse un peu tardive j’étais très occupé?????

Ca marche Bienne mais je te demande un peau plus !!!

De faire copier le dernier ligne après chaque validation dans la ’’feuille de base’’

Merci bien

Bonjour,

Copie la macro suivante dans le module de la feuille "Feuille de Base" (clic droit sur l'onglet de la feuille, clic sur "Visualiser le code", copie la macro dans la partie droite de la fenêtre. Quand tu auras rempli une ligne de cette feuille, elle se recopiera automatiquement dans la feuille de destination :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ws As Worksheet, Ligne As Integer If Target.Column < 11 Then If Application.CountA(Cells(Target.Row, 1).Resize(, 10)) = 10 Then Set Ws = Sheets(CStr(Cells(Target.Row, 3))) Ligne = Ws.[A8:A26].Find("").Row Ws.Cells(Ligne, 1).Value = Cells(Target.Row, 1).Value Ws.Cells(Ligne, 2).Resize(, 8).Value = Range(Cells(Target.Row, 3), Cells(Target.Row, 10)).Value End If End If End Sub

---

PS. Je mets le classeur de test en pièce jointe.

Bon soir Daniel.c :ccool:
Merci pour ton aide. J’ai teste ci bien ce que je veux
Petit question est que possible d’ajouter plusieurs feuilles"code" ?
Et est ce que il aura un changement dans les code VBA ?


Merci

Bonsoir,

Tu peux en ajouter sans avoir à modifier la macro.