creation de plusieurs fichiers en VBA Fermé

Question

Bonjour,

Je débute en VBA et franchement je trouve ça super mais un peu chaud quand même
J'ai lu certains messages et apparemment il y a pas mal de gens prêts a rendre service et j'apprécierais vraiment de l'aide

Voila: je voudrais créer des nouveaux fichier a partir d'un modèle (fichier A). 
J'ai une colonne (E) du fichier A qui contient des données mais je ne veux garder que celles qui sont numeriques
Si c'est le cas je dois copier chaque valeur dans une cellule du nouveau fichier (fichier B) et la cellule offset (0,2) (donc la colonne C par rapport a la E du fichier A) sera enregistrée comme nom de la feuille
Chaque fichier serait enregistré avec le même nom mais avec un numéro en plus (ex: fichier b1, fichier b2,etc...)

Je doit créer autant de fichiers que de valeur numérique selectionnées par la boucle de la colonne E en question

Je peut être amené a ajouter des lignes donc je pense que je dois utiliser des coordonnées absolues.

en résumé:

- ajouter une feuille sur la base à partir du modèle. Ajouter une feuille contenant la ligne à utiliser. 
- Utiliser des vlookup pour remplir les champs.
La macro fera ensuite une boucle à travers tous les numéros pour ensuite copier, copier coller en valeur et sauvegarder la feuille modèle sous un nouveau fichier.

9apeutparaitre simple pour certains mais franchement je galère!

Merci de votre aide

ShaBoo · Answer

Bonsoir,

Avec ceci, tu devrais peut etre t'en sortir :

SpecialCells, méthode
Voir aussiS'applique àExempleDétailsCette méthode renvoie un objet Range qui représente toutes les cellules correspondant au type et à la valeur spécifiés. Objet Range.

expression.SpecialCells(Type, Value)
expression      Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.

Type     Argument XlCellType obligatoire. Cellules à inclure.

XlCellType peut être l'une de ces constantes XlCellType. 
xlCellTypeAllFormatConditions.  Cellules de n'importe quel format 
xlCellTypeAllValidation. Cellules présentant des critères de validation 
xlCellTypeBlanks. Cellules vides 
xlCellTypeComments. Cellules contenant des commentaires 
xlCellTypeConstants. Cellules contenant des constantes 
xlCellTypeFormulas. Cellules contenant des formules 
xlCellTypeLastCell. Dernière cellule dans la plage utilisée 
xlCellTypeSameFormatConditions.  Cellules de même format 
xlCellTypeSameValidation.  Cellules présentant les mêmes critères de validation 
xlCellTypeVisible. Toutes les cellules visibles 

Value     Argument de type Variant facultatif. Si Type a la valeur xlCellTypeConstants ou xlCellTypeFormulas, cet argument est utilisé pour déterminer quels types de cellules inclure dans le résultat. Ces valeurs peuvent être ajoutées ensemble pour renvoyer plusieurs types. Par défaut, toutes les constantes ou formules sont sélectionnées, quel que soit leur type. Il peut s'agir de l'une des constantes XlSpecialCellsValue suivantes :

XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue. 
xlErrors 
xlLogical 
xlNumbers 
xlTextValues
 

Exemple
Cet exemple montre comment sélectionner la dernière cellule de la plage utilisée dans la feuille Sheet1.

Worksheets("Sheet1").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate



+

IsNumeric, fonction
      

Renvoie une valeur de type Boolean qui indique si une expression peut être interprétée comme un nombre.

Syntaxe

IsNumeric(expression)

L'argument expression est une valeur de type Variant contenant une expression numérique ou une expression de chaîne.

Remarques

La fonction IsNumeric renvoie la valeur True si l'ensemble de l'expression est reconnue comme étant un nombre ; sinon, elle renvoie la valeur False.

La fonction IsNumeric renvoie la valeur False si l'argument expression est une expression de date.

Creation de plusieurs fichiers en VBA

1 réponse