Sélectionner les lignes de la date du jour + Verrouiller emplacement

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Sélectionner les lignes de la date du jour + Verrouiller emplacement

tigrouille

Banana !

Yop,

je cherche un moyen de sélectionner les cellules A à F des lignes correspondantes à la date du jour saisie en colonne A.

Dans la colonne A, il n'y a que des dates. Les autres sont remplies ou non.

En affectant la macro à un bouton, je veux que ça me sélectionne les lignes concernant chaque jour.

De plus, ces boutons (formes) doivent être verrouillés (option figer les volets par exemple) mais impossible de trouver comment faire.

Comme ça, qu'on soit à la ligne 2 ou 4512, les boutons sont toujours à la même place.

Merci d'avance.

-------------------------------------------------------------------------------------------

Voici où j'en suis, mais ça sélectionne que la cellule de la colonne A et si y a plusieurs lignes avec la même date, ça prend la dernière cellule :

Code :

Sub DateJour()
X = Evaluate("ADDRESS(MATCH(TODAY(),A1:A65535),1)" )
'Range(Range(X), Range(X).Offset(0, -12)).Select
Range(X).Select
End Sub

Donc la variable X contient par exemple : A72
Et moi je voudrais sélectionner A72 à F72 (+ A73 à F73 + A74 à A74... si toujours la date du jour).

Message édité par tigrouille le 11-10-2013 à 15:42:50

---------------
Cartes DBS Card Game - REDFACE - VDS Fig-Goodies - VDS Matos - Collec'PoP - Steam - Bnet: tigrouille#2758

Publicité

Marc L

Pas glop,

la sélection c'est bien (en fait non !) mais pour en faire quoi ?

Ensuite rien de tel que le filtre automatique à combiner avec l'Enregistreur de macros pour avoir une base de code …

tigrouille

Banana !

La sélection ?

C'est juste pour qu'après ma macro de mise en forme automatique sur les 400 lignes du tableau, ce soient les lignes du jour qui apparaissent et non le début du tableau avec une sélection de la totalité de celui-ci...

Ma macro de mise en forme, une tuerie !

Code :

Sub Forme()
Dim Num As Integer
Dim Couleur(1) As Integer
debut = 2
fin = debut
Couleur(0) = 24
Couleur(1) = 35
'On lance la fonction Reset
reset
'On va parcourir toutes les lignes occupées
Do While Cells(debut, 1) <> ""
'Tant qu'on a une action en A mais qu'on a pas de date
'Alors on va une ligne plus loin
Do While (Cells(fin + 1, 1) <> "" And Cells(fin + 1, 1) = Cells(fin, 1))
fin = fin + 1
Loop
'On selectionne de la premiere a la dernier ligne de la date
With Range("A" & debut & ":F" & fin) '<- si la dernière colonne n'est plus F modif à faire ici !
.BorderAround Weight:=xlMedium
.Borders(xlInsideVertical).LineStyle = xlDash
.Borders(xlInsideVertical).LineStyle = xlDash
.Interior.ColorIndex = Couleur(Num Mod 2)
Num = Num + 1
End With
'On passe à la date suivante
debut = fin + 1
fin = debut
Loop
DateJour
End Sub

Macro reset

Code :

Sub reset()
Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
i = 1
Do While Cells(i, 4) <> ""
i = i + 1
Loop
Range("A2:F" & i).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
DateJour
End Sub

---------------
Cartes DBS Card Game - REDFACE - VDS Fig-Goodies - VDS Matos - Collec'PoP - Steam - Bnet: tigrouille#2758

Marc L

Code :

Sub Test()
Dim Rg As Range
Set Rg = Columns(1).Find(Date, , xlValues)
If Not Rg Is Nothing Then Rg.Select
Set Rg = Nothing
End Sub

Message cité 1 fois

MaybeEijOrNot

but someone at least

Je n'ai pas bien compris ce que tu veux faire au final mais une mise en forme conditionnelle avec comme condition sur ta plage de cellules que la valeur de la cellule doit être égale à "=AUJOURDHUI()" ne suffit pas?

Message cité 1 fois

tigrouille

Banana !

Marc L a écrit :

Code :

