Probleme de selection de colonnes multiples

[Payou]

Bonjour a tous,

je croyais en avoir fini de decoudre avec Excel, et voila qu'il me cherhce a nouveau. En fait je cherche a vider une ligne, sauf la colonne "R" ou "18" au choix.

Mais en entrant ma formule, il me reponds "Wrong number of arguments or invalid property assignment"

Voila le code:

Dim kRange As Range
    Set kRange = Columns(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22)
    Worksheets("Data Base").Activate
    ActiveSheet.Rows(ActiveCell.Row).kRange.Select
    Selection.ClearContents

Ou est la faute? Ca parait logique non? J'ai egalement essayer avec les lettres aussi, en mettant du style

Columns ("B:Q, S:U")

mais ca ne marche pas non plus, enfin je crois que j'ai essayer je sais pas de combinaison en tentant meme des unions, mais il veux rien savoir..

QQ'un aurait-il une idee?

Merci d'avance.

Payou

 

[keepcool183]

Re : Probleme de selection de colonnes multiples

Bonjour Payou,

Columns ("B:Q, S:U")

Payou

Déjà il manque des "" ici >> columns("B:Q","S:U") et columns doit s'écrire ainsi columns(ligne, colonne) (tu peux toujours consulter l'aide en te positionnant sur la fonction et en appuyant sur F1 )

Essaye avec ceci :

 Sub payou()
For i = 2 To 17
Cells(ActiveCell.row, i).ClearContents
Next
For i = 19 To 22
Cells(ActiveCell.row, i).ClearContents
Next
End Sub

A tester chez toi

 

[Payou]

Re : Probleme de selection de colonnes multiples

Bonjour Keepcool183, heureux de pouvoir retravailler avec toi

Je vais tester ca desuite, et je te dirais si cela fonctionne

Merci

EDIT: Je le savais que travailler avec toi serait productif lol, 1 post, un probleme resolu. Merci beaucoup.

Payou

 

[Minick]

Re : Probleme de selection de colonnes multiples

Salut,

Plus simplement comme ca (pour la selection de colonne) :

Set kRange = Range("B:Q,S:U")

++
Minick

Edit: salut, keepcool183

 

[Payou]

Re : Probleme de selection de colonnes multiples

Bonjour Minick,

Juste pour info, j'avais deja essaye cette solution et elle n'avait pas fonctionne

Bonne journee

Payou

 

[job75]

Re : Probleme de selection de colonnes multiples

Bonjour,

La solution de Minick est basique et fonctionne bien sûr...

Par contre ceci n'a pas de sens :

ActiveSheet.Rows(ActiveCell.Row).kRange.Select

Il faut écrire :

Intersect(ActiveCell.EntireRow, kRange).Select

A+