Créer une supermacro pour la gestion des données avec Excel VBA

La macro décrite dans cette articles peut être utilisée pour créer une super macro pour organiser les données. Ceci, décrit ci-dessous, vous permet de standardiser vos données en un seul processus, vous permettant ainsi d’économiser du temps et des problèmes.
Comment ca marche?
La macro combine plusieurs autres macros utilisées pour transformer des données.
Notez que seules deux variables d’objet Range devaient être déclarées. Ces variables utilisent des plages différentes pour chaque instruction.

Sub OrganiserDonnees ()
'Étape 1: Déclarez les variables

Dim MyRange As Range

Dim MyCell As Range
'Étape 2: enregistrer la feuille de calcul avant d'apporter des modifications aux cellules

Select Case MsgBox(""L'action ne peut pas être annulée." & "Voulez-vous d'abord enregistrer la feuille de    calcul?", VbYesNoCancel?", vbYesNoCancel)
Case Is = vbYes
ThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
'Étape 3: Exécutez la commande Texte sous forme de colonne

Set MyRange = Range("F6:I17")
For Each MyCell In MyRange
If Not IsEmpty(MyCell) Then
MyCell.Value = MyCell.Value
End If
Next MyCell
'Étape 4: Insérez des zéros dans le numéro de client.

Set MyRange = Range("B6:B17")
For Each MyCell In MyRange
If Not IsEmpty(MyCell) Then
MyCell.NumberFormat = "@"
MyCell = "0000000000" & MyCell
MyCell = Right(MyCell, 10)

End If
Next MyCell
'Étape 5: Raccourcir le code postal à cinq caractères

Set MyRange = Range("C6:C17")
For Each MyCell In MyRange
If Not IsEmpty(MyCell) Then
MyCell = Left(MyCell, 5)
End If
Next MyCell
'Étape 6: ajoutez le code postal au numéro de téléphone

Set MyRange = Range("D6:D17")
For Each MyCell In MyRange
If Not IsEmpty(MyCell) Then
MyCell = "(41-154) " & MyCell
End If
Next MyCell
'Étape 7: supprimer les espaces du numéro de produit
Set MyRange = Range("E6:E17")
For Each MyCell In MyRange
If Not IsEmpty(MyCell) Then
MyCell = Trim(MyCell)
End If
Next MyCell
'Étape 8: insérer des zéros dans des cellules vides
Set MyRange = Range("F6:I17")
For Each MyCell In MyRange
If Len(MyCell.Value) = 0 Then
MyCell = 0
End If
Next MyCell
End Sub

 


Comment appliquer une macro?
Pour implémenter ce type de macro, vous pouvez copier et coller son code dans un modulateur standard. À cette fin:
1. Utilisez la combinaison de touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, cliquez avec le bouton droit sur le nom du projet ou de la feuille.
3. Sélectionnez Insérer / Module.
4. Saisissez ou collez le code.

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

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

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