Formule

Résolu/Fermé

guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 2 mars 2017 à 09:02
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 2 mars 2017 à 10:31

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

A voir également:

Formule
Formule excel - Guide
Formule si et - Guide
Formule moyenne excel - Guide
Formule excel pour additionner plusieurs cellules - Guide
Mise en forme conditionnelle formule si - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
2 mars 2017 à 09:30

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

For j = 2 To 9 
If ActiveSheet.Cells(5, j) <= 3 Then
    .Cells(lig, j) = ActiveSheet.Cells(5, j)
End If
Next j

--
Michel

guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
2 mars 2017 à 10:31

Bonjour,

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

Discussions similaires

exo pix

Formule Excel : "SI" une cellule contient un mot, alors ?

je veut créer des codes

Discussions similaires

Newsletters