Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide pour macro: Désactiver la cellule active

  • Initiateur de la discussion Initiateur de la discussion oracls
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

oracls

XLDnaute Nouveau
Bonsoir le forum,

Je cherche une macro afin de desactiver la cellule active, je m'explique!!
J'ai une macro qui fonctionne tres bien quand je la lance, mais quand la cellule est active (cellule avec la barre qui clignotte à l'interieur de la cellule ou dans la barre de fx), un debogage erreur 1004 apparait! je ne veut surtout pas annuler le debogage par " On Error Resume Next " mais plutot de prevenir par un message que la cellule est active, la macro ci-joint fonctione mais seulement quand la celle est vide, alors que je cherche quand la cellule est active

Sub Macro1()
If ActiveCell = "" Then
MsgBox "cellule est activé"
Exit Sub
End If
End Sub

je sais que c'est le "" qui ne va pas!!

merçi pour ceux qui m'aiderons
 
Re : Aide pour macro: Désactiver la cellule active

Bonjour,

J'ai une macro qui fonctionne tres bien quand je la lance, mais quand la cellule est active (cellule avec la barre qui clignotte à l'interieur de la cellule ou dans la barre de fx),
et comment est lancé cette macro.... chez moi lorsque je suis "rentré" dans une cellule je ne peux pas lancer de macro.... A voir si événementielle utilisée ou userform non modal peut être...

bonne journée
@+
 
Re : Aide pour macro: Désactiver la cellule active

bonjour pierrot93

merçi d'avoir penché sur mon problême,
la macro je la lance a partir d'un bouton que j'ai creer et ci je "rentre dans une cellule et que j'active ma macro sur le bouton" un debogage concernant sur la macro du ThisWorkbook et s'arrête à "If Not Intersect(Range("M2:O3"), Target) Is Nothing And Target.Count = 1 Then"

voici un model de mon problême

bonne journée
 

Pièces jointes

Re : Aide pour macro: Désactiver la cellule active

Re,

comprends pas... chez moi, sous 2003, quand je suis dans une cellule, le click sur le bouton est sans effet... pas de déclenchement de la macro...
 
Re : Aide pour macro: Désactiver la cellule active

Bonsour®
il y a perte du qualificateur de range lors de l'exécution de la proc Workbook_SheetChange

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Nom As String
Dim NomUtil As String
Dim Compteur As Integer

If Not Intersect(Sh.Range("M2:O3"), Target) Is Nothing And Target.Count = 1 Then
If Target = "" Then Exit Sub
Nom = Format(Sh.Range("M2"), "dd-mm") & " au " & Format(Sh.Range("o2"), "dd-mm")
NomUtil = Nom
Do While FeuilleExiste(NomUtil) = True
Compteur = Compteur + 1
NomUtil = Nom + " - " & Format(Compteur, "(0)")
Loop
Sh.Name = NomUtil
ActiveSheet.PageSetup.CenterFooter = "SEMAINE N°" & Sh.Range("M3") & " DU " & Sh.Range("M2") & " AU " & Sh.Range("O2")
End If

End Sub
 
Re : Aide pour macro: Désactiver la cellule active

Bonjour, Modeste ggedee

enfin un probleme débarsser, cela fonctione nickel je te remerci enormement,
merci aussi a pierrot93 pour ta volonté

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…