Résultats de la recherche

  1. R

    Microsoft 365 VBA : Copier-Coller

    Bonjour, Un simple IF devrait faire l'affaire : If OldRep & NomFich = NewRep & NomFich Then If MsgBox("attention un fichier existe, voulez vous l'ecraser?", vbYesNo) = vbYes Then FileCopy OldRep, NewRep else FileCopy OldRep, NewRep end if
  2. R

    Microsoft 365 Portée des variables et question liée sur filtre automatique

    Bonjour, pourquoi ne pas stocker les variables dans des feuilles différentes selon le nom de l"utilisateur. Tu peux utiliser environ("username"), et ainsi pouvoir faire afficher que la feuille de l'utilisateur connecté. @+
  3. R

    Microsoft 365 Scinder un tableau en X fichiers contenant Y Onglets

    Bonjour, Sans fichier test c'est compliqué Bonne journée
  4. R

    Microsoft 365 Envoi de mail automatique sans ouvrir fichier

    Bonjour Il me semble que tu es seras obligé d'ouvrir ton fichier excel pour pouvoir envoyé tes mails. Tu peux faire une procédure événementielle à l'ouverture. Ci-dessous un code assez simple à utiliser Bonne journée Sub envoiMail() Dim mail As Object Dim mailenvoyer As Object Set mail =...
  5. R

    XL 2019 VBA Date Format Anglais vers Français

    oups !!! tu as raison la correction : Cells(i, 1) = Trim(Format(Cells(i, 1), "mm/dd/yyyy")) merci
  6. R

    XL 2010 Listbox à choix multiples: comment renvoyer en vba les choix dans le tableau?

    Bonjour, dans un choix multiples pour une listbox, tu est obligé de passer par une boucle pour récupérer toutes les valeurs sélectionnés çà devrait donner le code suivant With Me.ListBox3 Dim valeur As String For i = 0 To ListBox3.ListCount - 1 If .Selected(i) = True Then...
  7. R

    XL 2016 Séparer textes par espaces avec formules

    Bonjour, Vous pouvez utilisez la fonction convertir, qui se trouve dans l'onglet Données Cordialement
  8. R

    XL 2019 VBA Date Format Anglais vers Français

    Bonjour, ci-joint fichier Bonne journée
  9. R

    Autres Copier coller dans #ongles avec VBA

    Bonjour, Ci-joint un fichier à tester Bonne journée
  10. R

    XL 2016 Supprimer les lignes en double et incrémenter la quantité

    Bonjour, Dim nbLigne As Integer, i As Integer, j As Integer nbLigne = Range("A1").CurrentRegion.Rows.Count For i = 1 To nbLigne If Range("C" & i) = "" Then Exit Sub Else For j = nbLigne To i + 1 Step -1 compteur = Range("D" & i).Value If...
  11. R

    XL 2010 Récupérer le résultat d’une formule dans une cellule

    Bonjour, cela fonctionne, vous devez simplement faire afficher votre résultat, par exemple dans une msgbox, essayez ceci : cellule_j4 = Range("j4").Value MsgBox cellule_j4 Cordialement
  12. R

    XL 2019 Macro ajout d'une ligne

    Bonjour, pas sûre d'avoir bien compris, mais en supposant que ton tableau commence en A1 Range("a1").End(xlDown).EntireRow.Insert Bonne fin de journée