Besoin d'aide pour macro

[gillesroszak]

Bonjour,
Étant nouveau sur votre forum, je vous salue tous et me présente :Je m'appelle Gilles j'ai 49 ans et suis artisans depuis quelques année déjà .Je commence à utiliser Excel pour ma profession et je suis confronté à plusieurs problèmes dont voici un exemple que j'espère vous m'aiderez à résoudre.
donc voilà mon problème :
j'ai un classeur Excel contenant 3 feuilles de calcul. la première est une base de données de prix, la deuxième(Calcul) est la copie de la première a laquelle une colonne quantité est à renseigner et la troisième(Devis) une copie de la deuxième.
dans cette troisième feuille je voudrait que les lignes ou 'apparait "FAUX" soit masquer automatiquement.

Merci d'avance de vos réponses

Gilles

 

[Dull]

Re : Besoin d'aide pour macro

Salut gillesroszak et Bienvenue sur XLD 🙂, le Forum

peut être comme cela

Sub EssAi()
Dim C As Range, Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
For Each C In Range("C1:C" & Derlig)
    If C = False Then C.EntireRow.Hidden = True
Next C
End Sub

EDITION: Avait pas vu Automatiquement
place ce code dans le Module de la Feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range, Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
For Each C In Range("C1:C" & Derlig)
    If C = False Then C.EntireRow.Hidden = True
Next C
End Sub

à chaque changement le code s'actualisera
Bonne Journée

 

[Hippolite]

Re : Besoin d'aide pour macro

Bonjour,
Modifie tes conditions en précisant la valeur si faux :

=SI($Calcul.B3>0;$Calcul.A3;"")

 

[gillesroszak]

Re : Besoin d'aide pour macro

Bonjour,
Cela marche merveilleusement bien, Merci beaucoup
Une autre question :
Y a t il un moyen pour que cette macro s'exécute automatiquement dans un sens comme dans l'autre ou y a t il la possibilité d'insérer un bouton de commande sur la feuille concernée.

Gilles

 

[Dull]

Re : Besoin d'aide pour macro

Re le Fil, Hippolite

Automatiquement voir mon précédent post
dans un sens comme dans l'autre

remplace le code dans le Module de la Feuille par celui-ci

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range, Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
For Each C In Range("C1:C" & Derlig)
    C.EntireRow.Hidden = IIf(C = False, True, False)
Next C
End Sub

Bonne Journée

 

[gillesroszak]

Re : Besoin d'aide pour macro

Salut gillesroszak et Bienvenue sur XLD 🙂, le Forum

peut être comme cela

Sub EssAi()
Dim C As Range, Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
For Each C In Range("C1:C" & Derlig)
    If C = False Then C.EntireRow.Hidden = True
Next C
End Sub

EDITION: Avait pas vu Automatiquement
place ce code dans le Module de la Feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range, Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
For Each C In Range("C1:C" & Derlig)
    If C = False Then C.EntireRow.Hidden = True
Next C
End Sub

à chaque changement le code s'actualisera
Bonne Journée

Comment fait on pour que lorsque la Condition n'est pas respecter ( If C = >0 Then C.EntireRow.Hidden = False)?????

 

[Dull]

Re : Besoin d'aide pour macro

Re

Nos messages se sont Croisés

a bien y réfléchir il vaut mieux mettre la procédure dans l'activation de la feuille

Private Sub Worksheet_Activate()
Dim C As Range, Derlig As Long
Derlig = Range("C65536").End(xlUp).Row
For Each C In Range("C1:C" & Derlig)
    C.EntireRow.Hidden = IIf(C = False, True, False)
Next C
End Sub

Bonne Journée

 

[gillesroszak]

Re : Besoin d'aide pour macro

Merci beaucoup cela fonctionne vraiment très bien

 

[Pierrot93]

Re : Besoin d'aide pour macro

Bonjour gillesroszak, Dull🙂

juste histoire de saluer Dull🙂

C.EntireRow.Hidden = C = False

bonne journée
@+