Affecter une meme macro a une valeur d'une cellule et repeter sur les cellules s
cs_miniboo
Messages postés
14
Date d'inscription
jeudi 16 juillet 2009
Statut
Membre
Dernière intervention
10 août 2010
-
22 juil. 2009 à 14:46
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 23 juil. 2009 à 20:28
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 23 juil. 2009 à 20:28
A voir également:
- Vba affecter une valeur à une cellule
- Vba couleur cellule - Forum Visual Basic 6
- Vba copier valeur cellule dans une autre feuille - Forum Visual Basic
- Vba mettre une valeur dans une cellule - Forum Visual Basic
- Excel vba récupérer valeur cellule active ✓ - Forum VBA Office (Excel, Word ...)
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
1 réponse
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
23 juil. 2009 à 20:28
23 juil. 2009 à 20:28
Bonjour ,
voici un exemple a exploiter
-----------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigneSelectionner As Integer
Dim ColonneSelectionner As Integer
Dim LigneHaut, LigneBas, ColonneGauche, ColonneDroite
'Ligne et colonne selectionées
LigneSelectionner = Target.Row
ColonneSelectionner = Target.Column
'Plage de selection
LigneHaut = 4
LigneBas = 10
ColonneGauche = 2
ColonneDroite = 2
If LigneSelectionner >= LigneHaut And _
LigneSelectionner <= LigneBas And _
ColonneSelectionner >= ColonneGauche And _
ColonneSelectionner <= ColonneDroite Then
If Trim(Cells(LigneSelectionner, _
ColonneSelectionner).Value) = "1" Then
Run "affichercolonne"
Else: Run "cachercolonne"
End If
Else
End If
End Sub
-------------------------------------------
Dedenet2
voici un exemple a exploiter
-----------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigneSelectionner As Integer
Dim ColonneSelectionner As Integer
Dim LigneHaut, LigneBas, ColonneGauche, ColonneDroite
'Ligne et colonne selectionées
LigneSelectionner = Target.Row
ColonneSelectionner = Target.Column
'Plage de selection
LigneHaut = 4
LigneBas = 10
ColonneGauche = 2
ColonneDroite = 2
If LigneSelectionner >= LigneHaut And _
LigneSelectionner <= LigneBas And _
ColonneSelectionner >= ColonneGauche And _
ColonneSelectionner <= ColonneDroite Then
If Trim(Cells(LigneSelectionner, _
ColonneSelectionner).Value) = "1" Then
Run "affichercolonne"
Else: Run "cachercolonne"
End If
Else
End If
End Sub
-------------------------------------------
Dedenet2
