Columns vba

Résolu/Fermé

clemencon Messages postés 2 Date d'inscription vendredi 20 avril 2007 Statut Membre Dernière intervention 20 avril 2007 - 20 avril 2007 à 15:25
clemencon Messages postés 2 Date d'inscription vendredi 20 avril 2007 Statut Membre Dernière intervention 20 avril 2007 - 20 avril 2007 à 15:55

Bonjour,

Je cherche a selectionner des colonnes pour les masquer apres, mais je n'ai dans les mains que les numeros des colonnes a masquer.

Je doit donc trouver un supterfuge pour transformer le num de la colonne en lettre.

J'ai trouve :

- Split(Columns(Numero).Address(ColumnAbsolute:=False), ":")(1)

Avec ca c cool, je peu bien recupere la lettre, mais quand je l'inscrit dans la fonction columns(), ca chie...

Ca me met : "Type mismatch"

Columns("& b : & c &").EntireColumn.Hidden = True

(b et c etant des variables contenant le split(.....) avec deux num de colonne different)

Comment faire ??
Quel type de donnee faut il mettre dans la fonction columns()

A voir également:

Vba columns
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Autofill vba ✓ - Forum Excel
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
20 avril 2007 à 15:52

bonjour,
il faut mettre un variable string, (alphanumérique)
transformer le N° de ta colonne en lettre
NomVariable$=asc(NumeroCol+64)
Si la colonne est 1 la variable NomVariable="a"
ou
Columns("& b : & c &").EntireColumn.Hidden = True
remplacer par
Columns( b & ":" & c).EntireColumn.Hidden = True
pas de guillemet pour les variables mais bien pour les valeur alpha.
louis

Réponse 2 / 2

clemencon Messages postés 2 Date d'inscription vendredi 20 avril 2007 Statut Membre Dernière intervention 20 avril 2007 1
20 avril 2007 à 15:55

Merci mon cher louis.

A tres bientot

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

appliquer une pause dans une macro vba excel