VBA pour selection cellule selon cellule active
Résolu/Fermé
takita
Messages postés
14
Date d'inscription
mardi 21 juin 2011
Statut
Membre
Dernière intervention
19 janvier 2015
-
Modifié par irongege le 14/11/2014 à 15:44
takita Messages postés 14 Date d'inscription mardi 21 juin 2011 Statut Membre Dernière intervention 19 janvier 2015 - 9 janv. 2015 à 15:11
takita Messages postés 14 Date d'inscription mardi 21 juin 2011 Statut Membre Dernière intervention 19 janvier 2015 - 9 janv. 2015 à 15:11
A voir également:
- VBA pour selection cellule selon cellule active
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
3 réponses
takita
Messages postés
14
Date d'inscription
mardi 21 juin 2011
Statut
Membre
Dernière intervention
19 janvier 2015
14 nov. 2014 à 04:06
14 nov. 2014 à 04:06
En fait je ne vois pas comment insérer mon fichier.
jordane45
Messages postés
38144
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 avril 2024
4 650
8 janv. 2015 à 15:43
8 janv. 2015 à 15:43
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
takita
Messages postés
14
Date d'inscription
mardi 21 juin 2011
Statut
Membre
Dernière intervention
19 janvier 2015
8 janv. 2015 à 20:12
8 janv. 2015 à 20:12
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
jordane45
Messages postés
38144
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 avril 2024
4 650
8 janv. 2015 à 20:31
8 janv. 2015 à 20:31
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
takita
Messages postés
14
Date d'inscription
mardi 21 juin 2011
Statut
Membre
Dernière intervention
19 janvier 2015
9 janv. 2015 à 15:05
9 janv. 2015 à 15:05
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
jordane45
Messages postés
38144
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 avril 2024
4 650
>
takita
Messages postés
14
Date d'inscription
mardi 21 juin 2011
Statut
Membre
Dernière intervention
19 janvier 2015
9 janv. 2015 à 15:07
9 janv. 2015 à 15:07
Maintenant est-il possible qu'à l'ouverture du fichier que la cellule active soit celle de la date du jour ?
Oui.. mais là .. c'est une nouvelle Question...
Donc je t'invite à mettre cette présente discussion en résolu .. puis à ouvrir une nouvelle discussion pour exposer cette nouvelle demande.
takita
Messages postés
14
Date d'inscription
mardi 21 juin 2011
Statut
Membre
Dernière intervention
19 janvier 2015
9 janv. 2015 à 15:11
9 janv. 2015 à 15:11
très bien.
14 nov. 2014 à 08:03
14 nov. 2014 à 15:24
Merci encore. Cidessous le lien pour accéder à mon fichier
https://www.cjoint.com/?0KonU1vsy2O
11 déc. 2014 à 13:59
Je ne veux pas être embêtante,
j'attends toujours des réponses si possible évidemment.
11 déc. 2014 à 14:19
Tu n'es pas embêtante.
Mais :
Donc, le fichier n'est plus accessible.
8 janv. 2015 à 15:27
ci-joint le lien
https://www.cjoint.com/c/EAipDhbC35c
merci pour vos réponses.