Sélectionner une partie de colonne ou nom d'autre feuille

Question

Je recherche la commande pour que apres une msgbox je doive sélectionner une liste de cellule (defois non concécutives (ctrl) mais qui appartiennent à la même colonne) et que le nom de la feuille s'affiche en B2 . vous pouvez voir le travail que j'ai fait depuis mes premieres pas en VB il y a une semaine... Cordialement D'avance merci de votre aide. -- 19 Aoû 2010, 09:08 -- C'est pour l'instant ma macro Sub Macro_original() ' ' Macro Macro ' Dim N As Long Dim M As Integer 'on compte les cellules plus msgbox With Application.WorksheetFunction N = .CountA(Range("A1:A65536")) MsgBox ("il y a " & N & " fiche à imprimer changement de / par _") End With 'rechercher"/"remplacer par"_" Cells.Replace What:="/", Replacement:="_", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 'centrer les colonnes Sheets("copier le listing").Select Columns("A:A").Select With Selection .HorizontalAlignment = xlCenterAcrossSelection .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With N = N - 1 M = 0 Do While N &gt;= M M = M + 1 'creation nouvelle feuille type Sheets("Distrib. principale").Select Sheets("Distrib. principale").Copy After:=Sheets(2) Sheets("copier le listing").Cells(1, 1).Copy Sheets("Distrib. principale (2)").Select Range("G2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'copie du nom dans nom feuille Sheets("Distrib. principale (2)").Select Range("G2").Select Range("G2").Copy Sheets("Distrib. principale (2)").Name = Range("G2").Value Sheets("copier le listing").Select Range("A1").Select Selection.Delete Shift:=xlUp Loop Dim Nom As String Nom = Range("B2") & ".xls" If ThisWorkbook.Path = "" Then 'si le document n'a jamais été enregistré SendKeys Nom Application.Dialogs(xlDialogSaveAs).Show 'boîte de dialogue Enregistrer sous Else If Range("B2") = "" Then MsgBox "Entrez le nom du fichier en B2", 48: Range("B2").Select: Exit Sub If MsgBox("Voulez-vous enregistrer le fichier sous le nom " & Nom & " ?", 4) = 6 Then On Error Resume Next ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Nom 'Enregistre dans le même dossier If Err Then MsgBox "Le nom proposé contient des caractères interdits", 48: Range("B2").Select End If End If ' Sheets("Distrib. principale").Select ' ActiveWindow.SelectedSheets.Delete 'Sheets("copier le listing").Select 'ActiveWindow.SelectedSheets.Delete End Sub Cordialement...

dubois · Answer

Inutile de doublonner les postes, tu devais continuer sur ce fil, où je t'ai répondu https://forum.excel-pratique.com/excel/faire-une-serie-de-feuille-avec-un-model-et-une-liste-t18559.html Amicalement Claude...