Vba

Résolu
Signaler
Messages postés
17
Date d'inscription
mercredi 21 janvier 2009
Statut
Membre
Dernière intervention
13 février 2009
-
Messages postés
17
Date d'inscription
mercredi 21 janvier 2009
Statut
Membre
Dernière intervention
13 février 2009
-
Bonjour je suis débutante en vba et souhaiterais une solution svp.
Voilà j'ai un tableau sous excel avec 4 cellules A1 A2 A3 A4
il faut que si A1+A2+A3>=A4 remplir mes cellules A1 A2 A3 en vert
et sinon les laisser blanche
Je dois donc faire ça avec VBA
Savez vous la programmation?
Merci

2 réponses

Messages postés
159
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
8 janvier 2010
2
Public Sub MaMacro()
    Sheets("nomdelafeuille").Select
    If (Range("A1").Value + Range("A2").Value + Range("A3").Value) >= Range("A4").Value Then
        Range("A1:A3").Select
    With Selection.Interior
        .ColorIndex = 50
        .Pattern = xlSolid
    End With
    Range("A1").Select
    End If
End Sub

Bonne continuation
Messages postés
17
Date d'inscription
mercredi 21 janvier 2009
Statut
Membre
Dernière intervention
13 février 2009

Merci c'est vraiment très gentil je vais essayer cela.
Je recherche également la programmation ( toujours vba sous excel ) pour copier automatiquement des données d'une cellule d'une feuille de classeur 1 à une feuille de classeur 2 et ce, à chaque première ligne vide de ma colonne ( des que je rempli la cellule du document 1, la nouvelle cellule vide du document 2 se rempli ) .
Il faut également que cette "manipulation" se répète dès une nouvelle saisie du document1.
A savoir que mon document 1 est un modèle de note de frais qui restera toujours vierge alors que mon second document se remplira au fur et à mesure de mes saisies en document 1.
J'espère que mon explication est assez claire....
Voici ce que j'ai déjà écris pour le moment:

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/02/2009 par auberta
'

'Range("A1").Select
    Selection.Copy
    Windows("essai2.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste
End Sub

Merci par avance
Et encore merci a Supra 3000 pour ton explication.