Contenu récent par charente

Merci sylvanu un bonne exemple, mais qui plante facilement (debordement), et qui ne connait pas toutes les villes de France. a approfondir

bonjour Je cherche a calculer la distance entre 2 villes en france avec Excel 2007. j'ai trouvé un tuto sur le net Sub Test() Sheets("Feuil2").Cells.Clear Depart = Sheets("Feuil1").Range("B1") Arrivee = Sheets("Feuil1").Range("B2") With...

Re : save plage de cellule vers fichier.txt(RESOLU par MJ13) bonsoir Staple1600 je ne comprend pas ta démarche, tu aurais préferé que je dise je regarde tout cela , a la place de tout ca dans ma démarche il n'y a pas de mèpris pour les réponse que j'ai recus désolé d'avoir, a tes yeux...

Re : save plage de cellule vers fichier.txt bonsoir je vient de tester la solution de MJ13 qui me convient très bien , simple, efficace dans mon programme j'ai inserer: ' fin = variable de la derniere cellule vide de ma colonne 'nomsave = chemin de destination Close Open nomsave &...

Re : save plage de cellule vers fichier.txt bonjour a tous désolé de ne pas vous avoir tenu au courant de la suite , mais j'etais de mariage tout le week-end je regarde tout ca et vous tient au courant merci a bientot

Re : save plage de cellule vers fichier.txt effectivement fin contient la derniere ligne (579) si j'insere ta macro sans le sub et end sub j'ai le meme probleme ??

Re : save plage de cellule vers fichier.txt pierrejean effectivement j'ai adapter ta macro nomsave est deja defini changer txt par KML range("G1:G" & fin) ' fin est la derniere cellule du fichier Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(ThisWorkbook.Path &...

Re : save plage de cellule vers fichier.txt merci pierre-jean j'ai testé ta solution mais LBound(maplage, erreur (tableau attendu) encore merci A+

bonjour a tous. je viens vers vous pour un probleme d'enregistrement d'une plage de données dans un format txt (kml pour etre plus precis) mon probleme nomsave et une variable qui reprend le nom du fichier Dim maplage As Range Set maplage = Range("G1:G579") Open nomsave & ".kml"...

Bonjour à tous et a toutes Question bete Mon projet arrivant a son terme, je voudrais savoir quel précaution prendre pour le rendre transportable d’un pc a un autre (taille écran, version Excel, windows x, ordi portable ) existe-t-il une règle. Merci a vous tous

Re : modifier ligne instruction de deplacement cellules re-bonjour camarchepas merci pour ta solution camarche je modifie toutes mes lignes instructions ce qui me permettra de rajouter des colonnes sans toucher au programme

Re : modifier ligne instruction de deplacement cellules bonjour pour me repondre , suite a la lenteur du traitement j'ai utilisé ces 2 "fonctions" debut traitement inserer Application.EnableEvents = False ' desactive les autres macro qui se lancaient pendant celle ci Application.Calculation...

bonjour je suis confronté a un manque de competance vba, j'ai 13 lignes qui deplacent des cellules et ces tres,tres long il est dit que le copie/coller par le presse papier etait a proscrire. mais je ne trouve pas ou je ne comprend pas comment faire Range("U" & i).Select: Selection.Copy...

Re : raz 13 boutons_options merci laetitia90 effectivement cela parait simple .....a premiere vue entre les "", et les () et les [] il va falloir que je travail le sujet. encore merci

bonjour Je cherche sans trouver de solution a ce petit probleme remettre a zero des boutons options j'ai fait Private Sub CommandButton2_Click() OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton4.Value = False OptionButton5.Value =...