J'ai dans un même tableau des données concernant plusieurs régions, indiquées dans une colonne. Comment créer un classeur par région et y recopier les données de cette région ?
Sub CreeClasseurs()
Application.DisplayAlerts = False
Sdbl
For Each c In Range("H2", Range("H65000").End(xlUp))
Range("H2") = c
Sheets.Add
Sheets("Feuil1").[A1:F10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Feuil1").[H1:H2], CopyToRange:=[A1], Unique:=False
ActiveSheet.Copy
ActiveSheet.Name = c
ActiveWorkbook.SaveAs Filename:=c
ActiveWorkbook.Close
ActiveSheet.Delete
Sheets("Feuil1").Select
Next c
End Sub
Sub Sdbl()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range([d2], [d65000].End(xlUp))
temp = txt(c.Value)
If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
Next c
[H2].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.items)
End Sub
Function txt(x)
For i = 1 To Len(x)
If Mid(x, i, 1) >= "A" And Mid(x, i, 1) <= "Z" Then
temp = temp & Mid(x, i, 1)
End If
Next i
txt = temp
End Function
Application.DisplayAlerts = False
Sdbl
For Each c In Range("H2", Range("H65000").End(xlUp))
Range("H2") = c
Sheets.Add
Sheets("Feuil1").[A1:F10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Feuil1").[H1:H2], CopyToRange:=[A1], Unique:=False
ActiveSheet.Copy
ActiveSheet.Name = c
ActiveWorkbook.SaveAs Filename:=c
ActiveWorkbook.Close
ActiveSheet.Delete
Sheets("Feuil1").Select
Next c
End Sub
Sub Sdbl()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range([d2], [d65000].End(xlUp))
temp = txt(c.Value)
If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
Next c
[H2].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.items)
End Sub
Function txt(x)
For i = 1 To Len(x)
If Mid(x, i, 1) >= "A" And Mid(x, i, 1) <= "Z" Then
temp = temp & Mid(x, i, 1)
End If
Next i
txt = temp
End Function
Jacques Boisgontier,
Ajouté ou modifié le 24/02/2008 (N°1968)
Ajouté ou modifié le 24/02/2008 (N°1968)
Quelles sont les fonctionnalités d'excel qui ne sont plus disponibles lorsque le classeur est partégé sur un réseau ?
Les fonctionnalités suivantes ne sont accessibles que si vous annulez le partage du classeur. Vous ne pouvez pas utiliser des dossiers partagés (classeur défini pour permettre à plusieurs utilisateurs d'un réseau d'afficher et d'effectuer des modifications en même temps. Chaque utilisateur qui enregistre le classeur peut voir les modifications apportées par les autres utilisateurs.) sur des serveurs Web.
| Fonctionnalité non disponible | Autres possibilités |
| Création de listes ( ensemble de lignes contenant des données similaires ou une série de lignes que vous définissez de sorte qu'elles fonctionnent comme une feuille de données à l'aide de la commande Créer une liste.) | Aucune |
| Utilisation de données XML, notamment : - Importation, actualisation et exportation de données XML; - Ajout, renommage ou suppression de mappages XML; - Mappage de cellules à des éléments XML; Utilisation du Volet Office Source XML, de la barre d'outils XML ou des commandes XML dans le menu Données | Aucune |
| Insertion ou suppression de blocs de cellules | Vous pouvez insérer des lignes et des colonnes entières. |
| Suppression de feuilles de calcul | Aucune |
| Fusion de cellules ou fractionnement de cellules fusionnées | Aucune |
| Ajout ou modification de mises en forme conditionnelles | Les mises en forme conditionnelles existantes continuent à apparaître lorsque les valeurs des cellules changent, mais vous ne pouvez pas modifier ces mises en forme ni redéfinir les conditions. |
| Ajout ou modification d'une validation de données | Les cellules continuent à être validées lorsque vous entrez de nouvelles valeurs, mais vous ne pouvez pas modifier des paramètres de validation de données existants. |
| Création ou modification de graphiques ou de rapports de graphique croisé dynamique | Vous pouvez afficher des graphiques et des rapports existants. |
| Insertion ou modification d'images ou d'autres objets | Vous pouvez afficher des images et des objets existants. |
| Insertion ou modification de liens hypertexte | Les liens hypertexte existants continuent à fonctionner. |
| Utilisation d'outils de dessin | Vous pouvez afficher des dessins et des graphiques existants. |
| Affectation, modification et suppression de mots de passe | Les mots de passe existants restent en vigueur. |
| Protection et annulation de la protection des feuilles de calcul ou du classeur | La protection existante reste en vigueur. |
| Création, modification ou affichage de scénarios | Aucune |
| Groupement de données ou création d'un plan de données | Vous pouvez continuer d'utiliser des plans existants. |
| Insertion de sous-totaux automatiques | Vous pouvez afficher des sous-totaux existants. |
| Création de tables de données (plage de cellules qui indique les résultats obtenus lorsque différentes valeurs sont remplacées dans une ou plusieurs formules. Il existe deux types de tableaux de données : les tableaux à une valeur d'entrée et les tableaux à deux valeurs d'entrée.) | Vous pouvez afficher des tables de données existantes. |
| Création ou modification de rapports de tableau croisé dynamique | Vous pouvez afficher des rapports existants. |
| Écriture, enregistrement, modification, affichage ou affectation de macros | Vous pouvez exécuter des macros existantes qui n'accèdent pas à des fonctionnalités non disponibles. Vous pouvez enregistrer des opérations de classeur partagé dans une macro stockée dans un autre classeur qui n'est pas partagé. |
| Ajout ou modification de feuilles boîtes de dialogue Microsoft Excel 4 | Aucune |
| Modification ou suppression deformules matricielles (formule matricielle : formule qui effectue plusieurs calculs sur un ou plusieurs ensembles de valeurs et qui renvoie un ou plusieurs résultats. Les formules matricielles sont placées entre accolades { } et sont entrées en appuyant sur Ctrl+Maj+Entrée.) | Les formules matricielles existantes continuent à effectuer correctement des calculs. |
| Utilisation d'une grille de données pour ajouter de nouvelles données | Vous pouvez utiliser une grille de données pour rechercher un enregistrement. |
Microsoft,
Ajouté ou modifié le 30/12/2006 (N°1786)
Ajouté ou modifié le 30/12/2006 (N°1786)
Commer tester l'existence d'un fichier ?
La fonction DIR fait souvent l'affaire. Elle retourne rien si le fichier est
introuvable, sinon elle retourne son nom. Exemple:
if Dir("c:toto.xls")="" then msgbox "le fichier est introuvable!"
introuvable, sinon elle retourne son nom. Exemple:
if Dir("c:toto.xls")="" then msgbox "le fichier est introuvable!"
Laurent Longre, (N°685)
Comment déplacer par VBA un fichier excel ?
Il existe l'instruction Name, qui est bien pratique pour ça :
Sub test()
Name "d:Classeur4.XLS" As "d:AutreRepClasseur4.xls"
End Sub
Permet de déplacer et/ou renommer (pourvu que les chemins source et cible
existent bien).
Sub test()
Name "d:Classeur4.XLS" As "d:AutreRepClasseur4.xls"
End Sub
Permet de déplacer et/ou renommer (pourvu que les chemins source et cible
existent bien).
Frédéric Sigonneau, (N°684)
Comment permettre un accès restreint à certains utilisateurs sur un classeur sachant que
d'autres doivent pouvoir accéder à tout ?
Bruno-bdf nous a concocté une belle solution qui est à
télécharger...
Cette astuce est illustrée dans ce classeur exemple :
bdf-autorisations (téléchargé 8550 fois)
télécharger...
Cette astuce est illustrée dans ce classeur exemple :bdf-autorisations (téléchargé 8550 fois)
Bruno BdF, (N°683)
J'aimerais bien garder une liste des derniers fichiers que j'ai ouverts sur mon PC et pouvoir y
accéder facilement.
Installe cette macro de Patrick Penet : "
récents.xla"
Elle te permet permet d'accéder immédiatement aux 1000 derniers
fichiers que tu as ouvert dans Excel, même si tu les a ouvert par double-clic
dans l'Explorateur de Windows. Les fichiers sont classés par ordre
chronologique,
du plus récent au plus ancien.
A partir d'excel tape Alt-F-C pour lancer la macro et retrouver tes fichiers
perdus !
récents.xla"
Elle te permet permet d'accéder immédiatement aux 1000 derniers
fichiers que tu as ouvert dans Excel, même si tu les a ouvert par double-clic
dans l'Explorateur de Windows. Les fichiers sont classés par ordre
chronologique,
du plus récent au plus ancien.
A partir d'excel tape Alt-F-C pour lancer la macro et retrouver tes fichiers
perdus !
Popi, (N°92)