Modifier toute petite Macro VBA
vieuxray
-
vieuxray -
vieuxray -
Bonsoir a tous , forum bonsoir
Sous Excel VBA 2007
La macro ci-dessous fonctionne bien, elle me sert a effacer dans ma liste l'extension (.Avi) de mes vidéos.
>>> <<< Mais serait t'il possible svp de modifier ou créer une autre Macro SUB afin de pouvoir cette fois ajouter aux fichiers l'extension (.Avi) qui n'existe plus.
Merci a vous pour votre aide, je vous souhaite la bonne soirée ainsi que de bonnes fêtes de fin d'année a tous.
Cordialement Raymond
Sous Excel VBA 2007
La macro ci-dessous fonctionne bien, elle me sert a effacer dans ma liste l'extension (.Avi) de mes vidéos.
>>> <<< Mais serait t'il possible svp de modifier ou créer une autre Macro SUB afin de pouvoir cette fois ajouter aux fichiers l'extension (.Avi) qui n'existe plus.
Merci a vous pour votre aide, je vous souhaite la bonne soirée ainsi que de bonnes fêtes de fin d'année a tous.
Cordialement Raymond
'### EFFACEMENT DE L'EXTENTION DES FICHIERS(.AVI)
Public Sub Listing_Effacement_Avi()
Dim Lg, i, R: Dim objShell As Object, strFileName As Object
Lg = Range("A4000").End(xlUp).Row
For i = 1 To Lg 'Début de ligne
X = Split(Cells(i, 1), ".")
Cells(i, 1) = X(0)
Cells(i, 1).NumberFormat = "@"
Next
End Sub
A voir également:
- Modifier toute petite Macro VBA
- Modifier dns - Guide
- Modifier liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Modifier story facebook - Guide
- Modifier extension fichier - Guide
17 réponses
Re,
Simplement :
Cordialement
Patrice
Simplement :
Public Sub Listing_Restitution_Avi()
Dim Lg As Integer, i As Integer
Lg = Range("A4000").End(xlUp).Row
For i = 1 To Lg 'Début de ligne
Cells(i, 1).Value = Cells(i, 1).Value & ".avi"
Next
End Sub
Cordialement
Patrice
Salut Patrice33740,
Merci pour ta réponse, je viens d'essayer ton code et ca fonctionne très bien et rapide en plus, merci a toi.
Une petite question si tu veux bien:
Je vois dans le code que tu a fait que c'est écrit de différentes couleurs
par exemple: je vois la virgule, point, parenthèse en rouge, A4000 écrit en marron.
Existe t'il un logiciel ou bien un code VBA a intégrer a mon Excel 2007 qui ferait ca, c'est bien plus lisible de cette manière.
Encore merci pour le code modifier, bonne journée a toi.
Cordialement Raymond
Merci pour ta réponse, je viens d'essayer ton code et ca fonctionne très bien et rapide en plus, merci a toi.
Une petite question si tu veux bien:
Je vois dans le code que tu a fait que c'est écrit de différentes couleurs
par exemple: je vois la virgule, point, parenthèse en rouge, A4000 écrit en marron.
Existe t'il un logiciel ou bien un code VBA a intégrer a mon Excel 2007 qui ferait ca, c'est bien plus lisible de cette manière.
Encore merci pour le code modifier, bonne journée a toi.
Cordialement Raymond
Bonjour tout le monde,
logiciel ou bien un code VBA a intégrer
Non, fenetre VBA, Outils, Options, Format de l'editeur
A vous de mettre les couleurs qui vous conviennent
logiciel ou bien un code VBA a intégrer
Non, fenetre VBA, Outils, Options, Format de l'editeur
A vous de mettre les couleurs qui vous conviennent
Salut f894009,
Merci pour la réponse, c'est super ce truc en plus intégré a Excel.
J'ai réussi a faire certaines modifications de couleurs du texte en VBA , sauf pour
les symboles suivants: ( ) - + , = . & "" "" que j'aurai bien voulu en rouge, pas trouver.
Merci pour l'aide apporter, c'est gentil.
Cdlt Raymond
Merci pour la réponse, c'est super ce truc en plus intégré a Excel.
J'ai réussi a faire certaines modifications de couleurs du texte en VBA , sauf pour
les symboles suivants: ( ) - + , = . & "" "" que j'aurai bien voulu en rouge, pas trouver.
Merci pour l'aide apporter, c'est gentil.
Cdlt Raymond
Salut f894009
Merci, effectivement je n'ai pas réussi, mais bon tu a raison, et puis c'est déjà bien.
Sinon je voulais te faire appel a propos d'un code que tu a réaliser pour moi, voir svp le lien de cette discussion, c'est récent.
https://forums.commentcamarche.net/forum/affich-34094592-transfert-de-donnees-feuil1-vers-userform1
Quand je clic pour charger ma colonne (A) des vidéos venant de mon disk (H:\)
Le code que tu m’a fait pour compter le nombre de vidéos par lettre ou par chiffre me fait planter mon programme et ce qui m’engendre une erreur (d’exécution "13" avec incompatibilité de type)
J'ai mis cette ligne en REM pour l'instant et le programme tourne de nouveau a part bien sur le soucis que je viens de citer.
J'ai pas mal chercher et fais des modifications mais hélas je n'ai pas trouver pour l'erreur.
Si tu veux bien svp regarder et si ton temps le permets, je te remercie bien par avance.
Je te souhaite la bonne soirée et merci pour ton aide.
Cdlt Raymond
Merci, effectivement je n'ai pas réussi, mais bon tu a raison, et puis c'est déjà bien.
Sinon je voulais te faire appel a propos d'un code que tu a réaliser pour moi, voir svp le lien de cette discussion, c'est récent.
https://forums.commentcamarche.net/forum/affich-34094592-transfert-de-donnees-feuil1-vers-userform1
Quand je clic pour charger ma colonne (A) des vidéos venant de mon disk (H:\)
Le code que tu m’a fait pour compter le nombre de vidéos par lettre ou par chiffre me fait planter mon programme et ce qui m’engendre une erreur (d’exécution "13" avec incompatibilité de type)
J'ai mis cette ligne en REM pour l'instant et le programme tourne de nouveau a part bien sur le soucis que je viens de citer.
J'ai pas mal chercher et fais des modifications mais hélas je n'ai pas trouver pour l'erreur.
Si tu veux bien svp regarder et si ton temps le permets, je te remercie bien par avance.
Je te souhaite la bonne soirée et merci pour ton aide.
Cdlt Raymond
Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Long
If Not Application.Intersect(Target, Range("A1:A4000")) Is Nothing Then
'>>> >>> 'CallByName UserForm1, "Majour", VbMethod
'*** Ca plante a la ligne ci-dessus avec l'erreur d'exécution "13" et incompatibilité de type
End If
'UserForm1.Show 0
End Sub
Salut f894009,
Merci pour la réponse,
Le lien ci dessous vous permets de récupérer mon fichier.
j'ai mis les explications dans une bulle, le SLIDER sert a choisir les divers options c'est toujours en cours.
Merci pour le coup de main, c'est bien agréable.
Cdlt Raymond
http://www.cjoint.com/c/FLvhsNr524z
Merci pour la réponse,
Le lien ci dessous vous permets de récupérer mon fichier.
j'ai mis les explications dans une bulle, le SLIDER sert a choisir les divers options c'est toujours en cours.
Merci pour le coup de main, c'est bien agréable.
Cdlt Raymond
http://www.cjoint.com/c/FLvhsNr524z
Re
je viens de m'apercevoir que j'ai oublier de répondre a la question ci dessous
désoler du retard.
Vous recuperez tous les fichiers quelque soit l'extension!!!!!!!!!!!!!!!!!!!!!!!!!!!!
alors sur ce disque dur là (H:\) il ni a que des vidéos .avi et absolument rien d'autres comme fichiers
merci cdlt ray
je viens de m'apercevoir que j'ai oublier de répondre a la question ci dessous
désoler du retard.
Vous recuperez tous les fichiers quelque soit l'extension!!!!!!!!!!!!!!!!!!!!!!!!!!!!
alors sur ce disque dur là (H:\) il ni a que des vidéos .avi et absolument rien d'autres comme fichiers
merci cdlt ray
Bonjour,
Je pense que vous pouvez faire la modif de blocage/deblocage evenements excel, je ne botte pas en touche mais c'est vraiment simple
Bloque les evenements excel:
https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.enableevents?redirectedfrom=MSDN
Il faut mettre a false chaque fois que le code modifie la colonne A de la feuille "feuil1"
et mettre a true en fin du code. Prevoir aussi une mise a true sur les traitements d'erreur sinon tout sera bloque
Je pense que vous pouvez faire la modif de blocage/deblocage evenements excel, je ne botte pas en touche mais c'est vraiment simple
Bloque les evenements excel:
https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.enableevents?redirectedfrom=MSDN
Il faut mettre a false chaque fois que le code modifie la colonne A de la feuille "feuil1"
et mettre a true en fin du code. Prevoir aussi une mise a true sur les traitements d'erreur sinon tout sera bloque
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Ai fait les codes manquants du slider avec labels ecrits et differents amenagements a la suite des diffrents changements d'ecriture de la colonne A
https://www.cjoint.com/c/FLxlnOPO7Pf
A vous de voir
Ai fait les codes manquants du slider avec labels ecrits et differents amenagements a la suite des diffrents changements d'ecriture de la colonne A
https://www.cjoint.com/c/FLxlnOPO7Pf
A vous de voir
Salut 894009,
Merci bien pour ta réponse, j'ai consulter le lien proposer et j'ai essayer de mettre en application ton conseil.
Mais ça ne fonctionne pas , j'ai placer les deux codes suivants aux endroits ou l'on doit intervenir sur la feuil1 colonne (A).
Application.EnableEvents = False et Application.EnableEvents = True
Toujours le même soucis, a moins que je n'ai mal placer les codes.
Je ne vois plus quoi faire a mon niveau, n'étant pas chevronner en VBA plus que ça.
Merci pour ton aide, bonne après midi.
Cdlt Raymond
Merci bien pour ta réponse, j'ai consulter le lien proposer et j'ai essayer de mettre en application ton conseil.
Mais ça ne fonctionne pas , j'ai placer les deux codes suivants aux endroits ou l'on doit intervenir sur la feuil1 colonne (A).
Application.EnableEvents = False et Application.EnableEvents = True
Toujours le même soucis, a moins que je n'ai mal placer les codes.
Je ne vois plus quoi faire a mon niveau, n'étant pas chevronner en VBA plus que ça.
Merci pour ton aide, bonne après midi.
Cdlt Raymond
Re, f894009,
Merci beaucoup, ha, je suis bien content, ca marche bien mieux comme çà et plus de plantage du programme, grâce a vous.
Les dieux informatiques sont avec vous.
Comme vous me l'avez fait remarquer et a juste titre pour la Listview1 ça ne fonctionne pas comme je l'avais prévue.
Si bien entendu, vous avez du temps, que pourriez vous me conseillez svp pour que je progresse sur la Listview car sinon je vais bien encore passer plusieurs semaines sur ce coup là.
Voir svp un peu plus haut, j'ai écrit les soucis rencontrer avec la Listview(1)
mais je vous refais un topo si vous le souhaitez.
En tout cas merci pour votre coup de main, c'est fort gentil a vous.
Cdlt Raymond
Merci beaucoup, ha, je suis bien content, ca marche bien mieux comme çà et plus de plantage du programme, grâce a vous.
Les dieux informatiques sont avec vous.
Comme vous me l'avez fait remarquer et a juste titre pour la Listview1 ça ne fonctionne pas comme je l'avais prévue.
Si bien entendu, vous avez du temps, que pourriez vous me conseillez svp pour que je progresse sur la Listview car sinon je vais bien encore passer plusieurs semaines sur ce coup là.
Voir svp un peu plus haut, j'ai écrit les soucis rencontrer avec la Listview(1)
mais je vous refais un topo si vous le souhaitez.
En tout cas merci pour votre coup de main, c'est fort gentil a vous.
Cdlt Raymond
Salut f894009,
Merci bien pour le retour du fichier, et bien rien a dire, si merci.
J'ai fait quelques recherches, entre temps pour ma Listview(1) mais je n'ai pas trouver d'autres codes concernant le sujet qui irai dans mon sens.
J'en déduis que je dois très certainement faire une mauvaise utilisation des codes existants pour bien programmer la Listview et configurer a mon besoin.
Je retourne a la pèche de bonnes informations.
Voulez que je vous fasse un topo de mon besoin pour la Listview ???
Merci beaucoup, une bonne après midi a vous.
A plus tard, Raymond
Merci bien pour le retour du fichier, et bien rien a dire, si merci.
J'ai fait quelques recherches, entre temps pour ma Listview(1) mais je n'ai pas trouver d'autres codes concernant le sujet qui irai dans mon sens.
J'en déduis que je dois très certainement faire une mauvaise utilisation des codes existants pour bien programmer la Listview et configurer a mon besoin.
Je retourne a la pèche de bonnes informations.
Voulez que je vous fasse un topo de mon besoin pour la Listview ???
Merci beaucoup, une bonne après midi a vous.
A plus tard, Raymond
Re Salut,
Alors pour la Listview(1)
Une fois la listview(1) chargée.
La première ligne est grisée et sélectionner d'office, je n'ai pas besoin que cette ligne soit griser.
Je souhaiterai toute ma liste dès la première ligne et non grisée.
Pas de multi-sélection des lignes (ou film), ca ne me sera pas utile.
Juste cochée dans la checkbox qui corresponds a la ligne que je souhaite sélectionner.
Ce qui donne sur un double clic, checkbox cochée , ligne en bleu.
Donc sélection de cette ligne (ou film).
Puis ouverture du lecteur (Windows média player) pour visionner le film sélectionner.
En fait juste une sélection a la fois.
Voila pour le topo, si besoin pas de soucis.
Merci pour votre aide.
Cdlt Raymond
Alors pour la Listview(1)
Une fois la listview(1) chargée.
La première ligne est grisée et sélectionner d'office, je n'ai pas besoin que cette ligne soit griser.
Je souhaiterai toute ma liste dès la première ligne et non grisée.
Pas de multi-sélection des lignes (ou film), ca ne me sera pas utile.
Juste cochée dans la checkbox qui corresponds a la ligne que je souhaite sélectionner.
Ce qui donne sur un double clic, checkbox cochée , ligne en bleu.
Donc sélection de cette ligne (ou film).
Puis ouverture du lecteur (Windows média player) pour visionner le film sélectionner.
En fait juste une sélection a la fois.
Voila pour le topo, si besoin pas de soucis.
Merci pour votre aide.
Cdlt Raymond
Re,
Fichier modifie, j'ai enleve les checkboxs, car il faut du traitement pour n'en conserver que la derniere cochee (ce n'est pas des boutons options). Maintenant si vous y tenez vraiment, je regarderai
https://www.cjoint.com/c/FLxpmcBWbyf
Fichier modifie, j'ai enleve les checkboxs, car il faut du traitement pour n'en conserver que la derniere cochee (ce n'est pas des boutons options). Maintenant si vous y tenez vraiment, je regarderai
https://www.cjoint.com/c/FLxpmcBWbyf
Re
Merci pour les modifications, ca fonctionne bien.
Avec les checkboxs d'après les quelques recherches déjà effectuer c'est possible mais de plusieurs manières d'après ce que j'ai lu.
(0) Avec les checkboxs affichés
(1) En multi sélections de lignes, c'est a dire que chaque lignes sélectionner reste surlignés
(2) En multi sélections de lignes avec peut importe ce que l'on clic mais la dernière ligne cliquer reste afficher, donc une seule a la fois.
(3) Possible aussi avec un double clic sur la checkbox qui se trouve cochée et la ligne correspondante sélectionner se trouve en bleue et lecture par le Windows multi média.
Ce troisième cas serai mon souhait svp
Mais reste a savoir que ca se transforme pas en une usine a gaz .
Je peux faire de nouvelles recherches sur le sujet si vous voulez.
Merci pour le boulot effectuez
Cdlt Raymond
Merci pour les modifications, ca fonctionne bien.
Avec les checkboxs d'après les quelques recherches déjà effectuer c'est possible mais de plusieurs manières d'après ce que j'ai lu.
(0) Avec les checkboxs affichés
(1) En multi sélections de lignes, c'est a dire que chaque lignes sélectionner reste surlignés
(2) En multi sélections de lignes avec peut importe ce que l'on clic mais la dernière ligne cliquer reste afficher, donc une seule a la fois.
(3) Possible aussi avec un double clic sur la checkbox qui se trouve cochée et la ligne correspondante sélectionner se trouve en bleue et lecture par le Windows multi média.
Ce troisième cas serai mon souhait svp
Mais reste a savoir que ca se transforme pas en une usine a gaz .
Je peux faire de nouvelles recherches sur le sujet si vous voulez.
Merci pour le boulot effectuez
Cdlt Raymond
Re
Oui effectivement je n'ai rien trouver de plus et je suis de votre avis mais alors les checkboxs ne serve pas a grand chose ???
sinon ce lien trouver tout a l'heure
https://www.excel-downloads.com/threads/r%C3%A9solu-s%C3%A9lectionner-la-ligne-dune-listwiew-qui-est-coch%C3%A9e-par-checkbox.190832/
pas tout compris
sinon je regarde demain si je peux trouver un truc similaire a la listview
ou si vous avez une idée aussi je suis preneur.
Merci pour l'aide une bonne soirée a vous et un bon W-end
Bien cordialement
Oui effectivement je n'ai rien trouver de plus et je suis de votre avis mais alors les checkboxs ne serve pas a grand chose ???
sinon ce lien trouver tout a l'heure
https://www.excel-downloads.com/threads/r%C3%A9solu-s%C3%A9lectionner-la-ligne-dune-listwiew-qui-est-coch%C3%A9e-par-checkbox.190832/
pas tout compris
sinon je regarde demain si je peux trouver un truc similaire a la listview
ou si vous avez une idée aussi je suis preneur.
Merci pour l'aide une bonne soirée a vous et un bon W-end
Bien cordialement
Bonjour,
Pourquoi un double clic oui baht en fait l'habitude mais c'est vrai ce que vous me dites puisque le but était
de cliquer dans le checkbox pour sélectionner la ligne et lancer la vidéo et que la ligne reste sélectionner jusqu'à la prochaine sélection.
Si on peut faire comme ça, alors je suis ok.
Merci et la bonne journée a vous.
Cdlt Raymond
Pourquoi un double clic oui baht en fait l'habitude mais c'est vrai ce que vous me dites puisque le but était
de cliquer dans le checkbox pour sélectionner la ligne et lancer la vidéo et que la ligne reste sélectionner jusqu'à la prochaine sélection.
Si on peut faire comme ça, alors je suis ok.
Merci et la bonne journée a vous.
Cdlt Raymond
Re salut f894009
Suite a mon message de ce matin , j'ai fait des recherches et je n'ai pas trouver grand chose que je sache exploiter.
Ca m'a l'air un peu galère cette affaire.
Comme le but est de cliquer dans le checkbox pour sélectionner la ligne et lancer la vidéo et que la ligne reste sélectionner jusqu'à la prochaine sélection.
Aussi j'ai bien envie de revenir a une ListBox et de laisser tomber pour la Listview.
Avec la ListBox ca fonctionne pour l'avoir déjà vu.
Personnellement ca me gène pas, quand penses tu svp
Merci pour ton aide
A plus tard
Cdlt Raymond
Suite a mon message de ce matin , j'ai fait des recherches et je n'ai pas trouver grand chose que je sache exploiter.
Ca m'a l'air un peu galère cette affaire.
Comme le but est de cliquer dans le checkbox pour sélectionner la ligne et lancer la vidéo et que la ligne reste sélectionner jusqu'à la prochaine sélection.
Aussi j'ai bien envie de revenir a une ListBox et de laisser tomber pour la Listview.
Avec la ListBox ca fonctionne pour l'avoir déjà vu.
Personnellement ca me gène pas, quand penses tu svp
Merci pour ton aide
A plus tard
Cdlt Raymond
Bonjour, f894009
Après les festivités, hop au boulot, et vous Bien réveillonner ??
Je suis Ok pour la ListBox a la place de la Listview.
Vous me dites une Listbox et un bouton option pourquoi le bouton option svp
sinon on y va comme ca.
Merci a vous et bonne journée de noël
Cdlt Raymond
Après les festivités, hop au boulot, et vous Bien réveillonner ??
Je suis Ok pour la ListBox a la place de la Listview.
Vous me dites une Listbox et un bouton option pourquoi le bouton option svp
sinon on y va comme ca.
Merci a vous et bonne journée de noël
Cdlt Raymond
Salut f894009,
Je ne sais pas si c'est pour faire plus smart, je me moque si plus ceci ou cela
je me sers de ce qui existe.
sinon ca sers a rien de créer quelque chose dont on se sert pas.
Ou alors comme je disais je n'ai pas compris quelque chose.
Cdlt Raymond
Je ne sais pas si c'est pour faire plus smart, je me moque si plus ceci ou cela
je me sers de ce qui existe.
sinon ca sers a rien de créer quelque chose dont on se sert pas.
Ou alors comme je disais je n'ai pas compris quelque chose.
Cdlt Raymond
Re Salut f894009,
Une petite question svp
Peut t'on mettre un UserForm(2) dans un autre UserForm(1) le mien actuel.
Si oui l'UserForm(2) contiendra uniquement le Windows Média Player
Je viens de faire des essais mais je n'ai pas réussi.
Merci pour ton aide.
Cdlt Raymond
Une petite question svp
Peut t'on mettre un UserForm(2) dans un autre UserForm(1) le mien actuel.
Si oui l'UserForm(2) contiendra uniquement le Windows Média Player
Je viens de faire des essais mais je n'ai pas réussi.
Merci pour ton aide.
Cdlt Raymond
Salut f894009,
Merci pour la réponse, je me doutais un peu et il ne me semble pas avoir vu ca passer au court de mes lectures sur VBA.
Merci et bonne journée, je retourne sur mon fichier.
Cdlt Raymond
Merci pour la réponse, je me doutais un peu et il ne me semble pas avoir vu ca passer au court de mes lectures sur VBA.
Merci et bonne journée, je retourne sur mon fichier.
Cdlt Raymond
Re,
Affichage plein ecran de Windows Media Player en lecture film, votre fichier modifie:
https://www.cjoint.com/c/FLBjVgOVGsf
Affichage plein ecran de Windows Media Player en lecture film, votre fichier modifie:
https://www.cjoint.com/c/FLBjVgOVGsf