SLIJACK
XLDnaute Nouveau
Bonjour le forum!!!
Avec quelques heures d'avance je vous souhaite à tous une joyeuse année 2012[/SIZE][/COLOR]
j'ai un problème de fonctionnement sur ce code VBA
--------------------------------------------------------------------------------------------------
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("j12").Address Then
Run Macro1()
End If
End Sub
---------------------------------------------------------------------------------------------------
Sub Macro1()
'Masquer ligne 33 & 34
If Range("j12") <> "90" Then
Rows("33:34").Select
Selection.EntireRow.Hidden = True
End If
'Affiche ligne 33 & 34
If Range("j12") = "90" Then
Rows("33:34").Select
Selection.EntireRow.Hidden = False
End If
End Sub
---------------------------------------------------------------------------------------------------------
le code se trouve dans l'onglet "18 - courrier"
il devrait masquer automatique les ligne 33 & 34 si la cellule "J12" et <> de 90
mon fichier de base étant trop lord pour le joindre je passe par un lien "Joint.com" ci-dessous
avec mes remerciements pour l'aide apportée je renouvelle mes vœux de bonne année
http://cjoint.com/?ALFpw2VSlTE
Avec quelques heures d'avance je vous souhaite à tous une joyeuse année 2012[/SIZE][/COLOR]
j'ai un problème de fonctionnement sur ce code VBA
--------------------------------------------------------------------------------------------------
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("j12").Address Then
Run Macro1()
End If
End Sub
---------------------------------------------------------------------------------------------------
Sub Macro1()
'Masquer ligne 33 & 34
If Range("j12") <> "90" Then
Rows("33:34").Select
Selection.EntireRow.Hidden = True
End If
'Affiche ligne 33 & 34
If Range("j12") = "90" Then
Rows("33:34").Select
Selection.EntireRow.Hidden = False
End If
End Sub
---------------------------------------------------------------------------------------------------------
le code se trouve dans l'onglet "18 - courrier"
il devrait masquer automatique les ligne 33 & 34 si la cellule "J12" et <> de 90
mon fichier de base étant trop lord pour le joindre je passe par un lien "Joint.com" ci-dessous
avec mes remerciements pour l'aide apportée je renouvelle mes vœux de bonne année
http://cjoint.com/?ALFpw2VSlTE