Discussion :

[Kelexel]

Bonjour,

J'ai actuellement environ 100 classeurs (de statistiques de production du personnel) comprenant entre 1 a 4 tableaux, à modifier de la facon suivante :

dans le tableau 2, je dois modifier chaque ligne avec "A1" en A2 pour la ligne 2, A3 pour la ligne 3, A4 pour la ligne 4 etc, de maniere a ce que ce soit comme dans le tableau 1.

(Chaque feuille correspond à un agent en fait)

Une petite image !





Le premier tableau est bon. Je souhaite faire en sorte que le tableau 2 devienne comme le premier (incrémentation de 1 le numéro de l'onglet à chaque ligne)

Alors pour se faire, j'utilise une macro mais elle ne fonctionne que si le tableau se situe exactement à la même position, hors chaque classeur à une disposition différentes.

Pouvez-vous m'aider en modifiant ma macro pour qu'elle fonctionne dans la selection active ?

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
 
Sub Renommer_onglets()
'
' Renommer_onglets Macro
'
 
'
    Range("C159:L159").Select
    Selection.Replace What:="A1", Replacement:="A2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C160:L160").Select
    Selection.Replace What:="A1", Replacement:="A3", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C161:L161").Select
    Selection.Replace What:="A1", Replacement:="A4", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C162:L162").Select
    Selection.Replace What:="A1", Replacement:="A5", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C163:L163").Select
    Selection.Replace What:="A1", Replacement:="A6", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
     Range("C159:L159").Select
    Selection.Replace What:="A1", Replacement:="A7", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C160:L160").Select
    Selection.Replace What:="A1", Replacement:="A8", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C161:L161").Select
    Selection.Replace What:="A1", Replacement:="A9", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C162:L162").Select
    Selection.Replace What:="A1", Replacement:="A10", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C163:L163").Select
    Selection.Replace What:="A1", Replacement:="A11", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       Range("C160:L160").Select
    Selection.Replace What:="A1", Replacement:="A12", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C161:L161").Select
    Selection.Replace What:="A1", Replacement:="A13", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C162:L162").Select
    Selection.Replace What:="A1", Replacement:="A14", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("C163:L163").Select
    Selection.Replace What:="A1", Replacement:="A15", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
End Sub

Je vous remercie BEAUCOUP par avance!!!

je me tape les modifs à la main depuis lundi !!!

[Philippe Tulliez]

Bonjour,
Je n'ai pas regardé l'ensemble de ton code mais s'il s'agit de partir d'une sélection.
Option 1
il suffit de supprimer la ligne 7 (Range("C159:L159").Select).
Tu sélectionnes la plage et tu lances ta macro.
Option 2
Si tu souhaites que la macro sélectionne ta plage automatiquement, tu remplaces la ligne 7 par

Code :

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

Selection.CurrentRegion.Select

Pour faire fonctionner la macro, tu sélectionnes une cellule du tableau et tu lances la macro.
Option 3
Tu remplaces la ligne 7 par

Code :

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

ActiveSheet.UsedRange.Select

Pour faire fonctionner la macro, tu ouvres la feuille et tu lances la macro

Idéalement, ce serait mieux de ne pas utiliser la méthode Select et l'objet Selection mais si c'est pour un travail ponctuel, je pense que cette petite modification est suffisante.

[Kelexel]

Bonjour,

Merci pour ta réponse rapide.

J'ai essayé les 3 solutions, aucune ne fonctionne (la selection que j'effectue est l'ensemble du tableau, sauf la premiere ligne car elle toujours bonne)

Solution 1,2 et 3
Toutes les lignes se retrouvent en A2 (au lieu d'incrémenter de 1 chaque ligne au niveau de la page).

Que faire ?

Merci !

[Philippe Tulliez]

Bonjour,
Evidemment, je n'avais regardé que les deux premières lignes du code et n'avais pas remarqué qu'il y avait des sélections pratiquement partout.
Désolé de cette mauvaise réponse

[Kelexel]

Mais rassurez moi, c'est possible en VBA ??

[Philippe Tulliez]

Bonjour,

Mais rassurez moi, c'est possible en VBA ??

Tout est possible en informatique, c'est une question de temps et d'argent
Tu peux t'inspirer de cet exemple ci-dessous. (J'ai juste testé sur un tableau se trouvant dans une feuille active)

Code :

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

1
2
3
4
5
6
7
8
9
Sub t()
 Dim sht As Worksheet, rng As Range, row As Long
 Set sht = ActiveSheet ' Feuille active
 Set rng = sht.UsedRange ' Plage des cellules remplies de la feuille active (sht)
 For row = 1 To rng.Rows.Count ' parcourt toutes les lignes de la plage
   ' Remplacer sur toute la ligne les valeurs "Agent" & numéro de la ligne de la plage -1 (row-1) par le numéro de la ligne
   rng.Rows(row).Replace what:="Agent" & row - 1, replacement:="Agent" & row
 Next
 End Sub

[Kelexel]

Donc pour l'instant j'en suis à ca :

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
25
26
27
28
 
Sub Macro1()
'
' Macro1 Macro
'Mettre dans la colonne a cote du tableau et sur chaque ligne la fiche concernée
 
'
 
rplct = A1
    k = 0
    L = 0
    PL = Selection.Row
    DL = Selection(Selection.Count).Row
    PC = Selection.Column
    DC = Selection(Selection.Count).Column
    For i = PL To DL
    For j = PC To DC
 
    Sheets("AM").Cells(PL + k, PC + L).Replace What:="A1", Replacement:=Sheets("AM").Cells(Selection.Row + k, 14).Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    L = L + 1
    Next
    L = 0
    k = k + 1
    Next
 
End Sub

Je dois mettre dans une colonne à coté du tableau et sur chaque ligne A2, A3 etc.

J'aimerais inclure dans la macro cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
 
For Cpt = 2 To 15
  With ActiveWorkbook.ActiveSheet
    .Copy After:=Worksheets(Worksheets.Count)
  End With
ActiveSheet.Name = "A" & Cpt
Next Cpt
 
End Sub

Qui me sert à dupliquer des onglets en incrémentant de 1. La ce serait juste pour incrémenter "A1"

Pouvez-vous m'aider à mixer ces deux fonctions s'il vous plait ?

Je vous remercie !