Besoin d aide pour une macro excel
thorak79
Messages postés
52
Statut
Membre
-
Bruce Countie -
Bruce Countie -
Bonjour,
Coucou a tous
je viens voir les pro pour m aider a ressoudre un probleme sous excell
je vous explique
je voudrais inserer une macro dans un tableau excell
de maniere que lorsque je coche une case cela renvoi un numero dans un autre tableau
ou le contraire lorsque je tape un numero cela me coches une case dans le tableau
cest peut etre du" chinois "mais je ne sais pas comment l expliquer autrement
merci de m aider je ne suis pas tres forte en macro
Coucou a tous
je viens voir les pro pour m aider a ressoudre un probleme sous excell
je vous explique
je voudrais inserer une macro dans un tableau excell
de maniere que lorsque je coche une case cela renvoi un numero dans un autre tableau
ou le contraire lorsque je tape un numero cela me coches une case dans le tableau
cest peut etre du" chinois "mais je ne sais pas comment l expliquer autrement
merci de m aider je ne suis pas tres forte en macro
A voir également:
- Besoin d aide pour une macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
1 réponse
Bonjour,
Sur la feuil1 d'un classeur Excel, entre le nom des mois de l'année (Janvier, Févrrier, ..., Décembre) dans la plage A2:A13.
Ouvre l'éditeur Visual Basic et choisis la procédure SelectionChange associée à la Feuil1 (WorkSheet).
Entre le code le code suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
R = ActiveCell.Row
C = ActiveCell.Column
If R > 1 And R < 14 And C = 1 Then 'si on clique sur le nom d'un mois dans la plage A2:A13
Cells(2, 3).Value = R - 1 'alors on écrit le rang de ce mois dans la cellule C2
End If
End Sub
Sur la feuil1 d'un classeur Excel, entre le nom des mois de l'année (Janvier, Févrrier, ..., Décembre) dans la plage A2:A13.
Ouvre l'éditeur Visual Basic et choisis la procédure SelectionChange associée à la Feuil1 (WorkSheet).
Entre le code le code suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
R = ActiveCell.Row
C = ActiveCell.Column
If R > 1 And R < 14 And C = 1 Then 'si on clique sur le nom d'un mois dans la plage A2:A13
Cells(2, 3).Value = R - 1 'alors on écrit le rang de ce mois dans la cellule C2
End If
End Sub