Problème de macro entre feuilles

[Arnaud45000]

Bonjour,

Déjà je souhaite une bonne année à tout les utilisateurs du forum et aux autres aussi ^^

Voila je j'explique mon problème :

Je voudrais que si la cellule "C21" de la feuille "Questions Clients" est pas vide je puisse automatiquement avoir la valeur "0" dans la cellule "P10" de la feuille "Calcul Rénovation".

Voila ce que j'ai fait, mais cela ne fonctionne pas!

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range(C21)) Is Nothing Then


    If Sheets("Questions Clients").Range("C21").Text <> "0" Then

        Sheets("Calcul Rénovation").Range("P10").Value = "0"
    
    End If
    
End If

Ayant deja une macro Private Sub Worksheet_Change(ByVal Target As Range) j'ai essayé Worksheet_Change2 mais ca ne marche pas, j'ai aussi essayé de l'incorporer dans la 1ere Worksheet_Change.

Je ne vois vraiment pas comment faire je bloque même avec toutes les informations du forum qui beaucoup aidé.

Merci d'avance

 

[Guiv]

Re : Problème de macro entre feuilles

Bonjour Arnaud,

Essaie

If Sheets("Questions Clients").Range("C21") <> [COLOR="Red"]""[/COLOR] Then

        Sheets("Calcul Rénovation").Range("P10") = [COLOR="Red"]0[/COLOR]
    
    End If

Cordialement,
Guiv

 

[Arnaud45000]

Re : Problème de macro entre feuilles

Re!

Bon bha j'ai réglé le problème Guiv.

Du coup j'ai fait incorporé le morceau que tu m'as donné à une macro deja existante ce qui donne

If Not Application.Intersect(Target, Range("C21")) Is Nothing Then

' Macro qui vérifie la valeur de C21.
'Elle s 'active à chaque changement dans la cellule C21'

    If Range("C21").Text = "" Then

        Rows("22:26").Select
        Selection.EntireRow.Hidden = True
       
        
    End If
    

    If Range("C21").Text <> "" Then


        Rows("22:26").Select
        Selection.EntireRow.Hidden = False
        
        [COLOR="Red"]Sheets("Calcul Rénovation").Range("P10") = 0[/COLOR]
        
    End If
End If

 

[mutzik]

Re : Problème de macro entre feuilles

bonjour,

pourquoi passer par du code VBA, une simple formule suffit (et est toujours plus rapide que du VBA)
en P10 de la feuille calcul R2novation : =si(C21 de question client = "" ; ce que tu veux ; 0)

 

[Arnaud45000]

Re : Problème de macro entre feuilles

Merci, cela correspond même plus à mon idée finale! Je suis telement dans le vb que j'en oubli les formule simple!