Macro pour Nettoyer les colonnes d’un fichier, Excel VBA

Si vous travaillez avec des formulaires, il y aura toujours des zones sur le formulaire qui sont statiques et des zones que vous remplissez et supprimez. Supposons que vous deviez supprimer les données d’entrée dans l’exemple de la figure ci-dessous.

Les colonnes B et D peuvent être nettoyées colonne par colonne en démarrant la macro suivante.

Sub NettoyerLesColonnesDansLaZoneUtilisation ()

Dim cell As Object

  Sheets ("Feuil3") Activate

  ActiveSheet.UsedRange.Select

  For Each Cell In Selection

    If Cell.Column = 2 Or Cell.Column = 4 _

    Then cell.Value = ""

  Next cell

End Sub

Sélectionnez la zone que vous utilisez avec la propriété UsedRange dans le tableau Feuil3. Vous utilisez une boucle For Each pour vérifier chaque cellule de la zone en cours d’utilisation. Si la cellule se trouve dans les colonnes B ou D, le contenu de la cellule est supprimé.

Vous venez de voir que la lettre de la colonne est sortie à l’aide d’une valeur numérique. Dans le premier alphabet, cela peut encore être assez facile. Mais saviez-vous tout de suite que la colonne AN a la valeur 40?

Pour connaître la lettre de la cellule active, démarrez la macro suivante.

Sub DeterminerLaColonne ()

Dim s As String Dim sbuch As String s = ActiveCell.Address sbuch = Mid (s, 2, InStr (2, s, "$") - 2)

MsgBox "La lettre de colonne de la cellule active est <" _

& sbuch & ">"

End Sub

 

Pour déterminer la lettre de colonne de la cellule active, enregistrez l’adresse de cellule de la cellule active dans une variable chaîne. Ensuite, décomposez cette variable et transférez la lettre de la colonne dans la variable sbuch. Pour ce faire, utilisez la fonction Mid, avec laquelle vous pouvez déterminer une partie d’une chaîne. Vous devez spécifier comme arguments de quelle chaîne il doit s’agir, de quel caractère cette chaîne doit être transmise et le nombre de caractères à transmettre. Vous pouvez déterminer ce nombre à l’aide de la fonction InStr. Mettez le deuxième caractère de la variable s et recherchez dans le reste des variables le caractère absolu $. Lorsque vous avez trouvé cela, il vous suffit de soustraire la valeur 2 pour obtenir la lettre ou la combinaison de lettres.

Sub DeterminerLaColonne ()

Dim s As String

Dim sbuch As String

  s = ActiveCell.Address

  sbuch = Mid (s, 2, InStr (2, s, "$") - 2)

MsgBox " La lettre de colonne de la cellule active est <" _

  & sbuch & ">"

End Sub

 

Adresse de cellule de la cellule active dans une variable chaîne. Ensuite, divisez cette variable et transférez la lettre de la colonne dans la variable sbuch. Pour ce faire, utilisez la fonction Mid, avec laquelle vous pouvez déterminer une partie d’une chaîne. Vous devez spécifier comme arguments de quelle chaîne il doit s’agir, de quel caractère cette chaîne doit être transférée et le nombre de caractères à transférer. Vous pouvez déterminer ce nombre à l’aide de la fonction InStr. Ce faisant, vous mettez s après le deuxième caractère de la variable et recherchez dans le reste de la variable le caractère absolu $. Si vous avez trouvé cela, il vous suffit de soustraire la valeur 2 pour obtenir la lettre ou la combinaison de lettres.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x