rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Macro excel 2002

beb69, le jeudi 18 mai 2006 à 16:19:40
Bonjour,

j'ai repris une macro qui fait ça:

For ligne = 3 To 45
Sheets("saisie").Activate
Range("n" & ligne).Activate
club = ActiveCell.Value

If (club) = "" Then
End
End If

Sheets.Add.Name = club
Range("a1").Select
Application.GoTo Reference:="entête"
Selection.Copy
Sheets(club).Select
Range("a1").Select
ActiveSheet.Paste

'tri
Sheets("saisie").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=6, Criteria1:=club
Range("A3:H350").Select
Selection.Copy
Sheets(club).Select
Range("A3").Select
ActiveSheet.Paste
Sheets("saisie").Activate
Selection.AutoFilter

Next

J'en déduit que si ma cellule 'n&ligne' est vide la macro se termine...

Je voudrais inclure dans cette boucle que la macro ne s'execute que si la cellule d'à coté (en lo curence 'o&ligne') est remplie...

n'étant pas un expert toute aide me sera precieuse.

D'avance merci
Répondre à beb69  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le vendredi 19 mai 2006 à 00:46:01
Bonjour,

si je comprends bien ! : 

Option Explicit

Sub ExecuteAction()

    Dim Club As Variant
    Dim Ligne As Long

    Sheets("saisie").Select
    Range("A1").Select
    For Ligne = 3 To 45
        If ((ActiveCell.Offset(Ligne, 0).Value <> "") And _
                            (ActiveCell.Offset(Ligne, 1).Value <> "")) Then
            Club = ActiveCell.Offset(Ligne, 0).Value
            Sheets.Add.Name = Club
            Range("A1").Select
            Application.GoTo Reference:="entête"
            Selection.Copy
            Sheets(Club).Select
            Range("A1").Select
            ActiveSheet.Paste
        
            ' tri
            Sheets("saisie").Select
            Selection.AutoFilter
            Selection.AutoFilter Field:=6, Criteria1:=Club
            Range("A3:H350").Select
            Selection.Copy
            Sheets(Club).Select
            Range("A3").Select
            ActiveSheet.Paste
            Sheets("saisie").Select
        End If
    Next Ligne
    
End Sub
   
Répondre à Lupin.A

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
rodrigue62, le vendredi 19 mai 2006 à 11:37:21
Comment fait on pour lier une macro a un bouton de comande sous Excel? je crois me souvenir qu'en faisant un clic droit sur le bouton et un truc du genre "affecter une macro" on pouvait, mais maintenant lorsque je clique sur le bouton avec un clic droit j'ai seulement:
-copier
-coller
-propriétés
-visualiser code
-objet bouton de commande
-groupe
-ordre
-format de controle

si quelqu'un sait comment on fait merci d'avance.

J'ai trouvé je mettais trompé de bouton, pour ceux qui aurrait le meme probleme il faut prendre dans la barre d'outils formulaire.
   
Répondre à rodrigue62

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 UsulArrakis, le vendredi 19 mai 2006 à 12:17:19
salut
clic droit sur le bouton / visualiser le code
ça ouvre le VBE ensuite coller la macro dans la fenetre de droite (_Usul d'Arrakis
Serial_Dreamer_)
   
Répondre à UsulArrakis
Posez votre question Répondre
Discussions pertinentes trouvées dans le forum
19/09 15h00Excel 2002 SP3 : problème macro2
11/08 18h00Demande de macro Excel3
07/08 11h14Conditions sous excell 200210
30/07 11h39Macro excel " SUBTOTAL "2
Plus de discussions sur « macro excel 2002 »
Logiciels pertinents trouvés dans les téléchargements
Télécharger Pack de compatibilité Microsoft Office 2007 3Pack de compatibilité Microsoft Office 2007 - En installant le pack de compatibilité pour Microsoft Office 2000, Office XP ou Office 2003, vous pouvez ouvrir, modifier et...Catégorie: Bureautique
Licence: Freeware/gratuit
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Ms Word Excel Cracker 2.2Ms Word Excel Cracker - Ms Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls...Catégorie: Suite bureautique
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « macro excel 2002 »