Effectuer un programme automatiquement 2
Résolu
lixil
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
lixil Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
lixil Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
Bonjour tous le monde,
Voila un programme qui a un problème.
La cellule A9 de la feuille 1 est égale à la cellule A10 de la feuille 2
Quand je modifie directement la cellule A9 de la feuille 1 le programme ci-dessous s'applique correctement. Mais lorsque je modifie la cellule A10 de la feuille 2 le programme ne marche pas. Pourquoi?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheets("feuil1").Range("A9")) Is Nothing Then
If target = 1 Then
Range("A9:d12").Interior.ColorIndex = 0
Range("a9:a12").Interior.ColorIndex = 3
ElseIf target = 2 Then
Range("A9:d12").Interior.ColorIndex = 0
Range("a9:b12").Interior.ColorIndex = 3
ElseIf target = 3 Then
Range("A9:d12").Interior.ColorIndex = 0
Range("a9:c12").Interior.ColorIndex = 3
ElseIf target = 4 Then
Range("A9:d12").Interior.ColorIndex = 0
Range("a9:d12").Interior.ColorIndex = 3
end if
End If
End Sub
Voila un programme qui a un problème.
La cellule A9 de la feuille 1 est égale à la cellule A10 de la feuille 2
Quand je modifie directement la cellule A9 de la feuille 1 le programme ci-dessous s'applique correctement. Mais lorsque je modifie la cellule A10 de la feuille 2 le programme ne marche pas. Pourquoi?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheets("feuil1").Range("A9")) Is Nothing Then
If target = 1 Then
Range("A9:d12").Interior.ColorIndex = 0
Range("a9:a12").Interior.ColorIndex = 3
ElseIf target = 2 Then
Range("A9:d12").Interior.ColorIndex = 0
Range("a9:b12").Interior.ColorIndex = 3
ElseIf target = 3 Then
Range("A9:d12").Interior.ColorIndex = 0
Range("a9:c12").Interior.ColorIndex = 3
ElseIf target = 4 Then
Range("A9:d12").Interior.ColorIndex = 0
Range("a9:d12").Interior.ColorIndex = 3
end if
End If
End Sub
A voir également:
- Effectuer un programme automatiquement 2
- Supercopier 2 - Télécharger - Gestion de fichiers
- Comment lancer un programme automatiquement au démarrage de windows - Guide
- Programme demarrage windows - Guide
- Mettre en veille un programme - Guide
- Forcer la fermeture d'un programme - Guide
28 réponses
Bonjour,
Et j'ai aucune connaissance en programmation VBA excell! je sais que bidouiller. Oui, vous allez exprimer votre besoin clairement sans faire de references a de la programmation. Vous enumerez le nombre d'onglets, les cellules de saisies et les actions en fonction du contenu des ces cellules, etc.... Avec votre demande, je vous ferai un exemple de programme.
A+
Et j'ai aucune connaissance en programmation VBA excell! je sais que bidouiller. Oui, vous allez exprimer votre besoin clairement sans faire de references a de la programmation. Vous enumerez le nombre d'onglets, les cellules de saisies et les actions en fonction du contenu des ces cellules, etc.... Avec votre demande, je vous ferai un exemple de programme.
A+
bonjour,
Alors voila : Je tient des comptes toutes les semaines soit 52 feuilles
j'ai une feuille qui fait la synthèse de toutes les semaines
donc la semaine 1 : rentré : ... ; depense : ....
semaine 2 : rentré : ... ; depense : ....
semaine 3 : rentré : ... ; depense : ....
...
semaine 52 : rentré : ... ; depense : ....
Sur la feuille synthèse toutes les cellules dépense et rentré sont rattachées à leur feuilles respective.
Voila comment sa se presente :
Semaine 47
22/07/2013
Dépense
0
Rentré
0
detail (detail est un lien hypertexte permettant d'acceder a la feuille 47)
j'aimerai que lorsque la valeur de la cellule depense de la semaine 47 est superieur a 0, toutes les cellules correspondante se mettent en couleur.
Et ceci pour toutes les semaines.
Voila j'espere que c'est clair :S
Merci bien.
Alors voila : Je tient des comptes toutes les semaines soit 52 feuilles
j'ai une feuille qui fait la synthèse de toutes les semaines
donc la semaine 1 : rentré : ... ; depense : ....
semaine 2 : rentré : ... ; depense : ....
semaine 3 : rentré : ... ; depense : ....
...
semaine 52 : rentré : ... ; depense : ....
Sur la feuille synthèse toutes les cellules dépense et rentré sont rattachées à leur feuilles respective.
Voila comment sa se presente :
Semaine 47
22/07/2013
Dépense
0
Rentré
0
detail (detail est un lien hypertexte permettant d'acceder a la feuille 47)
j'aimerai que lorsque la valeur de la cellule depense de la semaine 47 est superieur a 0, toutes les cellules correspondante se mettent en couleur.
Et ceci pour toutes les semaines.
Voila j'espere que c'est clair :S
Merci bien.
Bonjour,
Avec votre explication, nous comprenons nettement mieux votre besoin.
Le principe sera simple:
onglet recapitulatif: liaison cellules avec les autres onglets et mise en forme conditionnelles
Quel excel avez-vous ???
Je vous prepare un fichier pour fin apres-midi, si cela vous convient.
A+
Avec votre explication, nous comprenons nettement mieux votre besoin.
Le principe sera simple:
onglet recapitulatif: liaison cellules avec les autres onglets et mise en forme conditionnelles
Quel excel avez-vous ???
Je vous prepare un fichier pour fin apres-midi, si cela vous convient.
A+
Re,
un exemple sans la couleur, parce qu'il y un detail qui colle pas avec votre description de la feuille recap:
j'aimerai que lorsque la valeur de la cellule depense de la semaine 47 est superieur a 0, toutes les cellules correspondante se mettent en couleur.
Et ceci pour toutes les semaines.
https://www.cjoint.com/c/CGroFelqatk
A+
un exemple sans la couleur, parce qu'il y un detail qui colle pas avec votre description de la feuille recap:
j'aimerai que lorsque la valeur de la cellule depense de la semaine 47 est superieur a 0, toutes les cellules correspondante se mettent en couleur.
Et ceci pour toutes les semaines.
https://www.cjoint.com/c/CGroFelqatk
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Beau programme!! (je comprend pas grand chose pour l'instant, je vais m'y pencher d'un peu plus près!)
Sinon
Dans la feuille Recap tu as la colone C qui represente les depenses.
Quand la cellule C2 est superieur a 0 je voudrais que les cellules A2, B2, C2, D2 se mettent en couleur
Quand la cellule C3 est superieur a 0 je voudrais que les cellules A3, B3, C3, D3 se mettent en couleur
...
Quand la cellule C54 est superieur a 0 je voudrais que les cellules A54, B54, C54, D54 se mettent en couleur.
Merci
Beau programme!! (je comprend pas grand chose pour l'instant, je vais m'y pencher d'un peu plus près!)
Sinon
Dans la feuille Recap tu as la colone C qui represente les depenses.
Quand la cellule C2 est superieur a 0 je voudrais que les cellules A2, B2, C2, D2 se mettent en couleur
Quand la cellule C3 est superieur a 0 je voudrais que les cellules A3, B3, C3, D3 se mettent en couleur
...
Quand la cellule C54 est superieur a 0 je voudrais que les cellules A54, B54, C54, D54 se mettent en couleur.
Merci
Re
Tout ce qui est dans la macro 2 j'ai compris a quoi sa sert mais la macro 1 je ne vois pas son utilité!
Tout ce qui est dans la macro 2 j'ai compris a quoi sa sert mais la macro 1 je ne vois pas son utilité!
Bonjour,
la macro 1 a servie a creer les onglets semaine S01 a S53.
Pour les couleurs, je regarde avec des MFC sur cellules avec formule.
A+
la macro 1 a servie a creer les onglets semaine S01 a S53.
Pour les couleurs, je regarde avec des MFC sur cellules avec formule.
A+