Besoin aide en VBA excel

Résolu
Nanie13 -  
 Utilisateur anonyme -
Bonjour,

Débutante en VBA quelqu'un pourrait t il m'aider s'il vous plait ?

J'ai un fichier "excel" qui se nomme FACTURE

La 1ère feuille "CLIENTS"
La 2ème feuille "DONNEES"
La 3ème feuille "F1" = facture 1 page
La 4ème feuille "F2" = facture 2 pages
La 5ème feuille "F2" = facture 3 pages
La 6ème feuille "F2" = facture 4 pages

Je souhaiterais que l'une des feuilles "F1" ou "F2" ou "F3" ou "F4" se sélectionne, selon le nombre de lignes non vide dans la feuille "DONNEES", mais je bataille et je n'arrive pas créer cette macro.........

J'ai commencé ma macro comme si après, mais je ne sais pas comment formuler ma première ligne, merci pour votre aide...
Select Case
Case Is > 26
Sheets("F1").Select
Case Is > 56
Sheets("F2").Select
Case Is > 86
Sheets("F3").Select
Case Else
Sheets("F4").Select
End Select
End Sub
Configuration: Windows XP
Internet Explorer 7.0

2 réponses

  1.
    Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    Un "Select Case" fonctionne selon une condition :
    ex 

    Sub etatFonctionnement(ByVal action as String)

Select Case action
        case action = "Démarrer"
               MsgBox "Le moteur est démarré"
       case action = "Arrêter"
              MsgBox "Le moteur est arrêté"
       case action = " " 
             MsgBox "Rien ne se passe ..."
End Select
End Sub

ou bien

Sub etatFonctionnement(ByVal action as Integer)

Select Case action
        case 0 
              MsgBox "Rien ne se passe ..."
        case 1
              MsgBox "Le moteur est démarré"
        case 2
              MsgBox "Le moteur est arrêté"
End Select
End Sub


    bon courage

    ;o)

    polux
    0
    1. Nanie13
       
      Bonjour et merci pour votre réponse,

      Etant débutante, je n'arrive pas à finaliser ma macro.

      * Première feuille de mon fichier excel : "Base de données"
      * Deuxième feuille : "Facture 1 page"
      * Troisième feuille : "Facture 2 pages"
      * Quatrième feuille : "Facture 3 pages"
      * Cinquième feuille : "Facture 4 pages"

      Je souhaiterais que la "Facture" se sélectionne selon le nombre de lignes utilisées dans la "colonne B" de ma "Base de données"

      Option Explicit
      Sub Facture()

      Select Case Cells(Rows.Count, b).End(xlUp).Row

      Case 1 To 26 'nombre de lignes utilisées dans base de données
      MsgBox "Facture 1 page selectionnée"
      Sheets("Facture 1 page").Select

      Case 27 To 56 'nombre de lignes utilisées dans base de données
      Sheets("Facture 2 pages").Select

      Case 57 To 86 'nombre de lignes utilisées dans base de données
      Sheets("Facture 3 pages").Select

      Case 87 To 116 'nombre de lignes utilisées dans base de données
      Sheets("Facture 4 pages").Select

      Case Else
      MsgBox "facture de plus de 4 pages non créee"

      End Select
      End Sub
      0
  2. Utilisateur anonyme
     
    Bonjour,

    Select Case Cells(Rows.Count,"B").End(xlUp).Row

    Lupin
    0