Je cherche, en cas d'erreur, a remettre à l'aide d'une autre macro la police
en normal et de supprimer le marqueur "G"(pour supprimer le marqueur je fait
" ").
Comment mettre le marqueur sur une autre feuille dans la cellule de même
coordonnée.
Je cherche, en cas d'erreur, a remettre à l'aide d'une autre macro la police en normal et de supprimer le marqueur "G"(pour supprimer le marqueur je fait " "). Comment mettre le marqueur sur une autre feuille dans la cellule de même coordonnée.
J'utilise Excel 2003 et Visual Basic 6.3.
Merci de votre aide.
bonjour Jean,
With Range("J1")
.Value = "G"
.Font.Bold = True
.Font.Name = "Arial "
End With
Je cherche, en cas d'erreur, a remettre à l'aide d'une autre macro la police
en normal et de supprimer le marqueur "G"(pour supprimer le marqueur je fait
" ").
Comment mettre le marqueur sur une autre feuille dans la cellule de même
coordonnée.
Je cherche, en cas d'erreur, a remettre à l'aide d'une autre macro la police en normal et de supprimer le marqueur "G"(pour supprimer le marqueur je fait " "). Comment mettre le marqueur sur une autre feuille dans la cellule de même coordonnée.
J'utilise Excel 2003 et Visual Basic 6.3.
Merci de votre aide.
michdenis
Bonjour Jean,
à titre d'exemple :
Dans le haut d'un module standard, tu déclares la variable :
Dim Rg As Range '---------------------------------------- Sub Mettre_En_Gras() 'Teste si la "selection" représente une plage de cellules If TypeName(Selection) = "Range" Then Set Rg = Selection End If With Rg .Font.Bold = True .Offset(, 10) = "G" End With End Sub '---------------------------------------- Sub Revenir_Normal() With Rg .Font.Bold = False .Offset(, 10) = "" 'Pour mettre le G sur une autre feuille 'à la même addresse , nom feuille à adapter Worksheets("Feuil2").Range(Rg.Offset(, 10).Address) = "G" End With End Sub '----------------------------------------
"Jean" a écrit dans le message de groupe de discussion :
Bonjour, Je débute en macro. J'ai fait une macro qui met en gras la police d'une cellule et met un marqueur "G" dans une autre cellule.
Je cherche, en cas d'erreur, a remettre à l'aide d'une autre macro la police en normal et de supprimer le marqueur "G"(pour supprimer le marqueur je fait " "). Comment mettre le marqueur sur une autre feuille dans la cellule de même coordonnée.
J'utilise Excel 2003 et Visual Basic 6.3.
Merci de votre aide.
-- Jean
Bonjour Jean,
à titre d'exemple :
Dans le haut d'un module standard, tu déclares la variable :
Dim Rg As Range
'----------------------------------------
Sub Mettre_En_Gras()
'Teste si la "selection" représente une plage de cellules
If TypeName(Selection) = "Range" Then
Set Rg = Selection
End If
With Rg
.Font.Bold = True
.Offset(, 10) = "G"
End With
End Sub
'----------------------------------------
Sub Revenir_Normal()
With Rg
.Font.Bold = False
.Offset(, 10) = ""
'Pour mettre le G sur une autre feuille
'à la même addresse , nom feuille à adapter
Worksheets("Feuil2").Range(Rg.Offset(, 10).Address) = "G"
End With
End Sub
'----------------------------------------
"Jean" <Jean@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
F2354428-F6E3-4185-A180-452D8F3AEE3E@microsoft.com...
Bonjour,
Je débute en macro. J'ai fait une macro qui met en gras la police d'une
cellule et met un marqueur "G" dans une autre cellule.
Je cherche, en cas d'erreur, a remettre à l'aide d'une autre macro la police
en normal et de supprimer le marqueur "G"(pour supprimer le marqueur je fait
" ").
Comment mettre le marqueur sur une autre feuille dans la cellule de même
coordonnée.
Dans le haut d'un module standard, tu déclares la variable :
Dim Rg As Range '---------------------------------------- Sub Mettre_En_Gras() 'Teste si la "selection" représente une plage de cellules If TypeName(Selection) = "Range" Then Set Rg = Selection End If With Rg .Font.Bold = True .Offset(, 10) = "G" End With End Sub '---------------------------------------- Sub Revenir_Normal() With Rg .Font.Bold = False .Offset(, 10) = "" 'Pour mettre le G sur une autre feuille 'à la même addresse , nom feuille à adapter Worksheets("Feuil2").Range(Rg.Offset(, 10).Address) = "G" End With End Sub '----------------------------------------
"Jean" a écrit dans le message de groupe de discussion :
Bonjour, Je débute en macro. J'ai fait une macro qui met en gras la police d'une cellule et met un marqueur "G" dans une autre cellule.
Je cherche, en cas d'erreur, a remettre à l'aide d'une autre macro la police en normal et de supprimer le marqueur "G"(pour supprimer le marqueur je fait " "). Comment mettre le marqueur sur une autre feuille dans la cellule de même coordonnée.
J'utilise Excel 2003 et Visual Basic 6.3.
Merci de votre aide.
-- Jean
FFO
Salut à toi
Je te propose à partir de ton code ceci : Soit la feuil1 active:
En feuil2 le marqueur "G" est en même cellule qu'en feuil1
Celà devrait convenir
Dis moi !!!!!
Jean
Bonsoir,
Merci à Isabelle, Michdenis et FFO pour votre réponse rapide et votre aide En prenant des idées de vous trois j'ai compris et pu venir à bout de mon problème. -- Jean
"FFO" a écrit :
Salut à toi
Je te propose à partir de ton code ceci : Soit la feuil1 active:
En feuil2 le marqueur "G" est en même cellule qu'en feuil1
Celà devrait convenir
Dis moi !!!!!
Bonsoir,
Merci à Isabelle, Michdenis et FFO pour votre réponse rapide et votre aide
En prenant des idées de vous trois j'ai compris et pu venir à bout de mon
problème.
--
Jean
"FFO" a écrit :
Salut à toi
Je te propose à partir de ton code ceci :
Soit la feuil1 active:
Merci à Isabelle, Michdenis et FFO pour votre réponse rapide et votre aide En prenant des idées de vous trois j'ai compris et pu venir à bout de mon problème. -- Jean
"FFO" a écrit :
Salut à toi
Je te propose à partir de ton code ceci : Soit la feuil1 active: