Erreur : "méthode Autofill......."
Bonjour,
J'ai 2 procédures identiques (copier/coller).
La première fonctionne, l'autre pas : message d'erreur : "la méthode Autofill de la classe Range a échoué.
La seule différence entre les 2 : la première contient du texte (Fonction) ; la seconde des numéros (Téléphone)
Public Sub FONCTION()
'Macro6 Ajout Fonction
Columns("V:V").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Tableau3[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "FONCTION"
Range("V2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP([CONCATENATION],Tableau2,8,0)"
Selection.AutoFill Destination:=Range("Tableau3[FONCTION]")
Range("Tableau3[FONCTION]").Select
End Sub
Public Sub TELEPHONE()
'Macro7 Ajout TELEPHONE
Columns("W:W").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Tableau3[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "TELEPHONE"
Range("V2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP([CONCATENATION],Tableau2,9,0
Selection.AutoFill Destination:=Range("Tableau3[TELEPHONE]")
Range("Tableau3[TELEPHONE]").Select
End Sub
Qu'est ce qui ne fonctionne pas ?
Merci de votre aide,
Bonjour,
Pour commencer, revoie la ligne :
ActiveCell.FormulaR1C1 = "=VLOOKUP([CONCATENATION],Tableau2,9,0Bonjour Jean Eric,
Merci pour ce premier retour.
J'ai procédé en "enregistrant une macro" et non en l'écrivant moi même (j'en suis bien incapable au stade de mes connaissances en VBA...).
Il y a en fait 4 macros identiques , chacune ajoute une colonne : CIVILITE - NOM - PRENOM - TELEPHONE (il y en aura une de plus : courriel). Les 3 premières fonctionnent, pas la quatrième...
Public Sub CIVILITE()
'Macro3 Ajout CIVILITE
Columns("S:S").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Tableau3[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "CIVILITE"
Range("S2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP([CONCATENATION],Tableau2,5,0)"
Selection.AutoFill Destination:=Range("Tableau3[CIVILITE]")
Range("Tableau3[CIVILITE]").Select
End Sub
Public Sub NOM()
'Macro4 Ajout NOM
Columns("T:T").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Tableau3[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "NOM"
Range("T2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP([CONCATENATION],Tableau2,6,0)"
Selection.AutoFill Destination:=Range("Tableau3[NOM]")
Range("Tableau3[NOM]").Select
End Sub
Public Sub PRENOM()
'Macro5 Ajout PRENOM
Columns("U:U").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Tableau3[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "PRENOM"
Range("U2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP([CONCATENATION],Tableau2,7,0)"
Selection.AutoFill Destination:=Range("Tableau3[PRENOM]")
Range("Tableau3[PRENOM]").Select
End Sub
Public Sub FONCTION()
'Macro6 Ajout Fonction
Columns("V:V").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Tableau3[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "FONCTION"
Range("V2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP([CONCATENATION],Tableau2,8,0)"
Selection.AutoFill Destination:=Range("Tableau3[FONCTION]")
Range("Tableau3[FONCTION]").Select
End Sub
Public Sub TELEPHONE()
'Macro7 Ajout TELEPHONE
Columns("W:W").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Tableau3[[#Headers],[Colonne1]]").Select
ActiveCell.FormulaR1C1 = "TELEPHONE"
Range("V2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP([CONCATENATION],Tableau2,9,0)"
Selection.AutoFill Destination:=Range("Tableau3[TELEPHONE]")
Range("Tableau3[TELEPHONE]").Select
End Sub
J'ai cherché à quoi pouvait correspondre et servir "ActivCell.FormulaR1C1".. mais j'avoue que je ne comprends pas...
Peux tu m'aider davantage ?
Merci
Re,
J'essaie d'avancer... Tenant compte de la remarque de Jean Eric, j'ai modifié les macros :
Public Sub TELEPHONE()
'Macro7 Ajout TELEPHONE
Columns("W:W").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Tableau3[[#Headers],[Colonne1]]").Select
ActiveCell = "TELEPHONE"
Range("W2").Select
ActiveCell = "=VLOOKUP([CONCATENATION],Tableau2,9,0)"
Selection.AutoFill Destination:=Range("Tableau3[TELEPHONE]")
Range("Tableau3[TELEPHONE]").Select
End Sub
Maintenant, la colonne se crée et la première ligne s'affiche... puis j'ai toujours le même message d'erreur..
Merci de votre aide....
Re,
Joins un classeur anonymisé si nécessaire.
Cdlt.
Re,
Voici. Il faut regarder sur le second onglet...
Mais ! En préparant ce fichier allégé.. la macro en question fonctionne !! J'en veux toujours au format de cellule téléphone de l'onglet 1
Merci de ton aide.
Re,
Où trouve t'on la colonne CONCATENATION dans Tableau3 ?
Sinon, dans la mesure ou tu travailles avec un tableau structuré, il n'est pas utile de recopier les formules, c'est normalement automatique.
A te relire.
Cdlt.
Re,
C'est la macro 2 du module "Clients_Interlocuteurs"
Je te rejoins le fichier (je crois qu'il y a une erreur dans cette macro... ).
J'ai essayé de "nettoyer" la colonne "Téléphone" de l'onglet 1 de mon vrai fichier et ai relancé la macro.. mais toujours la même erreur....
Merci
Grand merci à toi Jean Eric
Par contre là... je suis tout à fait incapable de décrypter cela.. je comprends bien les "grandes lignes".. mais le reste c'est du charabia pour moi pour l'instant..
Sur ton fichier, les colonnes qui s'ajoutent ne semblent pas retrouver les valeurs de l'onglet 1 (#NOM?)...
Mais je pense avoir trouvé une réponse à mon problème : en fait sur le second onglet, il y a 2 colonnes avec le même intitulé. J'ai modifié l'une des 2 (TELEPHONE_CONTACT)... et cela semble fonctionner !!
Je fais encore quelques essais et te confirme cela.
Merci encore pour le temps que tu y passes..
Belle fin de journée