Sub Test()
Dim Rg As Range
Set Rg = Columns(1).Find(Date, , xlValues)
If Not Rg Is Nothing Then Rg.Select
Set Rg = Nothing
End Sub

Merci, je testerai lundi.

MaybeEijOrNot a écrit :

Non, la mise en forme n'a rien à voir avec la sélection finale car je veux faire la mise en forme de tout le tableau mais à la fin je veux que la page et le curseur se centre sur les évènements du jour.

---------------
Cartes DBS Card Game - REDFACE - VDS Fig-Goodies - VDS Matos - Collec'PoP - Steam - Bnet: tigrouille#2758

tigrouille

Banana !

Marc L, ta solution me donne bien la première case de la ligne correspondant à la date du jour.

~~Serait-il possible ensuite de sélectionner cette case + les autres à côté jusqu'à la colonne "F" ?~~
Je modifie ça :

Code :

If Not Rg Is Nothing Then Range(Rg, ActiveCell.Offset(0, 5)).Select

ET
~~Que ça vérifie si sur la ligne du dessous la date est la même et si oui que ça sélectionne pareil jusqu'à "F" ?~~

Code :

Sub DateJour()
Dim Rg As Range
Set Rg = Columns(1).Find(Date, , xlValues)
Rg.Select
'If Not Rg Is Nothing Then Range(Rg, ActiveCell.Offset(0, 5)).Select
If ActiveCell.Offset(1, 0) = Rg Then Range(Rg, ActiveCell.Offset(1, 5)).Select
Set Rg = Nothing
End Sub

Jusqu'à ce que la date change...

Message édité par tigrouille le 15-10-2013 à 11:55:20

---------------
Cartes DBS Card Game - REDFACE - VDS Fig-Goodies - VDS Matos - Collec'PoP - Steam - Bnet: tigrouille#2758

Marc L

Volontairement je ne l'ai pas fait car imagine seulement si l'utilisateur appuie sur la touche de suppression …

Code :

Sub Demo()
Dim Rg As Range
Set Rg = Columns(1).Find(Date, , xlValues)
If Not Rg Is Nothing Then
ActiveWindow.ScrollRow = Rg.Row
Range(Rg, Columns(1).Find(Date, , xlValues, , , xlPrevious)).Resize(, 6).Select
Set Rg = Nothing
End If
End Sub

tigrouille

Banana !

L'utilisateur n'a aucun droit de modif sur le fichier, c'est uniquement pour moi.

C'est quoi la différence entre ton truc et ce que j'ai mis ?

---------------
Cartes DBS Card Game - REDFACE - VDS Fig-Goodies - VDS Matos - Collec'PoP - Steam - Bnet: tigrouille#2758

tigrouille

Banana !

Ah ouais, bien ton machin !!

Seul défaut, ça me met les lignes sélectionner en début de page, serait-il possible de les mettre au milieu plutôt ? (oui désolé je suis un casse-coui****).

---------------
Cartes DBS Card Game - REDFACE - VDS Fig-Goodies - VDS Matos - Collec'PoP - Steam - Bnet: tigrouille#2758

Publicité

Marc L

Enlever la ligne n°7 et Excel centrera à peu près …

tigrouille

Banana !

Bien vu !

Merci pour toute ton aide !

---------------
Cartes DBS Card Game - REDFACE - VDS Fig-Goodies - VDS Matos - Collec'PoP - Steam - Bnet: tigrouille#2758

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Sélectionner les lignes de la date du jour + Verrouiller emplacement

Sujets relatifs
comparer et mettre a jour 2 tables en SQL	VBA - couleur texte cellule en fonction du jour
copier des lignes sous condition vers autre feuille	UNION de 4 tables, GROUP BY NomServeur HAVING MAX(Date)
Etirer la formule de plusieurs lignes jusqu'en bas de mon tableau	Bug sur retour jour semaine
Verrouiller les cellules de tous les onglets d'un classeur.	créer un fichier xml et l'afficher dans un emplacement bien déterminé
Formulaire et date et MySQL	mise à jour d'une table de base de données
Plus de sujets relatifs à : Sélectionner les lignes de la date du jour + Verrouiller emplacement

Page générée en 0.067 secondes