Discussion :

[Needz]

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 :

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

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

[pijaku]

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 :

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

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

[babaothe]

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 :

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

Range("E:E").Delete

saura détruire directement la colonne E

[Didier Gonard]

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 :

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

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 :

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

Option Compare Text

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

cordialement,

Didier

[Needz]

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 :

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

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 :

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
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 :

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

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

[Invité]

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).