Discussion :

[yo_haha]

Bonjour,

Je voudrais supprimer de mon tableau sélectionné toutes les colonnes qui ont la valeur <Nul> pour toutes les lignes. Sachant que la première ligne contient les noms des colonnes.

J'ai trouvé un code que j'ai essayé d'adapter en vain. Je ne sais pas quel est le rôle de CountA().
Comment je peux spécifier que je ne veux traiter que le tableau sélectionné et pas tout le document ?

Pourriez-vous m'aider à corriger le code s'il vous plaît ?

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
 
Dim i As Long, iLimit As Long
   iLimit = ActiveSheet.UsedRange.Rows.Count
  Application.ScreenUpdating = False    'à quoi sert cette ligne ?
  Application.Calculation = xlCalculationManual    'à quoi sert celle-là ?
  For i = iLimit To 2 Step -1
    If Application.CountA(cells(i, 2).EntireColumn) = 0   Then
        'J'ai mis cells(i,2) pour ne pas compter la ligne des noms de colonnes 
       Cells(i, 1).EntireColumn.Delete
    End If
  Next i
  Application.Calculation = xlCalculationAutomatic 'quel est le rôle de cette ligne ?
   Application.ScreenUpdating = True
   iLimit = ActiveSheet.UsedRange.Rows.Count   '??
   ActiveWorkbook.Save

[Philippe Tulliez]

Bonjour,

Je ne sais pas quel est le rôle de CountA().

CountA est l'équivalent de la formule NBVAL de la version française d'excel.
NBVAL(A2:A10) Renvoie le nombre de cellules qui ne sont pas vides dans la plage A2:A10

Bonjour,

Application.ScreenUpdating = False 'à quoi sert cette ligne ?
Application.Calculation = xlCalculationManual 'à quoi sert celle-là ?

Ce sont des instructions qui permettent d'accélérer l'exécution du Code VBA.
La première ligne désactive la mise à jour de l'écran, la deuxième ligne désactive le recalcul automatique.

Bonjour,
J'ai réadapter le code et j'ai placé la propriété interior.colorindex = 4 à la place de la méthode delete ainsi que la mise en remarque de ActiveWorkbook.Save pour permettre de faire un test sans risque.

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
 Dim c As Long
 Dim rLimit As Single, cLimit As Single
 Dim cel As Range
 With ActiveSheet.UsedRange
 cLimit = .Columns.Count ' Nombre de colonnes
 rLimit = .Rows.Count ' Nombre de lignes
 End With
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 For c = cLimit To 1 Step -1
  If Application.CountA(Range(Cells(2, c), Cells(rLimit, c))) = 0 Then
   Range(Cells(2, c), Cells(rLimit, c)).EntireColumn.Interior.ColorIndex = 4 ' Colorie en vert la colonne vide
  End If
 Next
 Application.Calculation = xlCalculationAutomatic 'quel est le rôle de cette ligne ?
 Application.ScreenUpdating = True
 ' ActiveWorkbook.Save

[yo_haha]

Je vous remercie pour le code. Sauf que dans mes cellules vides, il est écrit <Nul>. Je peux faire que le <Nul> soit 0.0 mais je ne peux pas faire que les cellules soient littéralement vides. Le tableau est généré suite à une requête SQL.

[Philippe Tulliez]

Bonjour,
Il suffit d'adapter le code en utilisant par exemple la fonction CountIf

[yo_haha]

Je suis désolé de vous embêter mais c'est la première fois que j'utilise des macros XL. Lorsque j'essaie d'exécuter une macro j'ai un message : les macros de ce classeir sont désactivées car le niveau de sécurité est élevé et les macros n'ont pas été signées numériquement ou vérifiées comme étant sûres.
J'ai dû manquer une étape lors de la création de la macro.

[Philippe Tulliez]

Bonjour,
C'est le niveau de sécurités des macros qui est trop élevé.
Version 2003 - Outils/Macro/Sécurité... et coché Niveau de sécurité moyen
Version 2007 - Cliquer sur le bouton Sécurité des macros du groupe Code de [l'onglet Développeur] et sélectionner Désactiver toutes les macros avec notification.
Pour 2010 je pense que c'est pareil mais ma machine n'est pas branchée et je ne peux pas vérifier.

[yo_haha]

cela n'a pas marché. Même avec un niveau de sécurité bas ça marche pas.

[Philippe Tulliez]

Bonjour,

cela n'a pas marché. Même avec un niveau de sécurité bas ça marche pas.

Qu'est-ce qui ne marche pas. Quel message d'erreur as-tu ?

Attention : Après avoir modifié le niveau de sécurité, il faut fermer le classeur et puis l'ouvrir. La modification apportée est prise en compte après

[yo_haha]

Lorsque je clique sur un bouton auquel j'ai associé le code précédent, j'ai me message d'erreur suivant :
Les macros de ce classeir sont désactivées car le niveau de sécurité est élevé et les macros n'ont pas été signées numériquement ou vérifiées comme étant sûres. Pour exécuter les macros, vous pouvez les faire signer numériquement ou modifier votre niveau de sécurité.

[Philippe Tulliez]

J'ai ajouté un commentaire à mon post précédent

Attention : Après avoir modifié le niveau de sécurité, il faut fermer le classeur et puis l'ouvrir. La modification apportée est prise en compte après

[yo_haha]

Merci. Il n'y a plus de problèmes de sécurité.

Me recommanderiez-vous un tutoriel spécifique qui explique le rôle de chaque fonction et attribut utilisé dans VBA XL ? Je veux juste ce qui est spécifique à XL (API). Je suis déjà initié au VB.

[Philippe Tulliez]

Bonjour,
Difficile de conseiller la lecture de l'un ou l'autre tutoriel.
L'ensemble des tutos disponibles sur Developpez.com se trouve disponible à cette adresse mais je suppose que vous connaissez l'adresse.
Si vous connaissez VB, ce sont les objets, propriétés et procédures événementielles d'excel ou fonctions spécifiques d'excel
Le sujet est tellement vaste. Je programme depuis plus de 10 ans en VBA Excel et j'apprends encore.
Mais avant tout pour bien programmer en VBA Excel il faut une bonne connaissance du produit. Beaucoup de personnes font des macros parce-qu'elles ignorent que l'on peut le faire les fonctions d'excel ou à l'aide des outils présents dans le produit.
La lecture des FAQS est riche d'enseignement aussi.

[yo_haha]

Je vous remercie.