Bonjour à tous,
J'utilise le vba depuis peu, et malgré des réussites, certains éléments de langage m’échappent encore.
Ici, je voudrais recopier une plage de cellule en fonction d'une cellule situé au dessus (avec création d'onglet)
Voici un exemple, avec un tableau très petit par rapport à ma réalité!
Sur la première feuille j'ai cela:
Nom du point : point1 Nom du point : point2 Nom du point : Para1 Para2 Para3 Para1 Para2 Para3 Para1 Para2 Para3 Ex1 Pa2 2000 Ex1000 Pa6 200 Ex4 Pa3 600
Avec mon code, j'arrive à créer un onglet pour chaque nom de point renseigné
Je voudrais, en plus, qu'il me copie le tableau correspondant au point dans chaque onglet. Le problème, c'est que je n'arrive pas à sélectionner une plage de cellule en fonction de ma cellule (j'ai essayé avec offset mais rien à faire).
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
20
21
22
23
24 Sub graph() On Error Resume Next For Each Cell In Range("B1,F1,J1") If Cell <> "" Then Set Feuille = Worksheets.Add(After:=Worksheets(Worksheets.Count)) Feuille.Name = Cell.Value Cells(1, 1).Value = Cell.Value Rows("3:3").RowHeight = 43.8 Columns("A:G").ColumnWidth = 12 End If Next Cell For Each ws In Worksheets If InStr(1, ws.Name, "Feuil", vbTextCompare) > 0 Then Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If Next ws End Sub
(Je suis relativement débutante en vba)
J'espère avoir bien expliqué mon problème et que vous voudrez bien répondre à une question, qui, pour des experts, doit sembler assez simple!!!
Merci beaucoup![]()
Partager