Selectionner Feuille précédent

[gilou31]

Bonjour,

est-il possible de sélectionner une feuille de la meme manière que l'on selectionne ACTIVE SHEET.

C'est a dire selectionner la feuille sur laquelle on était avant, mais sans la nommé,
quelque chose du genre PREVIOUS ACTIVE SHEET ?

 

[BOISGONTIER]

Re : Selectionner Feuille précédent

Bonjour,

Sub essai()
  precedent
End Sub

Sub precedent()
  no = ActiveSheet.Index
  If no > 1 Then Sheets(no - 1).Select
End Sub

JB

 

[gilou31]

Re : Selectionner Feuille précédent

Bonjour,

Sub essai()
  precedent
End Sub

Sub precedent()
  no = ActiveSheet.Index
  If no > 1 Then Sheets(no - 1).Select
End Sub

JB

MM non ca ne marche pas 🙁

 

[cbea]

Re : Selectionner Feuille précédent

Bonjour gilou31, BOISGONTIER,

Voici un exemple (voir code VBA dans Thisworkbook).

 

[gilou31]

Re : Selectionner Feuille précédent

Bonjour gilou31, BOISGONTIER,

Voici un exemple (voir code VBA dans Thisworkbook).

c'est exacetment ce dont j'ai besoin.

Mais comme l'insérer dans ma macro ?

UserForm1.Show
            Application.Cursor = xlWait
        

      activesheet.Select 'Numéro du livre de mission
    Range("nlm").Select
    Selection.Copy
    Sheets("data").Select
     With ActiveSheet
        derlig = .Cells.Find(What:="*", _
        LookIn:=xlFormulas, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious).Row + 1
        End With
        colonne = Range("A65536").End(xlUp).Row + 1
    Cells(derlig, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
       [COLOR="Red"]sheets("livre de mission").[/COLOR]Select 'copy Etablissement
        Range("etablissement").Select
        Selection.Copy
        Sheets("data").Select
        colonne = Range("A65536").End(xlUp).Row + 1
        Cells(derlig, 2).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

il faut que la feuille livre de mission soit remplacer par le premier activesheet...

 

[cbea]

Re : Selectionner Feuille précédent

re,

Si tu utilises le code que je t'ai fourni, tu peux remplacer :

sheets("livre de mission").Select

par :

sheets(wsFeuil).Select

Je ne sais pas si c'est ce que tu cherches.

 

[gilou31]

Re : Selectionner Feuille précédent

oui c'est bien ce que je cherche mais quand j'effectue la macro , j'ai un débogage... Je ne cherche pas a afficher le numéro de la feuille précédente mais que ma macro l'utilise