bouton de remise en place de la selection au même endroit qu'à l'ouverture du fichier

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Bonjour Pote et bienvenu, bonjour le forum,

Personnellement, j'ai rien compris à tes explications. Je pense qu'un petit fichier exemple indiquant ce que tu as avant et ce que tu voudrais après serait, comme toi, le bienvenu...

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Message en double supprimé

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Robert à dit:

Bonjour Pote et bienvenu, bonjour le forum,

Personnellement, j'ai rien compris à tes explications. Je pense qu'un petit fichier exemple indiquant ce que tu as avant et ce que tu voudrais après serait, comme toi, le bienvenu...

Cliquez pour agrandir...

Bonjour Robert, merci pour votre attention



En fait, en cliquant ce bouton il s’agit de remettre la même sélection de cellules en nombre et en position comme lors de l’ouverture du fichier (ce qui est sa position au dernier enregistrement).

Précision, la sélection est déjà conditionnée par :

Private Sub Worksheet_Change(ByVal Target As Range)
Set champ = [A2:T45]
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
Cells(Target.Row + 1, 1).Resize(1, champ.Columns.Count).Select
Target.Offset(1, 0).Activate
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [A2:T45]
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
Cells(Target.Row, 1).Resize(1, champ.Columns.Count).Select
Target.Activate
End If
End Sub
Ce qui agrandit la barre de sélection pour une meilleure lectur du tableau.


à plus Pote.

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Bonsoir Pote, bonsoir le forum,

C'est ce que fait naturellement Excel sans aucune macro il me semble...

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Bonjour à tous et bonjour Bernard,
C'est exactement ce que je voudrais faire en cliquant un bouton, et sans fermer excel, (selectionner la dernière ligne qui était selectionnee pour me souvenir de quel jour on était hier)
Précision: c'est donc hier que j'ai enregisté et fermé ce fichier pour la dernière fois.

Celà peut parraître bicornu comme façon de penser, mais c'est ce qu'il me faut pour
boucler la boucle informatique de mon petit cerveau.

@plus pote.

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Bonjour Pote, Bernard (qui c'est celui-là), bonjour le forum,

On pourrait stocker les possitions des cellules actives à l'ouverture du classeur :
Ensuite la macro repos permet de repositionner les cellules actives de chaque onglet :
Le fichier :

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Bonjour mon Cher Pote Robert, et aussi Bonjour à Pote et au Forum 😉

Très chouette Robert, ça le fait !

Moi j'ai retenu ceci

il s'agirait en un clic de replacer la ligne de selection sur la date du jour, même après modifications de certaines cellules

Cliquez pour agrandir...

Donc voici ma contribution ! Ca peut être une autre approche...

Bien à vous
@+Thierry

Edition AH oui Bonjour à Bernard aussi LOL

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Salut robert, maintenant je dis plus que salut....avec ce que tu me propose, je pense que l'ordi peut bien se tourner le doigt dans le c... pendant au moins une heure avant de faire un truc et on devine pas vraiment quoi?
Pourquoi ne propose tu pas la solution à ma question sur le forum plutôt que par message?

"Il peut y avoir eu d'autres réponses, mais vous ne recevrez pas de nouvelle notification avant votre prochaine visite du forum.

Cordialement,
L'équipe Excel Downloads Forums"

L'équipe en question ne trouverait elle pas ce code bizaroide pour répondre à la question posée ? à moins qu'elle ne le trouve ammusant pour un être de 52 ans d'age ou totalement incorecte


A voir...
Robert vient de répondre à une discussion à laquelle vous êtes abonné :
Forum : Forum Excel (sur Excel Downloads Forums)
Intitulé de la discussion : Excel 2002 (XP) bouton de remise en place de la selection au même endroit qu'à l'ouverture du fichier
On pourrait stocker les possitions des cellules actives à l'ouverture du classeur :
<div class="bbcode_container">
<div class="bbcode_description">Code :</div>
<div class="bbcode_code"><code><div class="" style="font-family:monospace;">Private Sub Workbook_Open()<br />
Dim i As Integer 'déclare la variable i (Incrément)<br />
<br />
Application.ScreenUpdating = False 'masque les rafraîchissements d'eçran<br />
ReDim ca(1 To Sheets.Count, 1) 'redimensionne le tableau de variables ca<br />
For i = 1 To Sheets.Count 'boucle sur tous les onglets du classeur<br />
&nbsp; &nbsp; Sheets(i).Select 'sélectionne l'onglet de la boucle<br />
&nbsp; &nbsp; ca(i, 0) = Sheets(i).Name: ca(i, 1) = ActiveCell.Address<br />
Next i 'prochain onglet de la boucle<br />
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran<br />
End Sub</div></code></div>
</div> Ensuite la macro *repos* permet de repositionner les cellules actives de chaque onglet :
<div class="bbcode_container">
<div class="bbcode_description">Code :</div>
<div class="bbcode_code"><code><div class="" style="font-family:monospace;">Public ca() As String 'déclare le tableau de variables ca (Cellules Actives)<br />
Public Sub repos()<br />
<br />
Application.ScreenUpdating = False 'masque les rafraîchissements d'eçran<br />
For i = 1 To UBound(ca, 1) 'boucle sur tous les onglets du classeur<br />
&nbsp; &nbsp; On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)<br />
&nbsp; &nbsp; Sheets(ca(i, 0)).Select 'sélectionne l'onglet (génère une erreur si l'onglet a été supprimé)<br />
&nbsp; &nbsp; If Err <> 0 Then Err = 0: GoTo suite 'si une erreur a été générée, supprime l'erreur va à l'étiquette "suite"<br />
&nbsp; &nbsp; ActiveSheet.Range(ca(i, 1)).Select 'sélectionne la cellule indiquée dans la variable ca(i,1)<br />
suite: 'étiquette<br />
Next i 'prochain onglet de la boucle<br />
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran<br />
End Sub</div></code></div>
</div> Le fichier :

***************
Merci quand même @plus

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Bonsoir Pote,


Tu es actuellement sur le Forum publique, je ne sais pas quel problème tu as pour croire que tu es en messagerie ?

@+Thierry

PS et le code que te propose Robert fait EXACTEMENT Ce que tu demandes, mais c'est vrai que c'est compliqué à comprendre.

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Bonsoir Pote, Bernard, Thierry, bonsoir le forum,

@Pote, tu prends quoi comme drogue(s) ? Je veux absolument goûter ça... Tu me l'envoies par mail perso hein...
@Thierry, l'est pas fada celui-là ?

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Hi Robert !!! Mdr

En tout cas l'est plus ton pote 🙄

@+Thierry

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Bonsoir le forum
Bonsoir pote, Robert, _Thierry & bien sur Bernard (le grand nanard qui brille par son absence)

Je ne ferai pas avancer le schmilblink sur ce post mais je suis ravi de l'avoir lu. Que du bonheur.
Bonne soirée à vous tous

Re : bouton de remise en place de la selection au même endroit qu'à l'ouverture du fi

Salut à toi mon cher Eric, toi t'es un pote !

Vaut mieux rigoler, hein 😱

BIen à Toi
@+Thierry

PS en fait on fait une sacrée fine équipe !