Formule
Résolu
guismo33
Messages postés
351
Date d'inscription
Statut
Membre
Dernière intervention
-
guismo33 Messages postés 351 Date d'inscription Statut Membre Dernière intervention -
guismo33 Messages postés 351 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Formule
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
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éciser
Michel
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éciser
For j = 2 To 9--
If ActiveSheet.Cells(5, j) <= 3 Then
.Cells(lig, j) = ActiveSheet.Cells(5, j)
End If
Next j
Michel
merci michel cela fonctionne que je le voulais, mais dite moi, est-ce possible de le faire sur 30 feuilles pour le même endroits.
changer mon Sheets("DD") avec des noms de feuilles allant de 1 à 30 et bien sure changer les lignes puisqu'il y en a 30.
petit fichier ?
Bien à vous