BJR
j'ai d=E9fini un tableau TabCol pour les num=E9ros de=20
colonnes accept=E9es. Je voudrais savoir si la colonne de=20
la cellule active est comprise dans la liste. Comment=20
chercher dans un tableau ??
J'ai commenc=E9 la proc=E9dure ainsi mais je me tire les=20
cheveux !!!!
Merci de m'aider
Private Sub Worksheet_SelectionChange(ByVal Target As=20
Range)
plg=3Dselection =20
Dim TabCol As Variant=20
TabCol =3D Array(3, 5, 7, 9, 11)
if ......
Very cordialement
Eliot
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Eliot,
If Not IsError(Application.Match(ActiveCell.Column, TabCol, 0)) Then
isabelle
BJR j'ai défini un tableau TabCol pour les numéros de colonnes acceptées. Je voudrais savoir si la colonne de la cellule active est comprise dans la liste. Comment chercher dans un tableau ?? J'ai commencé la procédure ainsi mais je me tire les cheveux !!!! Merci de m'aider Private Sub Worksheet_SelectionChange(ByVal Target As Range) plg=selection Dim TabCol As Variant TabCol = Array(3, 5, 7, 9, 11) if ...... Very cordialement Eliot
bonjour Eliot,
If Not IsError(Application.Match(ActiveCell.Column, TabCol, 0)) Then
isabelle
BJR
j'ai défini un tableau TabCol pour les numéros de
colonnes acceptées. Je voudrais savoir si la colonne de
la cellule active est comprise dans la liste. Comment
chercher dans un tableau ??
J'ai commencé la procédure ainsi mais je me tire les
cheveux !!!!
Merci de m'aider
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
plg=selection
Dim TabCol As Variant
TabCol = Array(3, 5, 7, 9, 11)
if ......
Very cordialement
Eliot
If Not IsError(Application.Match(ActiveCell.Column, TabCol, 0)) Then
isabelle
BJR j'ai défini un tableau TabCol pour les numéros de colonnes acceptées. Je voudrais savoir si la colonne de la cellule active est comprise dans la liste. Comment chercher dans un tableau ?? J'ai commencé la procédure ainsi mais je me tire les cheveux !!!! Merci de m'aider Private Sub Worksheet_SelectionChange(ByVal Target As Range) plg=selection Dim TabCol As Variant TabCol = Array(3, 5, 7, 9, 11) if ...... Very cordialement Eliot
Eliot
Merci beaucoup Isabelle, cela marche très bien, c'est ce que je voulais. Amicalement Eliot
-----Message d'origine----- bonjour Eliot,
If Not IsError(Application.Match(ActiveCell.Column, TabCol, 0)) Then
isabelle
BJR j'ai défini un tableau TabCol pour les numéros de colonnes acceptées. Je voudrais savoir si la colonne de la cellule active est comprise dans la liste. Comment chercher dans un tableau ?? J'ai commencé la procédure ainsi mais je me tire les cheveux !!!! Merci de m'aider Private Sub Worksheet_SelectionChange(ByVal Target As Range) plg=selection Dim TabCol As Variant TabCol = Array(3, 5, 7, 9, 11) if ...... Very cordialement Eliot .
Merci beaucoup Isabelle, cela marche très bien, c'est ce
que je voulais.
Amicalement
Eliot
-----Message d'origine-----
bonjour Eliot,
If Not IsError(Application.Match(ActiveCell.Column,
TabCol, 0)) Then
isabelle
BJR
j'ai défini un tableau TabCol pour les numéros de
colonnes acceptées. Je voudrais savoir si la colonne de
la cellule active est comprise dans la liste. Comment
chercher dans un tableau ??
J'ai commencé la procédure ainsi mais je me tire les
cheveux !!!!
Merci de m'aider
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
plg=selection
Dim TabCol As Variant
TabCol = Array(3, 5, 7, 9, 11)
if ......
Very cordialement
Eliot
.
Merci beaucoup Isabelle, cela marche très bien, c'est ce que je voulais. Amicalement Eliot
-----Message d'origine----- bonjour Eliot,
If Not IsError(Application.Match(ActiveCell.Column, TabCol, 0)) Then
isabelle
BJR j'ai défini un tableau TabCol pour les numéros de colonnes acceptées. Je voudrais savoir si la colonne de la cellule active est comprise dans la liste. Comment chercher dans un tableau ?? J'ai commencé la procédure ainsi mais je me tire les cheveux !!!! Merci de m'aider Private Sub Worksheet_SelectionChange(ByVal Target As Range) plg=selection Dim TabCol As Variant TabCol = Array(3, 5, 7, 9, 11) if ...... Very cordialement Eliot .
