Microsoft 365 Question VBa

arix15 · 18 Février 2022

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 · 18 Février 2022

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

arix15 · 18 Février 2022

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

Dranreb · 18 Février 2022

Bonjour
Vous pouvez essayer :

VB:

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

Ou bien :

Code:

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

sylvanu · 18 Février 2022

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 · 18 Février 2022

Merci @Dranreb tout fonctionne.

Microsoft 365 Question VBa

arix15

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

arix15

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

arix15

XLDnaute Nouveau

Discussions similaires