XL 2013 macros code erreur

arrazki

XLDnaute Junior
Bonjour,

J'ai essayer de créer cette macros mais au moment du recherchev il se passe rien
j'aimerai que la macros me fasse une recherchev dans un fichier qui est dans un dossier sur un onglet nommé paramètre
une recherche dans la colonne d à partir de la colonne la collone b:b
je ne vois pas mon erreur pourquoi il va pas dans le fichier?
pouvez vous m'aider?

merci

Sub mvtest()
'
' Macro2 Macro
'

'
Sheets.Add After:=ActiveSheet
Sheets("base").Select
ActiveWindow.SmallScroll Down:=-9
Columns("A:C").Select
Selection.Copy
Static I As Long ' Une variable statique garde sa valeur à chaque appel
Dim Feuille As Worksheet ' Une référence à la feuille nouvellement créée
I = I + 1 ' L'index est augmenté

Set Feuille = ThisWorkbook.Worksheets.Add ' La référence est posée
Feuille.Name = "Nouvelle feuille " & I ' Le nom d'onglet de la nouvelle feuille est posé.

Range("A1").Select ' selection les colonnes
ActiveSheet.Paste
Sheets("Nouvelle feuille 1").Select 'créer un nouvelle onglet
Application.CutCopyMode = False 'copy colle dans le nouvelle onglet
Columns("D:F").Select
Sheets("base").Select
Columns("D:BJ").Select
Selection.Copy
Sheets("Nouvelle feuille 1").Select
ActiveWindow.SmallScroll Down:=-12
Range("F1").Select
ActiveSheet.Paste

Range("d1").Select 'renomme les colonnes
ActiveCell.FormulaR1C1 = "Compte"
Selection.Font.Bold = True

Range("e1").Select
ActiveCell.FormulaR1C1 = "Rubrique"
Selection.Font.Bold = True

Chemin = "D:\2017\compte\Comptes.xlsx"
formulead = "vlookup(b:b, 'paramètre'!b:h,6,""FAUX"")"

End Sub
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Arrazki, bonjour le forum,

On ne sait plus où on se trouve !... Définit des variables pour les onglets et spécifie le nom de l'onglet chaque fois que tu utilises un objet Range de cet onglet. Évite les Select inutiles qui ne font que ralentir l'exécution du code et sont source de plantage...
Regarde juste le début de ton code avec ces principes :

VB:
Sub mvtest()
Dim I As Byte
Dim B As Worksheet
Dim NF As Worksheet

I = 1
Set B = Worksheets("Base")
Sheets.Add After:=ActiveSheet
Set NF = ActiveSheet
NF.Name = "Nouvelle Feuille " & I

B.Columns("A:C").Copy NF.Range("A1") 'copie les colonnes A à C de l'onglet B dans la cellule A1 de l'onglet NF
End Sub

Aucun Select et pourtant ça marche !... Essaie d'appliquer cela au reste de ton code car je t'avoue que j'en suis bien incapable ne sachant jamais dans quel onglet on se trouve...
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec