Sujet Précédent Sujet Suivant

Besoin aide en VBA excel

Résolu/Fermé
Nanie13 - 16 nov. 2007 à 10:23
 Utilisateur anonyme - 19 nov. 2007 à 14:00
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
A voir également:

2 réponses

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 nov. 2007 à 10:47
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
Nanie13
19 nov. 2007 à 08:16
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
Réponse 2 / 2
Utilisateur anonyme
19 nov. 2007 à 14:00
Bonjour,

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

Lupin
0