Macro excel 2002

Fermé

beb69 Messages postés 163 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 4 mars 2009 - 18 mai 2006 à 16:19
UsulArrakis Messages postés 7405 Date d'inscription vendredi 28 mars 2003 Statut Contributeur Dernière intervention 27 janvier 2022 - 19 mai 2006 à 12:17

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

A voir également:

Macro excel 2002
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

3 réponses

Réponse 1 / 3

Utilisateur anonyme
19 mai 2006 à 00:46

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éponse 2 / 3

rodrigue62 Messages postés 190 Date d'inscription vendredi 18 février 2005 Statut Membre Dernière intervention 10 janvier 2011 30
19 mai 2006 à 11:37

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éponse 3 / 3

UsulArrakis Messages postés 7405 Date d'inscription vendredi 28 mars 2003 Statut Contributeur Dernière intervention 27 janvier 2022 3 182
19 mai 2006 à 12:17

salut
clic droit sur le bouton / visualiser le code
ça ouvre le VBE ensuite coller la macro dans la fenetre de droite

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters