Discussion :

[Gautier Prosper]

Bonjour le forum.
Je voudrais à partir d'un userform supprimer les colonnes inutiles selon la sélectionnée dans le ComboBox3
Seulement lorsque j'applique la boucle suivante, seule la colonne 7 est supprimée. J'ai besoin de votre aide pour pouvoir avancer dans mon travail. Merci d'avance pour votre orientation.
Ma macro est la suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub ComboBox4_Change()
Worksheets("Feuil4").Activate
 
Dim kk As Integer
kk = 7
Application.CutCopyMode = False
On Error Resume Next
Worksheets("Feuil4").Select
Range("A20").Value = CDbl(Me.ComboBox3.Value)
Do While Worksheets(4).Cells(1, kk).Text <> ""
If Cells(2, kk).End(xlUp).Row = "" Then Columns.Delete
Cells(22, kk).Value = CDbl(Right(Cells(1, kk).Value, 1))
If Worksheets(4).Cells(22, kk).Value - Worksheets(4).Cells(20, 1).Value <> 0 Then Worksheets(4).Cells(1, kk).column.End(XlToLeft).EntireColumn.Delete
 
End If
 
 
 
kk = kk + 1
Loop
 
 
End Sub

[Gado2600]

Bonjour,

Tu as trop d'incohérences dans le code par rapport à ta description du besoin :

Pourquoi faire car tu connais le numéro de ta colonne ?

Code :

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

Do While Worksheets(4).Cells(1, kk).Text <> ""

A quoi te sert cette condition ?

Code :

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

If Worksheets(4).Cells(22, kk).Value - Worksheets(4).Cells(20, 1).Value <> 0 Then

Le ".column" ne sert par à grand chose et je ne comprends pas le ".end(xltoleft)"

Code :

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

Worksheets(4).Cells(1, kk).column.End(XlToLeft).EntireColumn.Delete

En fait, ci-dessous, ferait largement le travail.

Code :

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

Worksheets(4).Cells(1, kk).EntireColumn.Delete

Bref, ce n'est pas très clair ce que tu fais.

Cordialement,