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

 

[soan]

@Viro_Major

relis mon post #12 !

j'ai écrit « As Long » pour les numéros de lignes

et « As Integer » pour les numéros de colonnes

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

plage d'un Integer : -32 768 à 32 767

donc colonne maxi = XFD = 16 384 :

ça tient largement dans un Integer !

soan

 

[Viro_Major]

@Viro_Major

relis mon post #12 !

j'ai écrit « As Long » pour les numéros de lignes

et « As Integer » pour les numéros de colonnes

soan

oui ? C’était bon...

 

[soan]

c'est « As Long » pour lig : oui ; mais pour col et i,
c'est « As Integer », pas « As Long » ! d'où :

Dim adr As String, col As Integer, lig As Long, i As Integer

ou en plus court :

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

soan

 

[soan]

@Viro_Major

ton post #15 :
« 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 »

exact, ça sert à rien de « décoller » le signe « : » car il se remet contre le « Else » ;
donc il faut supprimer le signe « : », mais revoir aussi la logique de l'ensemble !

j'ai réécrit toute la fin de ta sub ainsi :

    If col > 3 And col < 64 Then
      If col = 17 Then .Offset(1, -4).Select Else .Offset(, 1).Select
      GoTo 1 'pas Exit Sub !! car il faut réactiver les événements !!
    End If
    Application.ScreenUpdating = 0: Application.EnableEvents = 0
    If col = 56 And lig > 4 And lig < 172 Then
      .Value = .Value - .Offset(, -1)
      If lig = 171 Then .Offset(-166, 1).Select Else .Offset(, 1).Select
    End If
1   Application.EnableEvents = -1
  End With
End Sub

c'est seulement une réécriture syntaxiquement correcte et plus optimisée,
mais pour l'exécution, j'peux pas t'garantir que ça te donnera le résultat
que tu attends ! au besoin, tu devras apporter des corrections !

soan

 

[Staple1600]

Bonjour soan

Certes
Mais comme souvent, je vois des
Dim DerLig As Integer
Je mets tout en Long (quand il s'agit de lignes et de colonnes)
Et le plus court, on pouvait déjà le lire message#11
(nonobstant le % pour integer)

 

[Viro_Major]

Hum merci merci. Faut que je prenne le temps que ça monte au cerveau. Je vais de ce pas consommer un susucre

 

[soan]

@Staple1600, @Viro_Major

tu as écrit : « je vois souvent des Dim DerLig As Integer »

c'est une TRÈS GROSSE erreur !!!

comme le nombre maxi d'un Integer est 32 767, il y aura un
plantage GARANTI sur ce code VBA :

DerLig = Cells(Rows.Count, 1).End(xlUp).Row

si n° dernière ligne utilisée >= 32 768

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

si tu vois : « Dim lig As Integer » puis : lig = ActiveCell.Row

c'est aussi un plantage GARANTI si ligne active >= 32768

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

si lig est utilisé dans une boucle « limitée », là oui,
tu peux mettre Integer ; ou même Byte ; exemple :

Sub Essai()
  Dim lig As Byte
  For lig = 2 To 20
    '...
  Next lig
End Sub

rappel : pour la plage Byte, maxi = 255, donc l'indice de
fin de boucle ne doit pas dépasser 255, sinon plantage !

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

tu pourrais dire : « la plupart des fichiers ont moins de 5 000
lignes, donc ça n'atteindra jamais 32 768 ! »

tu as raison, mais comment savoir la quantité de données
réelle du vrai fichier de l'utilisateur ? quels sont ses vrais
besoins ? même s'il a moins de 32 768 lignes aujourd'hui,
peut-être que dans un mois ou deux ça dépassera cette
limite fatidique ? et si oui, plantage alors que tout avait
bien marché jusque là !

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

enfin, même si l'utilisateur n'utilise jamais plus de 5 000
lignes, le cas de ActiveCell.Row mentionné plus haut
fera quand même un plantage si la cellule active est
sous la ligne 32 767 !

soan

 

[Staple1600]

Re,

soan
précisions
Quand je dis: je vois
C'est sur le forum ou les forums (mais pas dans mes codes VBA)
(Ce n'est pas ce que je fais puisque comme écrit précédemment
Quand il s'agit de ligne et colonne, je dimensionne en Long
Ce qui m'évite d'éventuels déboires.

Mais tes explications du message#22, si elles ne m'apprennent rien, serviront aux futurs lecteurs du fil.