VBA + mise en forme conditionnelle
Bonjour,
Je souhaiterai appliquer à une cellule une mise en forme conditionnelle.
Exemple =
si cellule L = cellule AB, alors cellule AB en vert, si différent AB en rouge.
Je suis débutante dans le VBA.
Pourriez-vous m'aider?
Je vous en remercie par avance.
Bonjour,
sachez qu'il n'est pas nécessaire de passer par VBA,
Dans le ruban, dans le menu accueil, sur la droite il y a une icône avec "Mettre sous forme conditionnelle"
Commencez par sélectionner la cellule qui doit changer de couleur, cliquer sur cette icône et sélectionnez "gérer les MFC"
"nouvelle règle"
"utiliser une formule"
et dan sla barre de formule vous entrez :
=ET(L1=AB1)
puis vous choisissez le format et voilà reste plus qu'à valider...
@ bientôt
LouReeD
Bonjour,
Merci beaucoup pour votre aide.
Si cela vous suffit ...
Et merci @ vous de votre merci
@ bientôt
LouReeD
Bonjour,
Bonjour,
Je suis débutante dans la réalisation de macros. J'avance pas à pas dans la réalisation d'une macro.
J'ai un fichier Excel qui comprend qui plusieurs onglets. Chaque onglet comprend un tableau (même nombre de colonnes, mais pas le même nombre de lignes. Je souhaiterais coller sur chaque onglet, à la fin de chaque tableau, une plage (exemple = A1:R19 du ficher "forfait") existant dans une autre fichier.
Comment dois-je faire pour intégrer dans ma macro =
- chercher dans le fichier "forfait" plage "A1:R19"
- copier cette plage
- coller cette plage dans chaque onglet, à la fin de chaque tableau
Pourriez-vous m'aider?
Je vous en remercie par avance.
Bonjour,
ceci devrait faire l'objet d'un nouveau sujet avec un titre en corrélation
Vous aurez plus de chance de toucher du monde...
Sinon pour répondre à votre question :
'Mise en mémoire de votre plage à coller :
Dim La_Plage As Range
Set La_Plage = Sheets("Forfait").Range("A1:R19")
'Trouver la dernière ligne pleine d'un tableau d'une feuille
Dim Der_Ligne As Long
Der_Ligne = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'La première ligne à remplir = Der_Ligne + 1
'Copie de la "zone" sur cette fin de tableau
La_Plage.Copy Destination:=activeSheetActive.Cells(Der_ligne + 1, 1)
'où le 1 équivaut à la colonne A et Der_Ligne +1 vaut le numéro de ligne de feuille Excel qui se trouve juste au dessous du tableau de la feuille active.@ bientôt
LouReeD
Bonjour,
Je vous remercie beaucoup pour votre aide. J'ai beaucoup de mal à utiliser le forum.
La formule ne fonctionne pas. Elle plante sur =
Set La_Plage = Sheets("Forfait").Range("A1:R19")
Je dois créer un onglet "Forfait" dans mon fichier ou une feuille "Forfait" dans mon classeur?
Désolée je suis plus que débutante....
Merci
Votre plage du fichier Forfait n'a qu'à être copiée sur le classeur avec tous les autres onglets...
Sinon pour aller plus loin dans la fonction "récupération de données sur fichier externe" vaut mieux ouvrir un nouveau sujet.
@ bientôt
LouReeD
Bonsoir,
merci à vous de votre compréhension de mon ignorance sur la gestion des fichiers extérieurs !
Merci de votre merci et ...
@ bientôt
LouReeD