Résultats de la recherche

Re : Gestion de fichiers xls au sein d'un dossier Merci JM ... effectivement il y a de quoi "lister" les fichiers ... donc après je devrai me débrouiller pour "ouvrir" les différents fichiers puis "copier coller" les données les unes à la suite des autres ... j'y travaille et vous tient au...

Bonjour, => j'ai un dossier avec plusieurs dizaines de fichiers excel ... => les fichiers comportent tous 2 onglets => les fichiers sont fermés/enregistrés avec en premier onglet : l'onglet qui a les données qui m'interressent => cet onglet n'a pas toujours le même nom => je souhaiterai...

Re : Mise en page : mettre nom utilisateur en pied de page Super JCGL ... merci MJ13 ... c'est pil ce qui me fallait ... Encore merci ... longue vie à XLD HUGS

Bonjour, Le nom d'utilisateur peut se trouver ainsi : Range("A1").value = Application.UserName ... peut-on intégrer ensuite ce nom d'utilisateur dans le pied de page de la mise en forme avant impression d'une page excel ? Merci d'avance. HUGS

Re : Supprimer lignes redondantes Super Catrice !!! c'est pile ce que je recherchais : un bout de code bien robuste et monté différemment que le mien ... Encore merci ... A bientôt HUGS

Re : Supprimer lignes redondantes merci Catrice .. finalement je me suis débrouillé en rendant plus robuste ma macro ... elle doit être perfectible ... ci-joint un fichier avec : une feuille "départ" et "arrivée" pour que tu visualises ce que je recherche à faire en supprimant les...

Re : Supprimer lignes redondantes merci Catrice ... mais la macro me laisse des doublons ... en + il me faudrait que les lignes soient supprimées dans la feuille de travail ... (plutôt que filtrer et coller sur une autre feuille ...) Merci de votre aide ...

Bonjour tout le monde, J'ai besoin d'une macro qui, selon la colonne de la cellule sélectionnée, supprime les lignes qui ont des valeurs redondantes ... ainsi dans cette colonne on ne pourra trouver plus d'une fois la m^me valeur une fois que la macro sera passée ... j'mettais bidouillé ça...

Re : Indicateur type compteur de voiture OK, merci JeanPierre, j'aurai souhaité un graphisme un peu plus évolué mais je ne pense pas que ceci soit possible sans passer par Active X ou autre logiciel graphique ... En tout cas merci de m'avoir permis de découvrir ce magnifique post ... sa...

Bonsoir, J'ai besoin d'indicateurs style compteur de voiture, jauge, Voyant... Comment puis-je faire? Suis-je obliger de le créer? (J'imagine la galère...) Par avance merci de votre aide. HUGS

Re : Erreur d'éxécution '9' Merci Roger !! désolé pour le dérangement :o

Re : Erreur d'éxécution '9' Merci Roger, ça marche, mon soucis c'est que le "112300" il va le chercher dans une cellule ... un script style : NomSave = Cells(1, 1).Value Sheets(NomSave).Select la variable NomSave n'a donc pas de guillemets ... comment faire pour que le VBA...

Bonjour, => j'ai un bout de script qui marchait très bien et qui maintenant me pose soucis ... c'est ces 2 lignes : nomsave = 112300 Sheets(nomsave).Select !!! .... qui fonctionnaient bien et qui maintenant me déclenchent une "Erreur d'éxécution '9' : L'indice n'appartient pas à...

Re : Correction automatique à la saisie Super les gars merci bcoup :) la formule : Target = UCase(Replace(Target, ",", ".")) me faisait défaut A+ HUGS

Bonjour, Je souhaiterai corriger automatiquement les données saisies dans une cellule : Saisie dans "I9" : "ch99,1" => je souhaiterai avoir une correction auto en : "CH99.1" soit : le "ch" transformé en "CH" et la "virgule" en "point" ... j'étais partis sur un "Private Sub" qui...

Re : Séparer des adresses email j'étais partie sur du VBA ... en fait c'était plus simple ;) Merci Michel

Dans une cellule j'ai toute une liste de diffusion d'email : toto1@free.fr ; toto2@free.fr ;toto3@free.fr ; toto4@free.fr ; ... ces adresses sont toutes séparées par un ";" avec parfoi un ou plusieurs espace avant et après quelle est le meilleur moyen pour dissocier ces adresses dans...

Re : Saisie guidée dans feuille excel Bien vu Wilfried ;) Merci elle est bien pensée ta macro

Bonsoir, Pour pouvoir guider la saisie dans une feuille excel j'ai ces lignes : Private Sub Worksheet_Change(ByVal Cible As Range) If Cible = Range("B6") Then Range("C10").Select If Cible = Range("C10") Then Range("E6").Select End Sub … script qui fonctionne bien pour...

Re : RDV outlook avec pièce jointe Salut Hasco, Excellent ça marche => PROBLEME RESOLU ça parait si simple avec vous les gars Ci-joint script pour envoyer RDV outlook avec pièce jointe: Sub SendMeetingRequest() Dim objOL 'As Outlook.Application Dim objAppt 'As...