For n = 1 To 5 Sheets("Feuil1").Select If Cells(2, 2).Value = 0 Then End If a = n Exit For Next n*
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim libre As Worksheet For i = 1 To Worksheets.Count If Worksheets(i).UsedRange.SpecialCells(xlCellTypeLastCell) = "" Then Set libre = Worksheets(i) Exit For End If Next MsgBox libre.Name & " d'index " & libre.Index
Dim libre As Worksheet For i = 1 To Worksheets.Count If WorksheetFunction.CountA(Worksheets(i).UsedRange) = 0 Then Set libre = Worksheets(i) Exit For End If Next If Not libre Is Nothing Then MsgBox "est libre " & libre.Name & " d'index " & libre.Index Else MsgBox "aucune de libre" End If