selection colonne

[chrisdu73]

bonjour a tous,
comment ecrire en vba une ligne qui me selectionne des colonnes dans un tableau croise dynamique d'apres un nom de champs.
merci a tous

 

[chrisdu73]

Re : selection colonne

je joins un bout de fichier, et les colonnes a selectionner sont en couleur
merci encore

 

[pierrejean]

Re : selection colonne

bonjour chrisdu 73

Une ligne:

Call selection

Mais apres avoir recopié ceci dans un module

Sub selection()
Dim n As Integer
For n = 1 To Range("IV5").End(xlUp).Column
  If Cells(5, n) = "ATR" Or Cells(5, n) = "CHE" Then
    col = col & lettre(n) & ":" & lettre(n) & ","
  End If
Next n
col = Left(col, Len(col) - 1)
Range(col).Select
End Sub
Function lettre(no As Integer)
lettre = Replace(Cells(1, no).Address(0, 0), "1", "")
End Function

 

[chrisdu73]

Re : selection colonne

merci pour votre reponse rapide,
je pensais que se serai plus simple que ca,
en faite je selectionne une fois les champs ATR et une autre fois les champs CHE car je copie les colonnes en deux fois.
et merci encore pour votre aide

 

[pierrejean]

Re : selection colonne

Re

La version avec choix

Tester les sub test et test1

 

[chrisdu73]

Re : selection colonne

cool,
cela correspond plus a mon attente, mais si je voudrais en plus selectionner la colonne A dans les deux cas ?
( juste pour info car je vais faire evoluer mon fichier)
merci et bon appetit
chris

 

[pierrejean]

Re : selection colonne

Re

Voila pour la colonne A en plus

J'ai répondu la 1ere fois en pensant qu'il fallait chercher les colonnes mais si tu les connais la ligne c'est

 Range("A:A,D:D,H:H").select

a adapter selon les colonnes

 

[chrisdu73]

Re : selection colonne

en faite la colonne A est toujours en A mais pour les autres il peu y avoir une colonne en plus donc pas forcemement en D ou H d'ou la demande precedente
merci encore