Microsoft 365 VBA test : si la ou les colonnes à côté sont masquées, les enjamber

[Viro_Major]

Bonjour, suite à un event de changement de valeur, j’aimerais que le curseur se place sur la cellule de la première colonne à droite visible (affichée et non masquée)

Exemples :
* cellule C3 active, colonnes D et E masquées à détecté alors je veux sélectionner F3
* cellule C3 active, colonne D affichée (non masquée), alors sélectionner D3
* cellule C3 active, colonne D masquée et E affichée, alors sélectionner E3

Le bout de code devrait être générique pour fonctionner sur une plage de cellule, genre C3:Z20

Je n’arrive qu’à coder un embryon de ce dont j’ai besoin. Merci d’avance pour toute aide

 

[Rouge]

Bonjour,

A mettre dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C3:Z20")) Is Nothing Then
        For i = Target.Column + 1 To 26
            If Columns(i).Hidden = False Then
                Cells(Target.Row, i).Select
                End
            End If
        Next i
    End If
End Sub

Cdlt

 

[Staple1600]

Bonjour le fil

Si j'ai bien compris
On peut se passer de macro
Quand on saisit une valeur dans une cellule et qu'on valide avec la touche Tabulation au lieu d'ENTREE, on se retrouve dans la première cellule visible à droite (donc après les colonnes masquées si il y en a)

 

[Viro_Major]

Bonjour le fil

Si j'ai bien compris
On peut se passer de macro
Quand on saisit une valeur dans une cellule et qu'on valide avec la touche Tabulation au lieu d'ENTREE, on se retrouve dans la première cellule visible à droite (donc après les colonnes masquées si il y en a)

Intéressant ! Merci je ne connaissais pas cette astuce. Remarque, j’utilise un VPS via une tablette et son clavier n’a pas la touche Tabulation donc je me cantonnerai à la macro mais merci du tuyau

@Rouge merci infiniment. Je m’en servirai de support ultérieurement aussi pour d’autres besoins

Bon dimanche à tous

 

[Staple1600]

Re

=>Viro_Major
Pour ma gouverne
Qu'est-ce qu'un VPS?
Et les macros Excel fonctionnent désormais sur les tablettes?
(Ce n'était pas le cas, avant non?)

 

[Viro_Major]

@Staple1600

Un VPS (Virtual Private Server) est un compartiment d‘environnement virtualisé appartenant à un serveur dédié.
Bref, au lieu d’utiliser un ordinateur à la maison, depuis plusieurs années, je loue des machines distantes, auxquelles je me connecte via RDP (app gratuite à télécharger) sur ma tablette. Elles peuvent tourner sous Windows ou Linux
J’ai donc accès à Windows au travers de ma tablette, comme un ordi normal (difficile de faire la distinction) sauf qu’il n’est pas en ma possession physique.

Ca a de nombreux avantages. Notamment, aucun bruit, pas de chaleur dissipée, et c’est économique. Pas d’entretien à prévoir car les sociétés qui commercialisent les VPS s’occupent d’upgrader les composants périodiquement. Enfin, je peux laisser mon PC distant allumé jour et nuit H24 7/7, étant prévu pour, sans ralentissement, sans reboot. Donc je gagne du temps en manipulation aussi.
Et donc on peut s’y connecter par un téléphone, une tablette, ou bien un PC tout pourri qui tient tout juste la route, et tout de même jouir de machines très puissantes

Quelques sociétés qui en commercialisent

Virtual Dedicated Servers 🥇 More than a Dedicated VPS | Contabo

The best of VPS and Dedicated Servers: ✅ 100% NVMe SSD Storage ✅ Quick Provisioning ✅ Dedicated Physical CPU Cores & RAM

contabo.com

Truly thrifty cloud hosting - Hetzner Online GmbH

Cloud servers starting at € 3.79. A little money gets you lots of cloud. Our flexible billing model and clever interface make it easy to use our cloud servers for all your IT needs.

www.hetzner.com

Avec Hetzner on peut les déployer au besoin, pour le temps voulu. Il n’y a pas d’échéance

Même principe mais en serveur dédié (machines plus grosses et cette fois complètes, pas partagées avec d’autres utilisateurs)

Dedicated Server Hosting

Find your reliable dream server, optimized for high capacity use, ever-growing storage needs or rapid and parallel processing.

www.hetzner.com

Dedicated Server Hosting

Find your reliable dream server, optimized for high capacity use, ever-growing storage needs or rapid and parallel processing.

www.hetzner.com

Il est aussi possible d’installer des templates de Windows gratuitement sans le louer (par exemple, Hetzner, société allemande, ne loue Windows que pour leurs serveurs mais pas pour les VPS. Ils acceptent qu’on installe sa propre copie !)

Microsoft Windows Templates - WhatUpTime.com

You may locate all of our available Microsoft Windows templates and applicable login credentials in each of the sections below. Please review the information below each heading to ensure you are choosing the correct template for your system. In

www.whatuptime.com

 

[Staple1600]

Re

=>Viro_Major
Merci pour ce retour d'information très complet.
J'ai appris quelque chose aujourd'hui

 

[Viro_Major]

Avec plaisir, je partage volontiers mes connaissances, et j’appelle au secours lorsque j’en manque jusque là, logique

De quelle façon suis-je sensé déclaré la variable i ? (Béaba, je me doute)

 

[Staple1600]

Re
Dans un premier temps (par facilité) supprimez Option Explicit

 

[Staple1600]

Ou

Déclarer i As Long en début de code
(Pas évident de voir sur une copie d'écran)

 

[Staple1600]

Ce qui donnerait
Dim adr$, col&, lig&, i&

 

[soan]

Bonjour Viro_Major, Staple, le fil,

moi, j'utilise Long pour les lignes, et Integer suffit pour les colonnes :

colonne maxi = XFD = 16384 : ça tient dans la plage d'un Integer

donc : Dim i As Integer ou : Dim i%

➯ Dim adr$, col%, lig&, i%

(col aussi en Integer)

soan

 

[soan]

d'autre part, selon la copie d'écran, y'a 2 mauvais Else:

comme le signe « : » est collé contre le Else, ça signifie :

« sinon rien du tout »

soan

 

[Viro_Major]

Re
Dans un premier temps (par facilité) supprimez Option Explicit

lol en fait je la recopie souvent bêtement comme un perroquet sans même savoir à quoi elle sert. Je rechercherai

ok pour As Long! Merci

pour la copie d’écran, si vous cliquez dessus, celà l’agrandira en quasi plein écran

merci encore

 

[Viro_Major]

Bonjour Viro_Major, Staple, le fil,

moi, j'utilise Long pour les lignes, et Integer suffit pour les colonnes :

colonne maxi = XFD = 16384 : ça tient dans la plage d'un Integer

donc : Dim i As Integer ou : Dim i%

➯ Dim adr$, col%, lig&, i%

(col aussi en Integer)

soan

merci ! Chiadé l’explication perfectionniste

hum ok pour le Else, donc je le décolle : d’un espace pour lui redonner son sens originel ?
edit: non, ça se recolle, donc je supprime au lieu de ça