Résultats de la recherche

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...

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

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...

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

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 à...

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...

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...

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...

Bonjour, je souhaiterai intégrer un fichier joint du type "C:\Mes documents\toto.xls" au corps d'un RDV outlook envoyé via VBA J'ai le script suivant qui envoi très bien ce genre de RDV. Quelqu'un pourrait-il m'aider à le modifier afin d'intégrer un fichier joint au RDV ? Par avance...

Bonjour, J'ai ce script qui fonctionne bien pour envoyer des mails : Sub EnvoiUnMail() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = Range("A1") Subj = Range("A2") Msg = Msg & Range("A3") URLto = "mailto:" & MailAd ' & "?subject="...

Bonjour, J'ai le script suivant qui ne me permet pas de sauter une ligne dans le mail généré entre Bonjour et Aurevoir : Sub EnvoiUnMail() Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String MailAd = Range("d1") Subj = Range("d2") Msg = Msg & "Bonjour," Msg =...

Bonjour, Ci-joint un fichier que je pense avoir protégé. :confused: => mise en forme + accès uniquement à certaines cellules Merci de mettre ses protections à l'épreuve et me dire ce que je peux mettre en +. H