Microsoft 365 Question VBa

[arix15]

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]

Bonjour Arix,
Un petit fichier test aurait été le bienvenu.
Peut être pouvez vous essayer :

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

 

[arix15]

Merci de ta réponse mais je ne vois pas ou ti fait intervenir la liste "tableau".
Ci-joint.

 

[Dranreb]

Bonjour
Vous pouvez essayer :

For Each C In Range("tableau").Columns(2).Cells

Ou bien :

For Each C In Intersect(Range("tableau"), Columns(2))

 

[sylvanu]

Pourquoi faire intervenir la plage Tableau si c'est pour traiter la colonne B ?
Range("B65500").End(xlUp).Row donne la fin utile de la colonne B, et le For Next traite les cellules.

 

[arix15]

Merci @Dranreb tout fonctionne.