Modifier toute petite Macro VBA

Fermé
vieuxray - 19 déc. 2016 à 19:43
 vieuxray - 27 déc. 2016 à 11:41
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


'### 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:

17 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 19/12/2016 à 21:59
Re,

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
2
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
1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 déc. 2016 à 12:56
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
1
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > vieuxray
20 déc. 2016 à 16:20
Re,
Pas possible, y a quand meme quelques limites
0
vieuxray > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
20 déc. 2016 à 17:04
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


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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > vieuxray
21 déc. 2016 à 07:52
Bonjour,

Oui, mais je n'ai plus votre fichier et l'erreur est dans le code de l'UF
0
vieuxray > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
21 déc. 2016 à 08:24
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
0
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
1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 22/12/2016 à 11:37
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 déc. 2016 à 12:13
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
1
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 22/12/2016 à 15:28
Re,

Alors, je regarde la chose

A+


Suite:
Fichier modifie
https://www.cjoint.com/c/FLwoAN7RKUf
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
22 déc. 2016 à 16:42
Re,

Je regarde la ou les choses
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 déc. 2016 à 13:49
Re,

Voulez que je vous fasse un topo de mon besoin pour la Listview ???
Car, j'ai un peu zapper la chose
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 déc. 2016 à 14:51
Re,

Ok
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
Modifié par f894009 le 23/12/2016 à 16:13
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
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 déc. 2016 à 18:43
Re,

3) pas possible le double clic sur la case a cocher, c'est sur la ligne
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 déc. 2016 à 20:20
Re
Pourquoi faire un double clic à partir du moment où une ligne est sélectionnée ?
0
vieuxray > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
24 déc. 2016 à 06:11
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
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 déc. 2016 à 19:38
Bonjour
En effet, une listbox avec bouton option irait parfaitement, tout en étant plus simple à programmer
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
25 déc. 2016 à 08:57
Bonjour
Bouton option, et vous pourquoi les cases à cocher?
0
vieuxray > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
25 déc. 2016 à 09:50
Re

Je pense que les cases a cocher sont la pour sélectionner une ligne voir plusieurs et quand une case est cocher signifie que c'est ligne qui est cocher.

sinon je ne vois pas l'utilité de les avoir créer

j'ai peut être tout faux ???

Cdlt Raymond
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > vieuxray
26 déc. 2016 à 12:50
Bonjour,
C'est pour faire plus Smart
0
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
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 27/12/2016 à 08:34
Bonjour
Pas faisable en VBA Excel, il n'y a pas de userform parents-enfants ou comme en Access des sous-formulaires que vous pouvez inclure dans le formulaire
0
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
27 déc. 2016 à 10:47
Re,

Affichage plein ecran de Windows Media Player en lecture film, votre fichier modifie:

https://www.cjoint.com/c/FLBjVgOVGsf
0
Re salut

Merci pour le fichier,

c'est bien aussi en plein écran surtout que j'ai un 22"

je vais regarder le code c'est bon a savoir

Encore merci et bonne journée a vous

Cdlt Raymond
0