Supprimer colonnes avec condition

Résolu

Ju@nita Messages postés 163 Date d'inscription Statut Membre Dernière intervention -
Ju@nita Messages postés 163 Date d'inscription Statut Membre Dernière intervention - 8 sept. 2015 à 13:43

Bonjour,

je ne suis pas très bonne pour créer une macro avec des If.
Pourriez-vous me corriger svp ?
If (A1 = "BLC") Then
Columns("F:G").Select
Selection.Delete Shift:=xlToLeft
If (A1 = "Caisse Pop") Then
Columns("G:H").Select
Selection.Delete Shift:=xlToLeft
If (A1 = "BNC") Then
Columns("G:H").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End If
End Sub

Ça me dit: erreur de compilation: Bloc If sans End If

C'est qu'il a des colonnes à détruire en fonction de ce qui est écrit dans A1.

merci

A voir également:

Supprimer colonnes avec condition
Supprimer rond bleu whatsapp - Guide
Supprimer une page word - Guide
Excel cellule couleur si condition texte - Guide
Comment faire des colonnes sur word - Guide
Classer par ordre alphabétique excel plusieurs colonnes - Guide

2 réponses

Réponse 1 / 2

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Bonsoir,

tu as 3 IF et 1 seul End IF donc ajoute 2 End IF

ensuite lorsque tu désigne une cellule, en VBA il faut écrire Range("A1") ou [A1]

essaye ce code, si A1 = "Caisse Pop" ou "BNC" on supprime les colonnes G et H

Sub test()
If Range("A1") = "BLC" Then
Columns("F:G").Delete
ElseIf Range("A1") = "Caisse Pop" Or Range("A1") = "BNC" Then
Columns("G:H").Delete
End If
End Sub

Réponse 2 / 2

Ju@nita Messages postés 163 Date d'inscription Statut Membre Dernière intervention 2

Excellent, ça fonctionne très bien.
Un gros merci.

bonne journée.

Votre réponse