Discussion :

[ilouDev]

Bonjour,

toute nouvelle sur le forum, je me permets de vous écrire car je n'arrive pas à me démêler de cette erreur.

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
Sub Converter()
'
' Converter Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],converter,2,FALSE)"
 
    Columns("F:G").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
    Nb_Lignes = Range("J65636").End(xlUp).Row
 
    Selection.AutoFill Destination:=Range("K1:K" & Nb_Lignes).FillDown, Type:=xlFillDefault
 
End Sub

Vous avez une idée de ce qui plante ? C'est sur la dernière ligne (ligne 23) que ça me génère l'erreur.

"Erreur d'execution 1004 : La méthode Autofill de la classe Range a échoué"

Merci pour votre aide,

Amélie

[unparia]

Bonjour
Tu lis ceci dans l'aide VBA :

Destination Obligatoire Range Les cellules à remplir. La destination doit inclure la plage source

ce qui n'est pas le cas dans ton :

Code :

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

1
2
3
Columns("F:G").Select
   '.....
    Selection.AutoFill Destination:=Range("K1:K" & Nb_Lignes).FillDown, Type:=xlFillDefault

[ilouDev]

Bien vu, mais visiblement pas suffisant :
j'ai rajouté ça du coup :

Code :

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

1
2
3
    
    Range("K1").Select
    Selection.AutoFill Destination:=Range("K1:K" & Nb_Lignes).FillDown, Type:=xlFillDefault

j'ai essayé également en sélectionnant la colonne, mais ça ne fonctionne pas non plus.
Le pire c'est que ça marche, la fonction fonctionne mais génère un message disgracieux ;-)

Merci pour ton aide !!!

[unparia]

J'ignore de quel "chapeau" tu sors la propriété FillDown dont tu dotes la destination

[ilouDev]

C'est proposé par l'interface, c'est dans pleins d'exemple que j'ai pu trouver, ça semblait bien répondre à ma problématique et ça a l'air de fonctionner sauf cette erreur évidement.

[unparia]

Enlève-moi s'il te plait ce .filldown