VBA pour selection cellule selon cellule active
Résolu
takita
Messages postés
14
Statut
Membre
-
takita Messages postés 14 Statut Membre -
takita Messages postés 14 Statut Membre -
Bonjour,
dans mon fichier joint en cliquant sur un même bouton de commande je souhaite accéder à la cellule date de la feuille "Tache" qui correspond à la cellule active de la feuille "Calendrier".
j'ai fait un peu de bricolage, vous pourrez le constater dans les colonnes janvier / fevrier et mars.
je voudrais que cela soit plus propre. Votre aide me sera précieuse.
merci d'avance.
dans mon fichier joint en cliquant sur un même bouton de commande je souhaite accéder à la cellule date de la feuille "Tache" qui correspond à la cellule active de la feuille "Calendrier".
j'ai fait un peu de bricolage, vous pourrez le constater dans les colonnes janvier / fevrier et mars.
je voudrais que cela soit plus propre. Votre aide me sera précieuse.
merci d'avance.
A voir également:
- VBA pour selection cellule selon cellule active
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule choix multiple - Guide
3 réponses
Bonjour,
Une macro de ce genre devrait correspondre à tes besoins :
Nb: j'ai fait pour Janvier/février/mars.. je te laisse faire pour les autres...
Il suffit d'ajouter, pour chaque moi, un CASE (suivit des numéros de colonne correspondante dans ton calendrier...)
et de mettre la variable LigneColTache en fonction de la "ligne" à afficher dans l'onglet Taches
Une macro de ce genre devrait correspondre à tes besoins :
Sub getTacheFromSelectedDate()
Dim colonne As Long
colonne = ActiveCell.Column
Dim ligne As Long
ligne = ActiveCell.Row
Select Case colonne
Case 1, 2, 3
'Janvier
LigneColTache = 4
Case 5, 6, 7
'Février
LigneColTache = 8
Case 9, 10, 11
'Février
LigneColTache = 12
'-----------------
' A completer avec les autres mois...
'---------------
End Select
Sheets("TACHES").Activate
Sheets("TACHES").Cells(LigneColTache, ligne - 3).Select
End Sub
Nb: j'ai fait pour Janvier/février/mars.. je te laisse faire pour les autres...
Il suffit d'ajouter, pour chaque moi, un CASE (suivit des numéros de colonne correspondante dans ton calendrier...)
et de mettre la variable LigneColTache en fonction de la "ligne" à afficher dans l'onglet Taches
Merci Jordane45 pour ta réponse qui est parfaitement ce que je recherche. Toutefois à partir du mois de juillet j'ai un petit problème. J'ai donc encore besoin de ton aide.
https://www.cjoint.com/c/EAiuuqzzQyv
https://www.cjoint.com/c/EAiuuqzzQyv
Modifie le code comme ceci :
Sub getTacheFromSelectedDate()
Dim colonne As Long
colonne = ActiveCell.Column
Dim ligne As Long
ligne = ActiveCell.Row
Select Case colonne
Case 1, 2, 3
If ligne < 34 Then
'Janvier
LigneColTache = 4
Else
'Juillet
LigneColTache = 28
End If
Case 5, 6, 7
If ligne < 34 Then
'Février
LigneColTache = 8
Else
'Aout
LigneColTache = 32
End If
Case 9, 10, 11
If ligne < 34 Then
'Mars
LigneColTache = 12
Else
'Septembre
LigneColTache = 36
End If
Case 13, 14, 15
If ligne < 34 Then
'Avril
LigneColTache = 16
Else
'Octobre
LigneColTache = 36
End If
Case 17, 18, 19
If ligne < 34 Then
'Mai
LigneColTache = 20
Else
'Novembre
LigneColTache = 40
End If
Case 21, 22, 23
If ligne < 34 Then
'Juin
LigneColTache = 24
Else
'Décembre
LigneColTache = 44
End If
End Select
' on regarde à Quelle ligne on se trouve dans le classeur
' pour déterminer la date...
If ligne < 34 Then
ligneDeb = ligne - 3
Else
ligneDeb = ligne - 37
End If
Sheets("TACHES").Activate
Sheets("TACHES").Cells(LigneColTache, ligneDeb).Select
End Sub
Merci encore Jordane45. J'ai rectifié et tout fonctionne à merveille. Maintenant est-il possible qu'à l'ouverture du fichier que la cellule active soit celle de la date du jour ?
https://www.cjoint.com/c/EAjpnnoox3o
https://www.cjoint.com/c/EAjpnnoox3o
Merci encore. Cidessous le lien pour accéder à mon fichier
https://www.cjoint.com/?0KonU1vsy2O
Je ne veux pas être embêtante,
j'attends toujours des réponses si possible évidemment.
Tu n'es pas embêtante.
Mais :
Donc, le fichier n'est plus accessible.
ci-joint le lien
https://www.cjoint.com/c/EAipDhbC35c
merci pour vos réponses.