Discussion :

[bartimeus35]

Bonjour à tous,

Je voudrais vider la colonne n°2 de Feuil1
Impossible de trouver mieux que le code ci-dessous c'est laid

Mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set objWkbk = objXL.Workbooks.Open("D:\documents\_tmp\Classeur1.xlsx")
 
objWkbk.Worksheets("Feuil1").Range(Cells(1, 2), Cells(65000, 2)).ClearContents

Une solution ? pour prendre toute la colonne et enuite faire une ClearContsnts

Merki

[Nain porte koi]

Hello,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set objWkbk = objXL.Workbooks.Open("D:\documents\_tmp\Classeur1.xlsx")
 
objWkbk.Worksheets("Feuil1").Columns("B:B").ClearContents

un peu plus court

[bartimeus35]

Merci, mais si je veux utiliser le numéro de la colonne et non pas la lettre c'est possible ?
et quelle syntaxe avec la variable Ma_col qui contient le numéro de la colonne ?

Merki *1000

[Nain porte koi]

Ah ben oui, c'est même plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objWkbk.Worksheets("Feuil1").Columns(Ma_col).ClearContents

[bartimeus35]

Hello,
J'ai fait un test et ca fonctionne.
Mais j'ai un autre cas ou avec le code ci-dessous, ça plante avec le message d'erreur suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub reset_file(oWkb_src, onglet_src, col_BILAN)
 
    'on vide la colonnes BILAN
    oWkb_src.Worksheets(onglet_src).Columns(col_BILAN).ClearContents
 
    ' init des titres
    oWkb_src.Sheets(onglet_src).Cells(1, col_BILAN) = "BILAN"
 
 
End Sub

Message d'erreur sur le clear Contents

NOTE : mon fichier est bien ouvert car je le vois, et si je commente la ligne ClearContents, la ligne suivante s’exécute bien.
Quel peut être le problème.

Je sèche

[Nain porte koi]

Hello,

chez moi tout fonctionne normalement, n'ty aurait-il pas une fusion de cellule ou une cellule protégé ou...

[bartimeus35]

Non je n'ai rien de protégé ou de fusionné.
Si je fais l'opération manuellement,

• je selectionne la colonne
• suppr
• =>c'est OK.

C'est vraiment bizarre...

[Nain porte koi]

Bizarre, vous avez dit bizarre, comme c'est étrange

A tout hasard ajoutez un MsgBox col_BILAN, j'aimerai bien savoir ce qu'il y a exactement dans ce numéro
Un autre test à faire, mettez un nombre directement à la place de la variable col_BILAN

[bartimeus35]

col_BILAN contint 51 ce qui correspond à colonne "AY".
Ce qui est étonnant c'est que le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oWkb_src.Sheets(onglet_src).Cells(1, col_BILAN) = "BILAN"

fait bien ce que je veux