Modifier toute petite Macro VBA

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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