Discussion :

[Tomme]

J'aimerais supprimer toute les colonnes contenant des informations situées après la colonne "Q" pour cela j'ai écrit le petit bout de programme suivant

Code :

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

1
2
3
Do While Range("Q:Q").Select <> Empty
        Selection.Delete
Loop

Je me suis dit que lorsque la colonne "Q" sera vide le programme arrètera de boucler (<> Empty) , ... Ben non

en l'exécutant je vois petit les colones se décaler est se "supprimer" mais lorsque la dernière colone est effacée : ca continue à boucler !!

Merci pour toute aide

[alsimbad]

c'est balot hein
en fait quand tu suprime la colonne Q, il prend la colonne R, il la décale vers la gauche,.......et il l'appelle Q
en outre si tu regarde la valeur de ta condition

Code :

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

Range("Q:Q").Select <> Empty = vrai

mais si tu essaye avec

Code :

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

Range("Q:Q").Select = Empty

tu t'apercevra qu'elle est aussi égale a vrai
et par contre j'ai essayé

Code :

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

Range("Q:Q") = Empty

et là ça passe pas, incompatiblité de type


en fait avec l'enregistreur de macro, tu aurais pu obtenir

Code :

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

1
2
3
4
5
6
 
Sub Macro1()
    Columns("Q:Q").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
End Sub

qui est bien plus rapide qu'une boucle
et l'améliorer en faisant

Code :

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

1
2
3
4
 
Sub Macro1()
    Range(Columns("Q:Q"), Selection.End(xlToRight)).ClearContents
End Sub

voila, voila

[Tomme]

Super! Ce que vous m'avez donné marche parfaitement !

Mais j'abouse encore de votre temps, je voudrais savoir, savez-vous pourquoi même en ayant supprimer toutes les colonnes après la "Q" le barre de déplacement horizontale continue a rester grande, alors quel devrais se réduire ?

je sais pas si tu saisis ce que je dit (je suis pas très claire)

en gros j'ai :

Code :

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

blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla                                                                                                                                                                                                   .

Alors que je voudrais :

Code :

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

blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla blabla

Avez vous une idée ?

[zazaraignée]

Soit ta sélection contient encore des formats de nombre (ou de texte) ou autre attributs, soit c'est simplement parce que les cellules vides sont là, tout simplement. Tu peux toujours les masquer.

Code :

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

1
2
3
4
5
6
Sub Macro1()
    Dim maSelection As Range
    maSelection = Range(Columns("Q:Q"), Selection.End(xlToRight))
    maSelection.Clear  ' à la place de ClearContents
    maSelection.EntireColumn.Hidden = True
End Sub

[alsimbad]

je viens d'essaer, ce n'est pas un probleme, c'est comme ça. essaye avec un fichier quelquonque. tu colle une dizaine de colonne de donnée puis encore, tu verra ta barre ss'agrandir, puis tu efface celles du bout et tu t'apercevra que la barre ne diminue pas

[zazaraignée]

je viens d'essaer, ce n'est pas un probleme, c'est comme ça. essaye avec un fichier quelquonque. tu colle une dizaine de colonne de donnée puis encore, tu verra ta barre ss'agrandir, puis tu efface celles du bout et tu t'apercevra que la barre ne diminue pas

[...]Tu peux toujours les masquer.

Code :

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

1
2
3
4
5
6
Sub Macro1() 
    Dim maSelection As Range 
    maSelection = Range(Columns("Q:Q"), Selection.End(xlToRight)) 
    maSelection.Clear ' à la place de ClearContents 
    maSelection.EntireColumn.Hidden = True 
End Sub

T'as bien vu la dernière ligne avant le End Sub ? Avec ça, ça marche.

[alsimbad]

désolé zaza, quand j'ai dis que j'avais essayé, je parlais du soucis de tomme. bon, j'ai essayé ton code, c'est sur que ça marche pour la scrollbar, mais c'est quand même moyen comme solution que de masquer les colonnes. pas facile a gerer pour la suite, d'autant plus que si tu le remet en visible, la barre redvient aussi grande

[Tomme]

J'ai essayé ce que tu m'a donné Zaza, je n'ais pas réussit à le faire marcher, j'avais une erreur parlant de boucle while , je sais pas vraiment d'où ca vien.

Mais c'est pas grave, c'est qu'un détail


Merci à tous pour votre aide !