Aide pour macro: Désactiver la cellule active

[oracls]

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

 

[Pierrot93]

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
@+

 

[oracls]

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

 

[Pierrot93]

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

Re,

je ne peux pas ouvrir ton fichier... A priori fichier endomagé...

 

[oracls]

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

bizzare j'arrive à le telecharger et l'ouvrir, je le remet en format excel 2003

 

[Pierrot93]

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...

 

[oracls]

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

re,
chez moi sous 2007 ça ce declanche pourtant??
bizzare!

 

[Modeste geedee]

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

 

[oracls]

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+