Problème de macro entre feuilles

Arnaud45000 · 12 Janvier 2010

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!

Code:

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 · 12 Janvier 2010

Re : Problème de macro entre feuilles

Bonjour Arnaud,

Essaie

Code:

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 · 12 Janvier 2010

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

Code:

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 · 12 Janvier 2010

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 · 12 Janvier 2010

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!
🙂

Problème de macro entre feuilles

Arnaud45000

Guest

Guiv

XLDnaute Occasionnel

Arnaud45000

Guest

mutzik

XLDnaute Barbatruc

Arnaud45000

Guest

Discussions similaires

Problème de macro entre feuilles

Arnaud45000

Guest

Guiv

XLDnaute Occasionnel

Arnaud45000

Guest

mutzik

XLDnaute Barbatruc

Arnaud45000

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency