"Suppression de colonne si cellule contient" probleme

Bonjour à tous,

Dans une macro qui marchait tres bien une sequence me permettait de supprimer la colonne E de la feuille "Dépose Extraction".

J'aimerais l'améliorer en supprimant cette colonne uniquement si la case E5 contient le mot "Fournisseurs" sinon ne rien faire.

Je pense l'avoir bien codé mais pourtant ca ne marche pas, pire ça stop la macro et le reste des actions ne s'enchaine pas

Je précise au passage que ma case E5 dispose d'une mise en forme, est-ce que ca joue ? ("Fournisseurs" est en gras sur un fond coloré)

Code:

---

1 2 3 4 5

If UCase([E5]) Like "Fournisseurs" Then Columns("E:E").Select Selection.Delete Shift:=xlToLeft End If

---

aucun code d'erreur mais pas de suppression de la colonne

Merci d'avance.

Guillaume

Bonjour,
La procédure "Like" est sensible à la casse. UCase("gnagna") transforme "gnagna" en majuscules : "GNAGNA". Dans ton code tu dis :
SI E5 transformé en majuscule est identique à "Fournisseurs" alors ...
Cela ne peux donc pas fonctionner.
De plus, nous allons essayer d'éviter les .Select (pour ne pas ralentir l'exécution des macros)...
Essaye plutôt ceci :

Code:

---

1 2 3

If UCase([E5]) Like "FOURNISSEURS" Then Columns("E:E").Delete Shift:=xlToLeft End If

---

salut

- maladroit d'utiliser Like là où il s'agit d'une égalité (utiliser =)
- Ucase passe en majuscules et le retournera donc jamais de minuscules telles celles dans "Fournisseurs" !
- ne pas sélectionner pour détruire ! :

Code:

---

Range("E:E").Delete

---

saura détruire directement la colonne E

Merci beaucoup ! Je début avec le vba, mon code est donc pas toujours super. En tout cas j'apprécie beaucoup ce forum et votre aide. Vous êtes géniaux !
J'aimerais bien avoir le même niveau ^^ En attendant je m'entraine...

Sinon ca marche avec :

Code:

---

1 2 3 4

If UCase([E5]) Like "FOURNISSEURS" Then Range("E:E").Delete End If

---

Je suppose donc que UCase detecte aussi les minuscules ("Fournisseurs") si dans mon code j'inscris le mot en majuscule (Like "FOURNISSEURS") ? C'est uniquement pour vraiment comprendre ce que je fais et reutiliser Ucase au besoin.

Et par contre la partie 'Effacer Feuille TDC si feuille Existe' ne marche plus. Une idée de pourquoi ? Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'Test suppression colonne E si Fournisseurs inscrit dans E5'   If UCase([E5]) Like "FOURNISSEURS" Then Columns("E:E").Delete Shift:=xlToLeft End If   'Sequence pour effacer le tableau dans tat semaine'   Sheets("TAT de la semaine").Select Columns("A:F").Select Selection.ClearContents Application.DisplayAlerts = False   'Delete Feuille TDC si feuille existe'   For i = 1 To ThisWorkbook.Sheets.Count   If ThisWorkbook.Sheets.Item(i).Name = "Feuil1" Then Application.DisplayAlerts = False ThisWorkbook.Sheets("TDC").Delete Application.DisplayAlerts = False Exit For End If   Next

---

Ok je viens de regler tout seul le problème... Il suffisait de remplacer "Feuil1" par "TDC". dans

Code:

---

1 2 3 4 5 6

If ThisWorkbook.Sheets.Item(i).Name = "Feuil1" Then Application.DisplayAlerts = False ThisWorkbook.Sheets("TDC").Delete Application.DisplayAlerts = False Exit For End If

---

Je suis receptif à toute explication ou conseil sur comment éviter ce genre de probleme à l'avenir et progresser en vba.

Merci encore.

Guillaume

Bonjour,

Ton souci doit être d'obtenir un résultat quelque soit la casse de FourNiSeur, ce qui est bien vu, mais il faut égaliser les parties ;)

Code:

---

1 2 3 4 5 6 7 8

Sub destrroy() 'vu que la feuille n'a pas besoin d'être active pour la suppression, il est prudent 'd'être explicite en la désignant par son nom mieux que par l'index. Préciser le classeur 'peut se révéler utile aussi suivant le contexte. With Worksheets(1).Range("E5") If UCase(.Value) = UCase("fournisseurs") Then .EntireColumn.Delete End With End Sub

---

Tu peux t'affranchir des conversions avec

Code:

---

Option Compare Text

---

en haut de module, mais son niveau module peut-être une contrainte selon le contexte.

cordialement,

Didier

Bonjour,

Pour la fonction UCASE, vous trouvez ceci dans l'aide VBA /


UCase, fonction


Renvoie une valeur de type Variant (String) contenant la chaîne indiquée, convertie en majuscules.
Syntaxe
UCase(string)
L'argument string peut être toute expression de chaîne valide. Si l'argument string contient une valeur de type Null, Null est renvoyé.
Remarques
Seules les lettres minuscules peuvent être converties en majuscules. Toutes les lettres majuscules et les caractères qui ne sont pas des lettres demeurent inchangés.
[/quote]Vous pouvez regarder aussi l'aide sur la fonction LCASE (et sur bien d'autres fonctions).