Discussion :

[vbdisdonc]

Bonjour tout le monde,

J'essaye de parcourir un tableau [A1:B3] dans "sheet1" avec les valeurs ci dessous:

Tableau > sheet 1:

- A B
1 2 3
2 3 0
3 0 5

Si je trouve une valeur égale a zéro je la poste dans la même cellule mais sur la feuille suivante (sheet2):

Tableau > sheet 2:

- A B
1 - -
2 - 0
3 0 -

Mein problem is dass che ne parcours que la colonne A :

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set ResultRange = Sheets("Sheet2").Range("A1:B3") 
Set InfoS1 = Sheets("Sheet1").Range("A1:B3") 
 
 
For i = 1 To InfoS1.Count 
 
If InfoS1.Cells(i, 1) = "0" Then 
InfoS1.Cells(i, 1).Copy 
ResultRange.Cells(i, 1).PasteSpecial xlPasteValues 
End If 
Next i

Si vous avez des conseils merci d'avance (pas trop compliques svp je suis débutant).

Voila merci beaucoup, Bonne journée

[gFZT82]

Bonjour,

Une solution simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim Cel As Range
    For Each Cel In Sheets("Sheet1").Range("A1:B3")
        If Cel = 0 Then
            Sheets("Sheet2").Cells(Cel.Row, Cel.Column) = Cel
        End If
    Next Cel
End Sub

Cordialement.