Appliquer une macro à une colonne
Fermé
Charlène
-
30 juil. 2010 à 09:07
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 30 juil. 2010 à 10:02
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 30 juil. 2010 à 10:02
A voir également:
- Appliquer une macro à une colonne
- Déplacer une colonne excel - Guide
- Macro logiciel - Télécharger - Organisation
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Figer une colonne excel - Guide
- Excel colonne a disparue ✓ - Forum Excel
2 réponses
piopicolo
Messages postés
1373
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
8 novembre 2018
198
30 juil. 2010 à 09:53
30 juil. 2010 à 09:53
Vérifie la plage de "accompagnement_ind"
A+
A+
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 30/07/2010 à 10:03
Modifié par pijaku le 30/07/2010 à 10:03
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 :
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
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? --