piga25
XLDnaute Barbatruc
Bonjour,
J'essai de me lancer dans le VBA, mais là j'avoue mon incompétence (mais je l'aurrai un jour)
Voila, j'ai un fichier de rencontre sportive qui comporte 05 pages contenant chacune le résultat de 05 matchs.
Je souhaite pouvoir effacer les données de ces matchs mais uniquement que sur la page active, ces dernières sont nommées : Journée 1, Journée 2, Journée 3, Journée 4 et Journée 5.
Ce qui fonctionne : J'ai nommé mes cellules de données pour la journée 1 en journée1. (là le script fonctionne).
Ce qui ne fonctionne pas : Comme j'ai 5 fois la même chose, je pense qu'il est possible d'affectuer le script à la page active, puis de selectionner les cellules de données (elles sont toujours au même endroit) puis d'effectuer le script.
Voila le code que j'essai de faire.
Merci.
J'essai de me lancer dans le VBA, mais là j'avoue mon incompétence (mais je l'aurrai un jour)
Voila, j'ai un fichier de rencontre sportive qui comporte 05 pages contenant chacune le résultat de 05 matchs.
Je souhaite pouvoir effacer les données de ces matchs mais uniquement que sur la page active, ces dernières sont nommées : Journée 1, Journée 2, Journée 3, Journée 4 et Journée 5.
Ce qui fonctionne : J'ai nommé mes cellules de données pour la journée 1 en journée1. (là le script fonctionne).
Ce qui ne fonctionne pas : Comme j'ai 5 fois la même chose, je pense qu'il est possible d'affectuer le script à la page active, puis de selectionner les cellules de données (elles sont toujours au même endroit) puis d'effectuer le script.
Voila le code que j'essai de faire.
VB:
Sub Efface()
'
' Piga25 le 25/10/2012
'
'
'Application.Goto Reference:="Journée1"
Range("B3:B6").Select 'Organisateur
Range("B3").Activate
Range("B9:B12,F9:F12,I9:I12,N9:N12,Q9:Q12").Select 'Visiteur
Range("Q9").Activate
Range("C3,G3,K3,O3,R3").Select 'Tirage
Range("R3").Activate
Range("D17:D25,G17:H25,K17:K25").Select 'Match 1
Range("K17").Activate
Range("D32:D40,G32:H40,K32:H40").Select 'Match 2
Range("K32").Activate
Range("D47:D55,G47:H55,K47:K55").Select 'Match 3
Range("K47").Activate
Range("D62:D70,G62:H70,K62:K70").Select 'Match 3
Range("K62").Activate
Range("D77:D85,G77:H85,K77:K85").Select 'Match 5
Range("K77").Activate
Style = vbYesNo + vbDefaultButton1
Msg = "Effacement des données"
Title = "Attention suppression de données!"
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.ClearContents
Else
Exit Sub
End If
Range("B3").Select
End Sub
Merci.