Discussion :

[huître]

bonjour tout le monde et heureux d'être de retour parmis vous

j'ai un petit problème
j'ai écris un petit code pour supprimer une colonne (entière) qui contient la cellule "société" et le "profit"

donc le code est le suivant:

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
Sub suppression()
 
 
 
Dim rg As Excel.Range
Range("B10").Select
Range(Selection, Selection.End(xlToRight)).Select
 
For Each rg In Selection
    If rg = "Société" or rg="Profit" Then
    rg.EntireColumn.Delete
    End If
Next
 
End Sub

l'inconvenient c'est que ça me supprime une seule colonne or je veux que les deux soit supprimer

est ce que quelqu'un pourrait éclairer ma lanterne en panne de courants ^^?

merci d'avance

[gourmand]

Code :

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

Range("B10").Select

=> essais de sélectionner deux colonnes à la fois :

Code :

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

Range("A10:B10").Select

ou supprime les une par une (mais c'est plus long si tu en a 50 à faire)

[huître]

non j'en ai pas boucoup et heureusement

parcontre j'ai pas bien compris
en fait je veux faire une boucle qui tienne compte des libellés(commençant en B10) si dans cette même boucle je trouve le libéllé "société" et "profit" alors ça me supprime la colonne relative

[fring]

Bonjour,

Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim i As Integer
 
For i = Cells(10, Columns.Count).End(xlToLeft).Column To 2 Step -1
    If Cells(10, i) = "Société" Or Cells(10, i) = "Profit" Then Columns(i).Delete
Next
 
End Sub

[gourmand]

rg.EntireColumn.Delete te modifie t'a sélection. pour corrigé le problème, soi tu remais Range(Selection, Selection.End(xlToRight)).Select après rg.EntireColumn.Delete

soi tu ne passe pas par la fonction select pour ta boucle

Code :

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

For Each rg In Range(Selection, Selection.End(xlToRight))

il faut évité au maximum Select car on sais jamais si une commande que l'on utilisa nous change ou non notre sélection

edit : désolé fring, je n'avais pas vue que tu avais répondu

[huître]

ah merci genial ton code marche à merveille