Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel macro lors de modif ds cellule

macro lors de modif ds cellule

3 réponses
Avatar
Christian Raoux
Salut à tous

dans une plage D3:F20

je veux si la valeur d'une des cellules est midifiée lanser une macro
pour faire un formatage de cette cellule uniquement ,je ne peux pas
passer par mise en forme conditionnelle car tops de conditions

su style :

If MyWeekDay = 1 Then
ActiveCell = "Al.D"
Selection.Font.ColorIndex = 3
Selection.Interior.ColorIndex = 4
ElseIf Not IsError(Application.Match(CLng(MyDate), Range(NomFeuil), 0))
Then
ActiveCell = "Al.D"
Selection.Font.ColorIndex = 3
Selection.Interior.ColorIndex = 4
Else
ActiveCell = "Al"
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 4
End If


merci d'avance

christian
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ced
salut,

essaye de mettre ta macro dans ta feuille et de déclarere
ta macro comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range)

...ta macro

end sub


-----Message d'origine-----
Salut à tous

dans une plage D3:F20

je veux si la valeur d'une des cellules est midifiée
lanser une macro

pour faire un formatage de cette cellule uniquement ,je
ne peux pas

passer par mise en forme conditionnelle car tops de
conditions


su style :

If MyWeekDay = 1 Then
ActiveCell = "Al.D"
Selection.Font.ColorIndex = 3
Selection.Interior.ColorIndex = 4
ElseIf Not IsError(Application.Match(CLng(MyDate), Range
(NomFeuil), 0))

Then
ActiveCell = "Al.D"
Selection.Font.ColorIndex = 3
Selection.Interior.ColorIndex = 4
Else
ActiveCell = "Al"
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 4
End If


merci d'avance

christian
.



Avatar
Christian Raoux
Bien j'y ai pensé mais la macro va s'exécuter à chaque changement sur la
feuille même si ce n'ai pas dans la plage ??

christian

"ced" écrivait news:045301c354de$add42420
$:

salut,

essaye de mettre ta macro dans ta feuille et de déclarere
ta macro comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range)

...ta macro

end sub


-----Message d'origine-----
Salut à tous

dans une plage D3:F20

je veux si la valeur d'une des cellules est midifiée lanser une macro
pour faire un formatage de cette cellule uniquement ,je ne peux pas
passer par mise en forme conditionnelle car tops de conditions

su style :

If MyWeekDay = 1 Then
ActiveCell = "Al.D"
Selection.Font.ColorIndex = 3
Selection.Interior.ColorIndex = 4
ElseIf Not IsError(Application.Match(CLng(MyDate), Range (NomFeuil),
0)) Then
ActiveCell = "Al.D"
Selection.Font.ColorIndex = 3
Selection.Interior.ColorIndex = 4
Else
ActiveCell = "Al"
Selection.Font.ColorIndex = 1
Selection.Interior.ColorIndex = 4
End If


merci d'avance

christian
.





Avatar
AV
Bien j'y ai pensé mais la macro va s'exécuter à chaque changement sur la
feuille même si ce n'ai pas dans la plage ??


Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [D3: F20]) Is Nothing Then Exit Sub
'....tes instructions ou la macro à lancer
End Sub

AV