Microsoft 365 Question VBa

arix15

XLDnaute Nouveau
Bonjour,

Étant un novice je vous contact pour le problème suivant: Je souhaite mettre à un les valeurs qui sont à 0 à 1. Le code ci-dessous.

Private Sub CommandButton1_Click()

For Each C In Range("tableau")
Range("B:B").Select

If C.Value <= 0 Then
C.Value = 1
End If
Next
End Sub

Enfaite je souhaite sélectionneur le "tableau" puis mettre à 1 seulement les valeurs de la colonne B, alors que ici c'est les valeurs de tout tableau (étant égal à 0)qui passent à 1.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Arix,
Un petit fichier test aurait été le bienvenu.
Peut être pouvez vous essayer :
VB:
Sub CommandButton1_Click()
    Dim L%, Debut%
    Debut = 1 ' Mettre ici la première de B à traiter
    Application.ScreenUpdating = False
    For L = Debut To Range("B65500").End(xlUp).Row
        If Cells(L, "B") <= 0 Then Cells(L, "B") = 1
    Next L
End Sub
 

Statistiques des forums

Discussions
299 915
Messages
1 980 047
Membres
206 965
dernier inscrit
Mithanne