Formule
Résolu
guismo33
Messages postés
403
Statut
Membre
-
guismo33 Messages postés 403 Statut Membre -
guismo33 Messages postés 403 Statut Membre -
Bonjour a tous,
voici la formule :
Sub Macro1()
Dim lig As Long
With Sheets("DD")
lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(lig, "A").Value = Date
For j = 1 To 8
Worksheets("DD").Cells(lig, 1 + j).Value = ActiveSheet.Cells(5, 14 + j).Value <= 3
Next j
End With
End Sub
dans une feuille en O5 a V5 j'ai des nombres 1 2 3 4 5 qui peuvent etre placé n'import ou sur les 8 colonnes.
et dans ma feuille "DD" je viens récupérer c'est infos mais avec conditions, ici je récupère les 3 premiers.
mais sur ma feuille "DD" il m'affiche que ""vrai", "vrai",faux mais je voudrais voir les chiffres.
merci
bien a vous
voici la formule :
Sub Macro1()
Dim lig As Long
With Sheets("DD")
lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(lig, "A").Value = Date
For j = 1 To 8
Worksheets("DD").Cells(lig, 1 + j).Value = ActiveSheet.Cells(5, 14 + j).Value <= 3
Next j
End With
End Sub
dans une feuille en O5 a V5 j'ai des nombres 1 2 3 4 5 qui peuvent etre placé n'import ou sur les 8 colonnes.
et dans ma feuille "DD" je viens récupérer c'est infos mais avec conditions, ici je récupère les 3 premiers.
mais sur ma feuille "DD" il m'affiche que ""vrai", "vrai",faux mais je voudrais voir les chiffres.
merci
bien a vous
1 réponse
-
Bonjour
Pourquoi 1+j ?
comme tu es dans le bloc With sheets(d:d) ru n'as besoind de le répéter dans le bloc with -end with
.value est la propriété par défaut de range: on peut, dans ce cas, ne pas le préciserFor j = 2 To 9
--
If ActiveSheet.Cells(5, j) <= 3 Then
.Cells(lig, j) = ActiveSheet.Cells(5, j)
End If
Next j
Michel
