[RESOLU] Explication code

cp4 · 9 Janvier 2018

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'

VB:

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 · 9 Janvier 2018

Hello

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

cp4 · 9 Janvier 2018

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 · 9 Janvier 2018

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 · 9 Janvier 2018

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!

VB:

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 · 9 Janvier 2018

Bonsour®

Staple1600 à dit:
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!

VB:

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 · 9 Janvier 2018

Bonsoir Modeste geedee

Compliquons, compliquons, il en restera toujours quelquechose

VB:

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 · 10 Janvier 2018

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.

[RESOLU] Explication code

cp4

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires