Discussion :

[joan_27]

Bonjour à tous,


J'ai la macro suivante :

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
Sub Formatage_GTIE()

'Déclaratio des variables
Dim DernLigne, i, nCol, nRow As Long
Dim sNom As String
Dim wb As Workbook

Set wb = Workbooks("Reporting.xlsm")

DernLigne = wb.Sheets("COMBI_GTIE").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To DernLigne
    wb.Sheets("COMBI_GTIE").Activate
    Range("A" & i).Select
    Range(Selection, Selection.End(xlToRight)).Select
    sNom = Range("A" & i).Value
    nCol = Range("A1").Column
    nRow = Range("A1").Row + 1
   
    ActiveWorkbook.Names.Add Name:=(Replace(sNom, " ", "_")), RefersToR1C1:= _
    "=COMBI_SGT!R[" & nRow & "]C[" & nCol & "]:R[" & DernLigne & "]C[" & nRow & "]"
    ActiveWorkbook.Names(Replace(sNom, " ", "_")).Comment = ""
    sNom = ""

Next i

End Sub

Le but de la macro est définir des noms pour des plages successivement sélectionnées.
A la base j'ai fait un enregistrement de macro que j'ai réarranger à ma manière.
Ma macro bloque au niveau de la ligne de code en rouge. Le message d'erreur me dit qu'il a une erreur d'exécution 1004 (erreur dans la formule) et
je sais pas du tout comment corriger. Je ne vois pas où se trouve l'erreur d'ailleurs.

Quelqu'un pourrait il m'aider ?

Merci par avance,

[bpascal123]

Bonjour,

Ecrire des formules Excel dans VBA n'est pas toujours simple. Je ne sais pas si c'est toujours le cas, mais il me semble que les formules doivent être en anglais. L'IDE VBA est toujours au format ASCII et en anglais.

Voici un exemple d'une formule que j'ai utilisée récemment:

Code :

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

1
2
 
"=DATE(20&RIGHT(RC[-1],2),LEFT(RC[-1],2),DAY(1))"

"20" représente les deux premiers chiffres de l'années et bien que ce soit du texte, il ne doit pas y avoir des guillemets...

Je ne sais pas si mon exemple sera utile mais c'est ce qui ressemble à votre formule dans votre macro

"=COMBI_SGT!R[" & nRow & "]C[" & nCol & "]:R[" & DernLigne & "]C[" & nRow & "]"

Pour les Lignes et les colonnes, pour ça je suis sûre qu'il faut utilisez la notation R pour Row et C pour Column, peut-être que c'est plus simple que d'utiliser des variables pour des adresses de cellules.

Cordialement

Pascal

[letienne]

Bonjour,

à priori la ligne en rouge ne sert à rien, elle peut être supprimé, sauf si tu souhaites mettre un commentaire dans le nom de la plage. Et ActiveWorkbook peut être remplacé par wb.

Code :

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

1
2
3
4
 
wb.Sheets("COMBI_GTIE").Activate
    Range("A" & i).Select
    Range(Selection, Selection.End(xlToRight)).Select

à quoi servent ces lignes ? Cette selection n'a pas l'air d'être utilisée par ailleurs. En plus dans une boucle c'est lourd.

Code :

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

1
2
3
 
 nCol = Range("A1").Column 
 nRow = Range("A1").Row + 1

Sur ces lignes je pense qu'il y a une erreur, sinon autant remplacer nCol par 1 et nRow par 2.

Enfin dernière chose, les paramètres sont pris sur la feuille "COMBI_GTIE" et la plage définie sur "COMBI_SGT", est-ce normal ?

[joan_27]

Bonjour bPascal123 et letienne,

Merci pour vos retours. ils m'ont bien aidé.
alors "COMBI_SGT" était bien une erreur, je voulais écrire "COMBI_GTIE"

J'ai fait évoluer le code comme ceci :

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
Option Explicit
Sub Formatage_GTIE()
 
'Déclaratio des variables
Dim DernLigne, DernCol, i, nCol, nRow As Long
Dim sNom As String
Dim wb As Workbook
 
Set wb = Workbooks("Reporting.xlsm")
 
DernLigne = wb.Sheets("COMBI_GTIE").Range("A" & Rows.Count).End(xlUp).Row
 
For i = 2 To DernLigne
    wb.Sheets("COMBI_GTIE").Activate
    Range("B" & i).Select
 
    Range(Selection, Selection.End(xlToRight)).Select
    nCol = Selection.Columns.Count + 1
 
    sNom = Range("A" & i).Value
 
    wb.Names.Add Name:=(Replace("P_" & sNom, " ", "_")), RefersToR1C1:= _
    "=COMBI_GTIE!R" & i & "C" & 2 & ":R" & i & "C" & nCol & ""
    sNom = ""
 
Next i
 
End Sub

Et il fonctionne maintenant.
J'utilise nCol et nRow parce que je voulais faire bouger la plage à sélectionner ...

le bout de code suivant :

Code :

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

1
2
Range(Selection, Selection.End(xlToRight)).Select
    nCol = Selection.Columns.Count + 1

devait me servir à récupérer le numero de la derniere colonne non vide de la plage, je ne l'avais effectivement pas bien utilisé.

Et

Code :

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

1
2
wb.Sheets("COMBI_GTIE").Activate
    Range("B" & i).Select

parce que quand je fais ceci :

Code :

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

wb.Sheets("COMBI_GTIE").Range("B" & i).Select

j'ai une erreur

je marque résolue
merci encore

[mercatog]

Pourquoi tu veux sélectionner les cellules Bi?

Tu n'as pas besoin

[patricktoulon]

Bonsoir
pourrais tu m'expliquer a quoi sert ta sélection ?????????????

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
Sub Formatage_GTIE()

'Déclaratio des variables
Dim DernLigne, i, nCol, nRow As Long
Dim sNom As String
Dim wb As Workbook

Set wb = Workbooks("Reporting.xlsm")

DernLigne = wb.Sheets("COMBI_GTIE").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To DernLigne
    wb.Sheets("COMBI_GTIE").Activate
    Range("A" & i).Select ici et en dessous 
    Range(Selection, Selection.End(xlToRight)).Select
    sNom = Range("A" & i).Value
    nCol = Range("A1").Column' ici a quoi te sert de déterminer par le range puisque visiblement c'est en dur A1.column fera toujours 1!!!!!!!
    nRow = Range("A1").Row + 1
   
    ActiveWorkbook.Names.Add Name:=(Replace(sNom, " ", "_")), RefersToR1C1:= _
    "=COMBI_SGT!R[" & nRow & "]C[" & nCol & "]:R[" & DernLigne & "]C[" & nRow & "]"
    ActiveWorkbook.Names(Replace(sNom, " ", "_")).Comment = ""
    sNom = ""

Next i

End Sub

et puis pourquoi sélectionner dans une boucle


je te soupçonne de t'être emmêler les pinceaux

c'est tellement bizarre que j'en arrive a me demander ce que tu veux faire vraiment ???????car ca n'a ni queue ni tète