Contenu récent par sive91

  1. S

    Copier Coller un fichier avec changement de nom

    Bonjour, Je dispose de deux colonnes dans mon fichier excel, K et L, K contient l'ancien chemin de mon fichier et L le nouveau chemin de mon fichier je souhaiterais que pour chaque ligne, la commande FileCopy se lance avec comme variables, la valeur des deux cellules. je n'ai pas de message...
  2. S

    XL 2016 Probleme Boucle VBA

    Merci tu m'as bien aiguillé il suffisait que je sorte de la boucle les lignes de copie de la formule Private Sub CommandButton2_Click() Worksheets("BL_EPURE").Range("A:S").Clear Sheets("BL").Columns("A:S").Copy Sheets("BL_EPURE").Columns(1) 'Efface la seconde ligne à la 1000 ème With...
  3. S

    XL 2016 Probleme Boucle VBA

    Bonjour j'ai un petit soucis dans le feuille Variables j'ai un bouton "Épuration et Distribution" lorsque je clique dessus il y a plusieurs action, l'un est de copier les lignes de BL_EPURE dans deux autres feuilles IMPORT_LIGNE et IMPORT_TMP mais voila dans BL_EPURE j'ai Deux Lignes et dans...
  4. S

    XL 2016 incompatibilité de type

    Bonjour Merci a tous voici la solution Worksheets("SERIEM").Range("G2:G" & Lg).Copy Worksheets("PA").Range("A2") Worksheets("SERIEM").Range("S2:S" & Lg) = Worksheets("SERIEM").Range("S2:S" & Lg).Value Worksheets("SERIEM").Range("S2:S" & Lg).Copy Worksheets("PA").Range("B2") If...
  5. S

    XL 2016 incompatibilité de type

    Bonjour Si, Cela me fait la même erreur, Merci
  6. S

    XL 2016 incompatibilité de type

    Voici le fichier Merci
  7. S

    XL 2016 incompatibilité de type

    Voici le Code du bouton Private Sub CommandButton4_Click() Application.ScreenUpdating = False Dim Lg2 As Integer Worksheets("DIFFERENCE_PA").Range("A:B").Clear For Lg2 = Sheets("SERIEM").UsedRange.Rows.Count To 2 Step -1 Worksheets("SERIEM").Range("S" & Lg2).Value =...
  8. S

    XL 2016 incompatibilité de type

    Bonjour, en Integer en effet mais la Lg2 ne sert il pas qu'a trouver le numéro de la ligne ? Merci
  9. S

    XL 2016 incompatibilité de type

    Bonjour je ne comprend pas pourquoi j'ai cette erreur If Sheets("DIFFERENCE_PA").Range("B" & Lg2) = "*" _ Then Sheets("DIFFERENCE_PA").Rows(Lg2).Delete Merci
  10. S

    XL 2016 Petit Bug Copier Coller D'une Feuille à L'autre Avec Condition

    Ok trouvé Merci j'ai du rajouter Worksheets("BL_EPURE").Activate avant Worksheets("BL_EPURE").Range("A1").Select
  11. S

    XL 2016 Petit Bug Copier Coller D'une Feuille à L'autre Avec Condition

    Bonjour, je ne comprend pas l'erreur que Excel me retourne, voici ma macro Private Sub CommandButton2_Click() Dim plage As Range, cel As Range Application.ScreenUpdating = False valcherch = Worksheets("Variables").Range("B4").Value With Worksheets("BL") derlig =...
  12. S

    XL 2016 Erreur VBA Suppresion des onglets

    Parfait cela fonctionne, merci a tous Private Sub CommandButton4_Click() Dim Sh As Worksheet Application.DisplayAlerts = False For Each Sh In ThisWorkbook.Worksheets Sh.Visible = xlSheetVisible If Sh.CodeName <> "Feuil1" And Sh.CodeName <> "Feuil2" And Sh.CodeName <> "Feuil3" Then...
  13. S

    XL 2016 Erreur VBA Suppresion des onglets

    Bonsoir merci eric pour ta réponse, en effet tu a du remarquer que pour chaque feuille il existait une seconde feuille mr_ cela est généré automatiquement par mon logiciel de reporting, mais tu viens de me donner une idée j'ai oublié de dire de ne pas supprimer le mr_ de la feuill2 peut etre...
  14. S

    XL 2016 Erreur VBA Suppresion des onglets

    Toujours cette erreur est il possible qu'une option du fichier interdise la fonction delete?
  15. S

    XL 2016 Erreur VBA Suppresion des onglets

    Je vais retester cela ce soir, merci encore à vous deux, je vous fais un retour dès que possible
Haut Bas