Sujet Précédent Sujet Suivant

Appliquer une macro à une colonne

Charlène -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Ceci est une question de débutant ...
J'ai une macro que je n'arrive pas à appliquer à mes nouvelles cases créées dans la colonne concernée :
- problème de mise à jour ?
- problème de macro qui ne s'applique pas à une colonne complète ...

Voici le code :
Sub alerte()
Sheets("accompagnement_ind").Select
For i = 2 To 800
If Cells(16, 1).Value + 15 > Cells(i, 11).Value And Cells(i, 11).Value <> "" Then
Cells(i, 11).Interior.ColorIndex = 3
End If
Next i
End Sub

Si quelqu'un pouvait m'aider, je le remercie par avance !

A voir également:

2 réponses

Réponse 1 / 2
piopicolo Messages postés 1422 Statut Membre 193
 
Vérifie la plage de "accompagnement_ind"

A+
0
Réponse 2 / 2
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
Bonjour,
Personnellement, je ne le ferais pas par macro, mais par une Mise en Forme Conditionnelle.
Si Excel<2007 :
- Sélectionner la colonne K entière,
- Format/Mise en forme conditionnelle
- Choisir : "La formule est :" : =ET($K1<$A$16+15;$K1<>"")
- Choisir le format souhaité
- Valider

Sinon par macro, je recommande de passer par des variables Integer ou Long : 
Sub alerte()  
Dim i, derniereligne, valeur, CelluleEtudiee As Integer 
With Sheets("accompagnement_ind")  
    valeur = CInt(.Cells(16, 1).Value) + 15 'transforme le contenu de A16 en "Nombre" et ajoute 15 
    derniereligne = .Cells(65236, 11).End(xlUp).Row 'stocke le numéro de la dernière ligne remplie de la colonne 11 (K) 
        For i = 2 To derniereligne 'amorce la boucle de la 2ème à la dernière ligne 
            CelluleEtudiee = CInt(.Cells(i, 11).Value) 
                If valeur > CelluleEtudiee And CelluleEtudiee <> "" Then  
                    .Cells(i, 11).Interior.ColorIndex = 3  
                End If  
        Next i  
End With 
End Sub

Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
0