Pinzut77
Messages postés21Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention17 juillet 2006
-
11 juil. 2006 à 11:09
petitjean34
Messages postés1Date d'inscriptionvendredi 24 avril 2009StatutMembreDernière intervention29 avril 2009
-
29 avril 2009 à 15:14
Bonjour, voila une macro qui me réorganise des copier/coller sur une colonne en ligne, je voulais savoir comment rendre cette macro valable pour tout les classeurs (je suis obligé de copier/coller les macro dans mon nouveau projet pour la faire fonctionner).
J'ai pris cette macro pour exemple afin de faciliter l'explication sur les modifications à apporter. Merci pour votre aide
Sub alignement()
Dim compar, verif As String
Dim compteur, colonne, ligne As Integer
ligne = 28
colonne = 15
For compteur = 30 To 1533
copier = Range("C" & compteur) If copier "" Or copier "Télécopie" Or copier = "Téléphone" Or copier = "Mél" Or copier = "Directeur" _ Or copier "Site" Or copier "Directeur délégué départemental" Or copier = "!!!" Then
Cells(ligne, colonne).Value = ""
Else
Cells(ligne, colonne).Value = copier
colonne = colonne + 1
End If
If copier = "!!!" Then
colonne = 15
ligne = ligne + 1
End If
Next compteur
End Sub
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 11 juil. 2006 à 16:04
>Pinzut77: En fait il suffit de partir d'un classeur .Xls Mais tu fais "Enregistrer Sous" Tu change de le Type de fichier (le tout dernier) a savoir Macro Complémentaire Microsoft Excel (*.Xla)
Et Voila qui est fait.
Ensuite tu fais comme je t'ai dit plus haut cela devrait marche.
La seul chose c'est que ton code doit être générique pour être sur de fonctionner avec n'importe quel classeur.
@+, Julien Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>
galopin01
Messages postés133Date d'inscriptionlundi 4 octobre 2004StatutMembreDernière intervention14 octobre 20111 12 juil. 2006 à 14:37
Les macros issus de classeurs enregistrés en xla n'apparaissent jamais (sauf les Functions dans la catégorie Fonctions personnalisées.)
Toutefois même si elles n'apparaissent pas tu peux les utiliser comme si tu les voyais.
Imaginons que dans tes macros complémentaires tu aies un Sub Galopin, si dans Outils / Macros / Macro tu tapes "galopin" le bouton Exécuter va devenir disponible preuve que la macro est bien disponible.
De la même manière si à un objet (bouton ou autre), dans la zone Affecter une macro tu tapes galopin, la macro va s'exécuter.
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Pinzut77
Messages postés21Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention17 juillet 2006 12 juil. 2006 à 21:26
Ok d'accord, je m'en sers en faisant alt + F11 du coup car il faut changer certains paramètres avant l'exécution. Merci à tous pour vos réponses (Julien mes macros servent à faire de l'ordre dans mes tableaux genre dissocier des mots, virer les espaces superflu des truc comme ça...)
Bonne soirée!
petitjean34
Messages postés1Date d'inscriptionvendredi 24 avril 2009StatutMembreDernière intervention29 avril 2009 29 avril 2009 à 15:14
bonjour à vous tous !
même si le sujet est un peu vieux, je préférais répondre ici avant de poster:
effectivement même si le nom de la macro n'apparait pas dans la liste des macros complémentaires, on peut les exécuter en tapant leur nom..
mais est-ce qu'il existe un moyen de les faire apparaitre dans cette fenêtre ?
j'ai une macro a faire exécuter par pas mal d'utilisateurs qui ne s'y connaissent pas trop et ce serait plus pratique...