Appliquer une macro à une colonne

Charlène -  
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 !

2 réponses

  1.  piopicolo
    Vérifie la plage de "accompagnement_ind"

    A+
    0
    1. pijaku Modérateur
      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