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.