Bonjour,
Je suis débutante en vba, et je cherche à ajouter des conditions supplémentaires à ma macro ci -dessous :
Sub askbloom()
Set definedrange = Sheets(4).Range("Z1:Z65536")
For Each ligne In definedrange
If (ligne.Value <> "Z" ) Then
i = i + 1
Debug.Print ligne.Row
Sheets("Result BBG").Cells(i, 1).Value = Sheets("Inventaires Conso").Cells(ligne.Row, 5).Value
Sheets("Result BBG").Cells(i, 2).Value = Sheets("Inventaires Conso").Cells(ligne.Row, 7).Value
End If
Next ligne
Les filtres à ajouter sont explicités dans le fichier ci-joint.
Merci d'avance pour votre aide.
Je suis débutante en vba, et je cherche à ajouter des conditions supplémentaires à ma macro ci -dessous :
Sub askbloom()
Set definedrange = Sheets(4).Range("Z1:Z65536")
For Each ligne In definedrange
If (ligne.Value <> "Z" ) Then
i = i + 1
Debug.Print ligne.Row
Sheets("Result BBG").Cells(i, 1).Value = Sheets("Inventaires Conso").Cells(ligne.Row, 5).Value
Sheets("Result BBG").Cells(i, 2).Value = Sheets("Inventaires Conso").Cells(ligne.Row, 7).Value
End If
Next ligne
Les filtres à ajouter sont explicités dans le fichier ci-joint.
Merci d'avance pour votre aide.