Procédure VBA toute simple

Question

Salut à tous!
Voila j'ai un petit souci,je cherche à créer une procédure VBA sur Excell,qui me permet de modifier un tableau T de n nombres entiers,en éliminant les zéros qui aparaissent dans les chiffres T(i).Voila si quelqu'un peut m'aider,merci beaucoup!!!

Utilisateur anonyme · Answer

Bonjour,

voici un exemple :


Option Explicit
'

' Un tableau
Sub Tableau()
    
    Dim MonTableau(100) As String
    Dim Boucle As Integer
    
    For Boucle = 0 To 99
        If (MonTableau(Boucle) = 0) Then
            MonTableau(Boucle) = ""
        End If
    Next Boucle

End Sub
'

' Ou une plage de cellule
Sub Traitement_Cellule()

    Dim Plage As Range, Cible As Range
    
    Set Plage = Range("A1:A100")
    
    For Each Cible In Plage
        If (Cible.Value = 0) Then
            Cible.Value = ""
        End If
    Next Cible
    
End Sub
'

Lupin

Procédure VBA toute simple

1 réponse

Discussions similaires

Newsletters