[RESOLU] Explication code

vgendron

XLDnaute Barbatruc

• 9 Janvier 2018

• #2

Hello

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 9 Janvier 2018

• #3

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.😉

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 9 Janvier 2018

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2018

• #5

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 9 Janvier 2018

• #6

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

Cliquez pour agrandir...

😉
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 ...🙄

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2018

• #7

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 10 Janvier 2018

• #8

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.

 

Vote positif 0 Vote négatif