Macro excel 2002
beb69
Messages postés
164
Statut
Membre
-
UsulArrakis Messages postés 7683 Statut Contributeur -
UsulArrakis Messages postés 7683 Statut Contributeur -
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
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
3 réponses
Bonjour,
si je comprends bien ! :
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
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.
-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.
