[RESOLU] Explication code

[cp4]

Bonjour,

Mes recherches sur le forum m'ont amené à cette discussion
J'ai recherché dans l'aide sans trouver de réponse.
Dans le code ci-dessous, je voudrais savoir à quoi correspond le '23'

Option Explicit
Sub Protection() 'code de JCGL
    Application.ScreenUpdating = 0
    With ActiveSheet
        .Unprotect "jcgl"
        Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True '*** 23???
        .Protect "jcgl", userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:=False
        .EnableSelection = xlUnlockedCells
    End With
    Range("B1").Select
End Sub

En vous remerciant par avance.

 

[vgendron]

Hello

tu as la réponse ici
https://www.generation-nt.com/repon...ypeconstants-excel-2000-entraide-3943631.html

 

[cp4]

Bonsoir Vgendron,

Merci beaucoup pour ton lien. J'ai compris.
Ce que je comprends moins, pourquoi dans l'aide le 23 n'existe pas
ci-dessous ce que donne l'aide

Bonne soirée.

 

[vgendron]

sans doute parce que l'aide n'explique pas qu'on peut cumuler différentes constantes:
23 = 16 +4 +2 +1
et entre nous. si l'aide Excel suffisait.. nous n'aurions pas besoin d'un ami comme Google :-D

 

[Staple1600]

Bonsoir le fil, le forum

Sans aide, sans web, mais avec ce bon vieil enregistreur de macros
Je lance l'enregistreur de macros,
Je sélectionne une colonne avec des données
puis F5 puis ALT+C puis ALT+C
je ferme l'enregistreur de macros
Et bingo!

Sub Macro1()
Selection.SpecialCells(xlCellTypeConstants, 23).Select
End Sub

Et si tu aimes les chiffres, tu peux simplifier ainsi
Selection.SpecialCells(2, 23).Select

 

[Modeste geedee]

Bonsour®

Bonsoir le fil, le forum

Sans aide, sans web, mais avec ce bon vieil enregistreur de macros
Je lance l'enregistreur de macros,
Je sélectionne une colonne avec des données
puis F5 puis ALT+C puis ALT+C
je ferme l'enregistreur de macros
Et bingo!

Sub Macro1()
Selection.SpecialCells(xlCellTypeConstants, 23).Select
End Sub

Et si tu aimes les chiffres, tu peux simplifier ainsi
Selection.SpecialCells(2, 23).Select

Et si tu aimes le bavardage , tu peux complexifier ainsi
Selection.SpecialCells(xlCellTypeConstants , xlErrors + xlLogical + xlNumbers + xlTextValues).Select


Complexifier est un moindre mal, car quand tu relira ton code plus-tard,, il ne sera pas nécessaire de sortir le décodeur ...

 

[Staple1600]

Bonsoir Modeste geedee

Compliquons, compliquons, il en restera toujours quelquechose

Sub toto()
Complexificator 2, 16, 4, 2, 1
End Sub

Private Sub Complexificator(Zabriskie_Point As XlCellType, a As XlSpecialCellsValue, b As XlSpecialCellsValue, c As XlSpecialCellsValue, d As XlSpecialCellsValue)
Selection.SpecialCells(Zabriskie_Point, a + b + c + d).Select
End Sub

Ci-dessous la version guidée par VBE lors de la saisie
Sub toto_Merci_Intellisense()
Complexificator xlCellTypeConstants, xlErrors, xlLogical, xlNumbers, xlTextValues
End Sub

 

[cp4]

Vgendron , Staple1600 , Modeste geedee

Bonjour à vous, le forum,

Un grand merci, je voulais juste comprendre pour mieux avancer.
C'est plus clair pour moi avec vos explications.
Je ne suis adepte ni des décodeurs ni de complexité, j'essaie d'apprendre simplement.

Toute ma gratitude pour votre aide.
Bonne journée.